Вниз
Скачать: CL | DM;

Сохранение стиля шрифта в 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]
Font.Style := TFontStyles(Byte(ReadInteger("SectionName", "KeyName", 0)));


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

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


← →
Mx ©   (2005-07-23 00:38) [9]


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
3-1120425439
eLimar
2005-07-04 01:17
2005.08.14
Индексы Foxpro (cdx)


1-1122475950
Андрей Молчанов
2005-07-27 18:52
2005.08.14
Свой VCL


4-1118609407
g-l-u-k
2005-06-13 00:50
2005.08.14
SetDlgItemText


5-1092989057
Igor_S
2004-08-20 12:04
2005.08.14
Нужна реализаци компонента с регулируемой прозрачностью


1-1122406485
Michael5
2005-07-26 23:34
2005.08.14
Компонент TTreeView: как выровнять по левому краю некоторые узлы?




   Наверх