Как мне сохранить свойство шрифта 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 в базе данных и назначить их соответствующим свойствам при загрузке.
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!