Как ранее было сказано, таблица создается в определенной области, кото-
рая определяется как аргумент метода Add. Таблица вставляется в промежу-
ток между символами текста или накладывается на область текста. Когда
таблица создана, мы можем изменить ее положение относительно левой
границы документа или по вертикальному направлению в документе. По-
ложение таблицы по вертикали определяется текстом, расположенным в
документе до таблицы. Положение таблицы относительно левой границы
страницы документа определяется свойствами самой таблицы. Рассмотрим
эти свойства подробней.
Таблица включает в себя коллекции, объекты и другие свойства. Коллекция
Rows объекта "таблица" определяет набор ее строк и общие свойства, при-
сущие им. Свойство Leftlndent этой коллекции определяет положение таб-
лицы относительно левой границы листа. Это свойство имеет числовой тип
и может принимать как положительные, так и отрицательные значения.
Используя значение Leftlndent, можно не только задать, но и изменить го-
ризонтальное положение таблицы. Как и сама коллекция Rows, элемент
этой коллекции, представляющий собой одну указанную строку, также име-
ет свойство Leftlndent. В данном случае оно определяет положение строки
относительно левой границы документа. Остается добавить, что доступ к
элементу коллекции Rows осуществляется через объект Item(i), где i — но-
мер строки. Попробуем изменить горизонтальное положение таблицы и вы-
бранной строки, для этого используем следующий программный текст:
Изменение горизонтального положения таблицы
procedure TOKBottomDlg4.ListBoxlClick(Sender: TObject);
begin
table:=Forml.W.ActiveDocument.Tables.item(ListBoxl.itemindex+1);
end;
procedure TOKBottomDlg4.LeftPosChange(Sender: TObject);
begin
table.Rows.Leftlndent:=LeftPos.value;
end;
procedure TOKBottomDlg4.LeftPosRowlChange(Sender: TObject);
begin
table.Rows.Item(1).Leftlndent:=LeftPosRowl.value;
end;
Результат выполнения программы представлен на рис. 7.4.
На рис. 7.4 также представлена форма, в которой задаются эти изменения.
Компонент ListBoxl выбирает таблицу из списка и помещает ссылку на таб-
лицу в переменную table типа variant. Компоненты LeftPos и LeftPosRowl
задают положение всей таблицы и первой строки соответственно.
Рассмотрим еще некоторые свойства коллекций и элементов коллекций
строк и столбцов, которые в большинстве своем аналогичны. Есть только
различия, определяемые расположением этих элементов таблицы — если
строки имеют параметр "высота", то столбцы имеют параметр "ширина".
В состав коллекций Rows и Columns входит свойство, содержащее количе-
ство строк и столбцов таблицы Count.
Доступ к отдельным строкам и столбцам осуществляется посредством объ-
екта Item(). Чтобы задать высоту строки, используем свойство Height эле-
мента коллекции Rows.Item(). Например: table.Rows.Item(l).Height:=21;. Для
задания высоты одновременно всех строк таблицы используйте оператор
table.Rows.Height:=21;. Если попытаться задать слишком маленькую высоту
строки, получим ошибку выполнения. Для задания ширины столбца ис-
пользуется свойство Width элемента коллекции Columns.Item(). Например,
для задания ширины первого столбца используем следующий оператор
Delphi: table.Columns.Item(l).Width:=43;. Для задания одинаковой ширины
всех столбцов используйте оператор table.Columns.Width:=43;.
Рис. 7.4. Задание положения таблицы относительно левой границы документа
Опубликовал Kest
September 14 2009 20:24:40 ·
0 Комментариев ·
5901 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
