Важным свойством текста в Excel является шрифт отображаемых значений
ячеек и текста других объектов. Для ячеек шрифт является одним из
свойств объекта Range, при этом в одной ячейке не может быть, например,
два фрагмента текста с разным шрифтом. Шрифт определяется свойством
Font ячейки или области ячеек. Шрифт по существу тоже является объек-
том со своими свойствами, определяющими те или иные характеристики
отображения текста. Свойства объекта Font и их характеристика представ-
лены в табл. 12.3.
Таблица 12.3. Свойства объекта Font
Программистов Delphi в первую очередь будет интересовать, каким образом
шрифт стандартных объектов разрабатываемых приложений может соответ-
ствовать объекту Font, принадлежащему объекту Excel.Application и подчи-
ненным объектам. Иными словами — как управлять шрифтом создаваемых
документов в Excel из приложений. В Delphi свойства шрифта несколько
отличаются от свойств шрифта в Excel, поэтому чтобы решить проблему
согласования, достаточно написать небольшую процедуру, преобразующую
свойства шрифта Delphi в свойства шрифта Excel. Вот пример такой про-
цедуры.
Выбор шрифта для текста ячейки
function SetFontRange(range_:variant; font:Tfont):boolean;
begin
SetFontRange:=True;
try
Range_.Font.Name:=font.Name;
if fsBold in font.Style
then Range_.Font.Bold:=True
else Range_.Font.Bold:=False;
if fsltalic in font.Style
then Range_.Font.Italic:=True
else Range_.Font.Italic:=False;
Range_.Font.Size:=font.Size;
if fsStrikeOut in font.Style
then Range_.Font.Strikethrough:=True
else Range_.Font.Strikethrough:=False;
if fsUnderline in font.Style
then Range_.Font.Underline:=xlUnderlineStyleSingle
else Range_.Font.Underline:=xlUnderlineStyleNone;
Range_.Font.Color:=font.Color;
except
SetFontRange:=false;
end;
end;
procedure TOKBottomDlg8.Button1Click(Sender: TObject);
begin
i f not FontDialog1.Execute then exit;
SetFontRange(range,FontDialog1.Font);
end;
На рис. 12.25 видно изменение шрифта ячейки, полученное с помощью
представленного программного кода
Рис. 12.25. Настройка шрифта |
Главная
Каталог файлов
