Перевод символов в верхний или нижний индекс производится путем ис-
пользования объекта Font и его свойств Subscript и Superscript, имеющих
логический тип. Запись значения True в свойство Subscript переведет сим-
волы текста в нижний индекс, а запись True в свойство Superscript —
в верхний индекс. Перед использованием этих свойств объекта Font необ-
ходимо определить фрагмент (область) текста, к которому будут применены
эти изменения. Область текста определяется объектом Range, а объект Font
(шрифт) в свою очередь является свойством объекта Range. Поэтому про-
цедуры Delphi, реализующие перевод символов в верхний или нижний ин-
декс, могут быть, например, следующими.
Перевод символов текста в верхний и нижний индекс
procedure TForml.Button2Click(Sender: TObject);
begin
W.ActiveDocument.Range(1,10).Font.Subscript:=True;:
end;
procedure TForml.Button4Click(Sender: TObject);
begin
W.ActiveDocument.Range(11,20).Font.Superscript:=True;
end;
|
Главная
Каталог файлов
