Рассмотрим некоторые свойства коллекции Shapes и ее элементов на при-
мере надписи (объекта TextBox). Для этого создадим в документе такой объ-
ект. Рассмотрим следующий фрагмент программы:
Создание надписи
procedure TForml.Button2Click(Sender:TObject);
const msoTextOrientationHorizontal=l;
var left_, top_:Extended;
begin
left_:=10.15;
top_:=10.15;
W.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,
left_, top_, 200.25, 100, W.ActiveDocument.Range)
end;
Примечание
Для задания координат надписи можно использовать переменные типа real, но
для Office XP необходимо использовать только тип Extended (var left ,
top_:Extended).
Для создания нового объекта мы используем метод AddTextbox коллекции
Shapes. Первый аргумент этого метода имеет тип integer и задает ориента-
цию расположения текста этого объекта, последний аргумент имеет тип
Range и определяет область, где будет создан объект, — в нашем случае
это активный документ. Остальные аргументы типа Extended определяют
координаты и размеры объекта. Для создания надписи с вертикальным
размещением текста необходимо в качестве первого аргумента исполь-
зовать константу msoTextOrientationVertical=5. С помощью константы
msoTextOrientationDownward=3 или msoTextOrientationUpward=2 можно за-
дать направление текста при вертикальной ориентации (сверху вниз или
снизу вверх).
Если описанную процедуру видоизменить так, чтобы при создании нового
объекта учитывались координаты и размеры последнего, а также размеры
страницы (см. приложение на сопроводительном диске книги), то ее вы-
полнение может привести к результату, представленному на рис. 8.1.
Рассмотрим методы элементов коллекции на примере коллекции объектов
TextBox, которую мы до этого создали. Для доступа к элементам коллекции
используем свойство Item(i), которое возвращает объект, где i — индекс или
имя объекта. Например:
WordTextBox:=W.ActiveDocument.Shapes.Item(1);
Рис. 8.1. Создание надписей
Данный оператор запишет в переменную WordTextBox:variant ссылку на
первый объект коллекции.
Общими свойствами и методами для объектов коллекции Shapes являются
размеры, координаты размещения объектов и некоторые методы, например
Delete и Select. Следующие операторы соответственно выполняют выделе-
ние объекта, выбранного с помощью предыдущего оператора, изменение
его координаты и удаление:
WordTextBox.Select;
WordTextBox.Left:=10;
WordTextBox.Delete;
Поскольку коллекция Shapes может содержать разнородные объекты, эти
объекты могут обладать и особыми свойствами. Объекты TextBox, создан-
ные методом AddTextBox и рассмотренные в предыдущем примере, предна-
значены для отображения текста, поэтому для них специфичны свойства и
методы для работы с текстом. Рассмотрим их.
Основным объектом, принадлежащим объекту TextBox и содержащим текст
и его характеристики, является объект TextFrame. Он определяет границы
области текста внутри рамки надписи, направление текста и некоторые дру-
гие характеристики. В свою очередь объект TextFrame включает в себя объ-
ект Range, который содержит текст и характеристики шрифта. Рассмотрим
следующую форму и исходный текст Delphi для манипуляций с текстом
объекта TextBox.
Работа с текстом надписи
var WordTextBox:variant;
//
// Загружаем в ListBoxl имена объектов коллекции Shapes
//из документа Word.
//
procedure T0KBottomDlg2.FormCreate(Sender:TObject);
var a_:integer;
begin
ListBoxl.Items.Clear;
for a_:=l to Forml.W.ActiveDocument.Shapes.Count do
ListBoxl.Items.Add(Forml.W.ActiveDocument.Shapes.Item(a_).Name);
end;
//
// При активизации строки объекта ListBoxl, используя имя объекта,
// выделяем его из коллекции Shapes и записываем ссылку на этот объект
/ / в переменную WordTextBox. Затем в компонент Text записываем текстовое
// содержимое этого объекта.
procedure TOKBottomDlg2.ListBoxlClick(Sender: TObject);
begin
Forml.W.ActiveDocument.Shapes.Item(
ListBoxl.Items.Strings[ListBoxl.Itemlndex]).Select;
WordTextBox:=Forml.W.ActiveDocument.Shapes.Item(
ListBoxl.Items.Strings[ListBoxl.Itemlndex]);
Text.Text:=WordTextBox.TextFrame.TextRange.Text;
end;
// При активизации компонента Text типа TEdit записываем введенный
// в него текст непосредственно в объект TextBox документа Word.
procedure TOKBottomDlg2.TextChange(Sender:TObject);
begin
WordTextBox.TextFrame.TextRange.Text:=Text.Text;
end;
II
II Следующие две процедуры регулируют величину отступа левой границы
// текста от левой границы надписи.
//
procedure T0KBottomDlg2.SpinButtonlDownClick(Sender:TObject);
begin
WordTextBox.TextFrame.MarginLeft:=WordTextBox.TextFrame.MarginLeft-0.25;
end;
procedure T0KBottomDlg2.SpinButtonlUpClick(Sender: TObject);
begin
WordTextBox.TextFrame.MarginLeft:=WordTextBox.TextFrame.MarginLeft+0. 25;
end;
Результат выполнения, описанного выше исходного текста, показан на
рис. 8.2.
Рис. 8.2. Работа с текстом надписи
Надпись, наряду с текстом и его свойствами, имеет параметры, определяю-
щие другие ее визуальные элементы — заливку (фоновый цвет) и линию
границы. Заливка определяется цветом, текстурой, рисунком или узором.
Линия границы определяется толщиной, цветом, узором и стилем. Рассмот-
рим формирование заливки надписи.
|
Главная
Каталог файлов
