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

Материал из DRKB

Хранение стилей шрифта[править | править код]

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


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