Советы по Delphi

         

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


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

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

Для примера,

    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 в базе данных и назначить их соответствующим свойствам при загрузке.

- Robert Wittig [001117]



Содержание раздела