Настройка страницы определяется ее высотой, шириной, размерами полей,
ориентацией и другими параметрами, определяемыми через свойства объек-
та PageSetup, который, в свою очередь, принадлежит объекту-документу.
Для доступа к параметрам страницы используем следующий оператор, воз-
вращающий ссылку на объект:
PageSetup:=ActiveDocument.PageSetup;
Далее можно считывать или устанавливать параметры страницы документа,
но сначала рассмотрим краткую характеристику объекта PageSetup (табл. 8.1).
Таблица 8.1. Свойства и методы объекта PageSetup
Создадим новый документ и с помощью объекта PageSetup определим его
основные параметры. Для этого используем форму в виде диалога
(рис. 8.20). После создания диалога его элементы управления будут содер-
жать информацию об ориентации страницы, ее размерах, полях и стиле вер-
тикального выравнивания текста. Используя эти же элементы управления,
мы можем изменить основные параметры страницы, например, ориентацию
(книжная/альбомная), стиль вертикального выравнивания, размер бумаги и
величины левого и верхнего полей. Рассмотрим следующую процедуру.
Определение параметров страницы
procedure TOKBottomDlg7.FormCreate(Sender: TObject);
begin
PageSetup:=Forml.W.ActiveDocument.PageSetup;
Orientation.Itemlndex:=PageSetup.Orientation;
VerticalAlignment.Itemlndex:=PageSetup.VerticalAlignment;
CheckBoxl.Checked:=PageSetup.LineNumbering.Active;
PageWidth.Value:=PageSetup.PageWidth;
PageHeight.Value:=PageSetup.PageHeight;
TopMargin.Value:=PageSetup.TopMargin;
LeftMargin.Value:=PageSetup.LeftMargin;
end;
На рис. 8.20 представлена форма, в элементах которой отображается счи-
танная из свойств объекта PageSetup активного документа информация
о параметрах страницы активного документа.
Рис. 8.20. Параметры страницы документа Word
Изменим некоторые параметры страницы. Например, установим альбомную
ориентацию и добавим вторую колонку для вывода текста, установив ее
ширину в 200 пикселов. Для этой цели используем свойства и методы кол-
лекции TextColumns объекта PageSetup. После изменения ориентации листа
с книжной на альбомную или наоборот, считаем новые значения ширины и
высоты страницы, а также новые величины полей.
Изменение некоторых параметров страницы
procedure TOKBottomDlg7.OrientationChange(Sender: TObj e c t ) ;
begin
PageSetup.Orientation:=Orientation.Itemlndex;
PageWidth. Value: =PageSetup. PageWidth;
PageHeight.Value:=PageSetup.PageHeight;
TopMargin.Value:=PageSetup.TopMargin;
LeftMargin.Value:=PageSetup.LeftMargin;
end;
procedure TOKBottomDlg7.ButtonlClick(Sender: TObject);
begin
i f PageSetup.TextColumns.count<2 then
PageSetup.TextColumns.Add(200);
end;
Рис. 8.21. Измененная страница документа Word
Вторая процедура добавляет новую текстовую колонку, если число колонок
меньше двух. После выполнения этих манипуляций страница будет выгля-
деть так, как показано на рис. 8.21. |
Главная
Каталог файлов
