Farbe speichern und wiedergeben

[uligerhardt]

Zitat von Jasocul:

Im aktuellen Beispiel: Was steht denn drin, wenn ich keine Standard-Farben nehme und die String-Variante verwende? Vermutlich auch wieder Zahlen.

In GraphUtil gäbe es auch noch ColorToWebColorName/WebColorNameToColor. Damit würdest du mehr Farben abdecken.

[Rippo]

Habs gelöst

ich hab übesehen das die procedure ganz unten war und hab die LoadColorSettings in OnShow gemacht
jetzt gehts

[Rippo]

Andere Frage zu TButtonColor

Wenn ich die farbe auswähle, wie schaffe ich es das sich diese Farbe auf die anderen Formulare überträgt und abgespeichert wird? und beim laden diese ausgwählte farbe erscheint?

Delphi-Quellcode:

procedure TfrmKonfig.ButtonColor1Click(Sender: TObject);
begin
  Color := ButtonColor1.SymbolColor;
end;

Delphi-Quellcode:

                   //Farbe Speichern
procedure TfrmKonfig.SaveColorSettings;
const
  IniName = 'C:\Color.ini';
var
  Ini: TIniFile;
  Color : Integer;
begin
 Ini := TIniFile.Create(IniName);
 try
   Ini.WriteInteger('Farben', 'Ident', Color);
 finally
   Ini.Free;
 end;
end;
                   // Farbe wiedergeben
procedure Tfrmkonfig.LoadColorSettings;
const
  IniName = 'C:\Color.ini';
var
  Ini: TIniFile;
  Color : Integer;
Begin
  Ini := TIniFile.Create(IniName);
  try
   Color := TColor(Ini.ReadInteger('Farben','Ident', Color));
   //frmKonfig.Color := TColor(Ini.ReadInteger('farben', 'Ident', Color));
  finally
   Ini.Free;
  end;
end;

Delphi-Quellcode:

procedure TfrmKonfig.btnSpeichernClick(Sender: TObject);
 begin
    Color := ButtonColor1.SymbolColor;
    SaveColorSettings;
 end;

Delphi-Quellcode:

procedure TfrmKonfig.FormShow(Sender: TObject);
begin
    LoadColorSettings;
end;

[Bjoerk]

Zum Beispiel so. Für jede Form eine ander Section wählen. In FormCreate load und in FormDestroy Save ausführen.

Delphi-Quellcode:

  function LoadFormColorFromIniFile(const FileName, Section: string): TColor;
  procedure SaveFormColorToIniFile(const FileName, Section: string; const Color: TColor);