Выноска (объект Callout) является разновидностью надписи. Ее отличие за-
ключается в том, что к прямоугольной области, где размещается текст, до-
бавлена линия-указатель. Общими с надписью для выноски являются свой-
ства заливки и линии для области текста, а также свойства текста. Отличие
в том, что у выноски свойства линии применяются и к ломаной линии-
указателю. Есть и дополнительный объект Adjustments для описания линии-
указателя, содержащий описание параметров линии Adjustments.Item(i), где i
изменяется от 1 до Adjustments.Count (общее количество точек перелома
линии). Создается объект-выноска с помощью метода AddCallout(Type, Left,
Top, Width, Height, Anchor), где Type:integer — тип выноски, Left, Top,
Width, Height — координаты и размеры (имеют тип Extended), Anchor —
область, где создается выноска.
Создадим выноску с линией-указателем, описываемой тремя точками
(msoCalloutThree=3). Для этого используем следующую процедуру, записан-
ную в Delphi. Затем изменим горизонтальную координату внешней точки
линии-указателя.
Создание и настройка выноски
procedure TOKBottomDlg8.ButtonlClick(Sender:TObject);
begin
Forml.W.ActiveDocument.Shapes.AddCallout(msoCalloutThree,
100,10.15,200.25,100);
end;
procedure TOKBottomDlg8.SpinButtonlDownClick(Sender: TObject);
begin
Callout.Adj ustments.item(1):=Callout.Adj ustments.item[1]-0.01;
end;
Текст выноски имеет те же характеристики, что и текст надписи (объекта
TextBox), и записывается теми же методами, поэтому процесс записи текста
и настройки параметров шрифта здесь не описан. Внешний вид созданной
сноски представлен на рис. 8.14.
Рис. 8.14. Создание и настройка выноски |