Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

Свойство Style TFont 


anod   (2002-04-20 11:02) [0]

Я записываю свойства шрифта в ини или реестр. Как мне быть со Style. Мне пришла тут идея:
if [fsBold] in form1.font.style then reg.writebool("FBold",true);
А при загрузке if reg.ReadBool("FBold") then form1.font.style:=form1.font.style+[fsbold];


А нельзя ли покороче, записать и считать за 1 раз.



Набережных С.   (2002-04-20 19:30) [1]

Да, пожалуй, можно:

FS:TFontStyles;

reg.WriteInteger("Style",Byte(Font.Style));

Byte(FS):=reg.ReadInteger("Style");
Font.Style:=FS;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.73 MB
Время: 0.018 c
4-2724            samos                 2002-02-27 11:28  2002.05.02  
Еще раз про реестр


3-2461            MCFire                2002-04-10 18:31  2002.05.02  
Как грамотно составить TreeView из таблицы?


7-2689            Borisb69              2002-02-06 11:22  2002.05.02  
Как расшарить диск


14-2674           AFROLOV               2002-03-27 15:30  2002.05.02  
А каким архиватором можно открыть файл с расширением HA


3-2440            AlanB                 2002-04-09 11:09  2002.05.02  
Не работает программа под WinXP