Сохранение стиля шрифта в ini фаил

← →
Destroyer © (2005-07-22 22:30) [0]

Надо сохранить настройки шрифта в ini фаил, чтобы потом их загрузить. Никак не получается сохранить стиль шрифта Font.style, т.к. это и не строковая переменная и не численная. Как мне это осуществить?

← →
Андрей Молчанов (2005-07-22 22:39) [1]

Записывать 4 логических выражения - подчеркнут, жирный, курсив, зачеркнут. Наверное.

← →
Ученик (2005-07-22 22:42) [2]

>Destroyer © (22.07.05 22:30)

WriteInteger("SectionName", "KeyName", Byte(Font.Style));

← →
Destroyer © (2005-07-22 22:44) [3]

Я пытаюсь так:
if Font.Style=fsBold then
tmpfontstyle:="bold";
if Font.Style=fsItalic then
tmpfontstyle:="italic";
if Font.Style=fsUnderline then
tmpfontstyle:="underline";
if Font.Style=fsStrikeOut then
tmpfontstyle:="strikeout";
Получается ошибка Incompatible types. Как вообще узнать какой стиль у данного шрифта?

← →
Destroyer © (2005-07-22 22:49) [4]

Ученик, спасибо.

← →
Mx © (2005-07-22 22:49) [5]

Надо так:
if fsBold in Font.Style then
tmpfontstyle:="bold";
if fsItalic in Font.Style then
tmpfontstyle:="italic";
if fsUnderline in Font.Style then
tmpfontstyle:="underline";
if fsStrikeOut in Font.Style then
tmpfontstyle:="strikeout";

← →
Destroyer © (2005-07-22 23:15) [6]

А как правильно загрузить? Так не получается:
if fontstyle=2 then Font.Style:=fsItalic;
if fontstyle=1 then Font.Style:=fsBold
...
И еще, как называются смешанные стили, а то найти никак не могу.

← →
Ученик (2005-07-22 23:19) [7]

Ученик, еще раз спасибо.

> Destroyer © (22.07.05 23:15) [6]
> И еще, как называются смешанные стили, а то найти никак
> не могу

Никак не называются. TFontStyles - это набор, а не перечисляемый тип. Поэтому у тебя и был "Incompatible types". Вариант "Ученик"а безусловно лучше.

Сохранение стиля шрифта в ini фаил Найти похожие ветки