Хранение стилей шрифта

 Previous  Top  Next

    
 

 

 

Как мне сохранить свойство шрифта Style, ведь он же набор?

 

Вы можете получать и устанавливать FontStyle через его преобразование к типу byte.

 

Для примера,

Code:

Var

Style: TFontStyles;

begin

{ Сохраняем стиль шрифта в байте }

Style := Canvas.Font.Style; {необходимо, поскольку Font.Style - свойство}

ByteValue := Byte ( Style );

{ Преобразуем значение byte в TFontStyles }

Canvas.Font.Style := TFontStyles ( ByteValue );

end;

 

 

 

Для восстановления шрифта, вам необходимо сохранить параметры Color, Name, Pitch, Style и Size в базе данных и назначить их соответствующим свойствам при загрузке.

 

©Drkb::01951

       

Взято с http://delphiworld.narod.ru