Farbe speichern und wiedergeben

**Rippo**

Hallo

ich möchte mit meinem TButtonColor, die ausgewählte farbe speichern und beim neuladen soll die ausgewählte farbe erscheinen.

jedoch klappt das laden nicht.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SaveColorSettings();

const

  IniName = 'C:\Users\Color.ini';

var

  Ini: TIniFile;

  Color, i: Integer;

begin

 Ini := TIniFile.Create(IniName);

 try

   Ini.WriteInteger('Farben', ' i ', frmKonfig.Color);

 finally

   Ini.Free;

 end;

end;

procedure LoadColorSettings();

const

  IniName = 'C:\Users\Color.ini';

var

  Ini: TIniFile;

  i: integer;

  Color : Integer;

Begin

  Ini := TIniFile.Create(IniName);

  try

//frmKonfig.Color := StrToInt(Ini.ReadString('Farben', 'i', frmKonfig.Color));

//Color := Ini.ReadInteger('Farben',' i ', frmKonfig.Color);

//frmKonfig.Color := Color;

  finally

  Ini.Free;

end;

end;

markieren

Delphi-Quellcode:

			´procedure TfrmKonfig.btnSpeichernClick(Sender: TObject);

 begin

    Color := ButtonColor1.SymbolColor;

    SaveColorSettings();

 end;

kann mir einer bitte eine gute lösung vorschlagen ggf. ein beispiel geben?

Farbe speichern und wiedergeben

Farbe speichern und wiedergeben

Forumregeln