Еще одно свойство текста в Word — направление. Направление текста зада-
ется установкой свойства Orientation объекта Range в значение одной из
трех возможных констант.
Задание направления текста
const
wdTextOrientationUpward =2;
wdTextOrientationHorizontal =0;
wdTextOrientationDownward =3;
procedure TOKBottomDlg7.0rientationChange(Sender: TObject);
begin
case Orientation.itemindex of
0:table.Cell(Rowld.value,Columnld.value).Range.Orientation:=
wdTextOrientationUpward;
1:table.Cel1(Rowld.value,Columnld.value).Range.Orientation:=
wdTextOrientationHorizontal;
2:table.Cell(Rowld.value, Columnld.value).Range.Orientation:=
wdTextOrientationDownward;
end;
end;
Используем данную процедуру и установим направление текста в ячейке.
Результат выполнения данной процедуры представлен на рис. 7.13. |
Главная
Каталог файлов
