сохранение настроек в ini

[raxp]

не понятно что такое CLD, clf

зрим...

var CLD: TfontDialog;

а по типу данных

CLD.Font:= clf;

можно догадаться, что clf: tfont

[apocalypce]

да интересный топик, возьму на заметку скоро тоже понадобиться))
у меня вот так вышло:

var tmp : tinifile;
number : integer;
begin
   tmp := tinifile.create('d:\ggg.ini');
   FontDialog1.Execute;
   number := 0;
   if fsBold in FontDialog1.Font.Style then
     number := 1;
   if fsItalic in FontDialog1.Font.Style then
     number := number + 2;
   if fsUnderline in FontDialog1.Font.Style then
     number := number + 4;
   if fsStrikeOut in FontDialog1.Font.Style then
     number := number + 8;
   tmp.WriteInteger('Fonts', 'Style', number);
   tmp.Destroy;

var tmp : tinifile;
number : integer;
begin
   tmp := tinifile.create('d:\ggg.ini');
   number :=    tmp.ReadInteger('Fonts', 'Style', 0);
   if number = 0 then Label1.Font.Style:= [];
   if number - 8 >= 0 then begin
     Label1.Font.Style:=[fsStrikeOut];
     number := number - 8;
   end;
   if number - 4 >= 0 then begin
     Label1.Font.Style:=Label1.Font.Style + [fsUnderline];
     number := number - 4;
   end;
   if number - 2 >= 0 then begin
     Label1.Font.Style:=Label1.Font.Style + [fsItalic];
     number := number - 2;
   end;
   if number - 1 >= 0 then begin
     Label1.Font.Style:=Label1.Font.Style + [fsBold];
     number := number - 1;
   end;
   tmp.Destroy;

только в font диалог не сохраняет выбранный стиль!помогите исправить!

[IpCod]

спасибо apocalypce и raxp а почему не сохраняет стиль выбранного шрифта???

[raxp]

Сообщение от IpCod

спасибо apocalypce и raxp а почему не сохраняет стиль выбранного шрифта???

- обращаю ваше внимание еще раз на свой код...

clf.Style:= cld.Font.Style; fns:=clf.Style; Move(fns,fnt,1); // тут мы типизируем параметр стиля (это избавляет от метода сохранения стиля с выбором от - apocalypce)

ini.WriteInteger('osd','st',fnt); // тут мы его сохраняем

p.s.: как работает данная процедура для выбора шрифта OSD индикации вы можете увидеть скачав http://raxp.radioliga.com/cnt/s.php?p=ram.zip
после запуска выбрав правой кнопке через меню -"Настройки/Опции/Шрифт OSD", все параметры выбранного шрифта сохраняются и читаются... в том числе и стиль

[IpCod]

у меня не компилиться! может что то надо в uses прописать?? или процедуру какую нить!??? курсор торчит тут когда пытаюсь скомпилить

CLD.Font:= clf;