zapis styli fontów do ini

0

W jaki sposób zapisać do pliku ini wartosci stylu uzytych fontow w programie (chodzi mi o fsBold,fsUnderline, itp.) prosze o przykład

0

zapis:

var
INI : TINIFile;
begin
INI := TINIFile.Create('c:\plik.INI');
try
INI.WriteInteger('Sekcja','Foncik', Byte(Font.Style));
finally
INI.Free;
end;
end;

odczyt:

var
INI : TINIFile;
begin
INI := TINIFile.Create('c:\plik.INI');
try
Font.Style := TFontStyles(Byte(INI.ReadInteger('Sekcja','Foncik', 0)));
finally
INI.Free;
end;
end;
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1