Хранение стилей шрифта
Материал из 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