Метод AddShape коллекции Shapes предназначен для создания произволь-
ных объектов Shape, в том числе геометрических фигур. Прямые, ломаные и
кривые линии создаются посредством специально предназначенных для
этого методов, часть которых мы рассмотрели ранее. Синтаксис вызова ме-
тода AddShape:
AddShape:=AddShape(Type, Left, Top, Width, Height);
Первый аргумент представляет собой целое число и определяет тип созда-
ваемого объекта, например Type:=msoShapeOvalCallout; соответствует
овальной выноске. Число всех возможных типов геометрических фигур со-
ставляет несколько десятков. Величины этих констант можно найти в ре-
дакторе Visual Basic. Значения аргументов Left, Top, Width, Height опреде-
ляют положение и размеры создаваемого объекта и имеют тип Extended.
Создадим овальную выноску и запишем в нее текст с помощью следующих
процедур.
Создание произвольного объекта Shape — выноски
procedure TForml.ShapeTypeChange(Sender: TObject);
const msoShapeOvalCallout= 107;
var Shape:variant;
begin
Shape:=Shapes.AddShape(msoShapeOvalCallout, left_,top_, 300, 200);
Shape.TextFrame.Characters.Text:='Вставляем текст в графический объект';
end;
Выноска, созданная с применением метода AddShape, представлена на
рис. 13.22.
Рис. 13.22. Выноска, созданная как произвольная фигура
Текст в созданный объект добавляем с помощью тех же методов, что и при
работе с объектом Callout, т. к. методы и свойства области текста
(TextFrame) для двух этих объектов полностью идентичны (рис. 13.23).
Рис. 13.23. Запись текста в созданную выноску |
Главная
Каталог файлов
