Registriert seit: 20. Jun 2008
24 Beiträge
|
Styls in ini oder änlich speichern?
20. Jun 2008, 01:37
Hallo zusammen
ich habe da ein vermutlich kleines Problem wobei ich allerdings im Forum noch keine mögliche Antwort gefunden habe.
im oder auf einem Formular habe ich ein Panel "Panel1"
und möchte zur Laufzeit die Eigenschaften vom besagtem Panel in eine *.Ini oder ähnlicher Datei speichern.
>> Procedure:
procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: HWND);
begin
{Vorschau}
Panel1.Font.Name:= TFontDialog(Sender).Font.Name;
Panel1.Font.Size:= TFontDialog(Sender).Font.Size;
Panel1.Font.Color:= TFontDialog(Sender).Font.Color;
Panel1.Font.Style:= TFontDialog(Sender).Font.Style;
{Speichern}
Ini:= TIniFile.Create(GetApplicationDirectory + Form1.dPIX +'.css');
try
Ini.WriteString('Panel','Panel1FontName',Panel2.Fo nt.Name);
Ini.WriteInteger('Panel','Panel1FontSize',Panel2.F ont.Size);
Ini.WriteInteger('Panel','Panel1FontColor',Panel2. Font.Color);
//an dieser Stelle komme ich nicht weiter
Ini.____???_____('Panel','Panel1FontStyle',Panel2. Font.Style);
finally
ini.Free;
end;
end;
könnte mir jemand zu diesem Problem eine Unterstützung geben.
vielen Dank im vorraus
Detlef
ps: muss die Frage als offen markiert werden?
|