Farbe speichern und wiedergeben

[Popov]

Den feinen Unterschied merkt man hier:

Delphi-Quellcode:

  ShowMessage(ColorToString(clWhite));
  ShowMessage(IntToStr(clWhite));

  ShowMessage(ColorToString(clWindowText));
  ShowMessage(IntToStr(clWindowText));

[Headbucket]

Zitat von Popov:

Den feinen Unterschied merkt man hier:

Delphi-Quellcode:

  ShowMessage(ColorToString(clWhite));
  ShowMessage(IntToStr(clWhite));

  ShowMessage(ColorToString(clWindowText));
  ShowMessage(IntToStr(clWindowText));

Was soll man hier für einen Unterschied erkennen?

ShowMessage(ColorToString(clWhite)); -> clWhite
ShowMessage(IntToStr(clWhite)); -> 16777215
ShowMessage(ColorToString(clWindowText)); -> clWindowText
ShowMessage(IntToStr(clWindowText)); -> -16777208

Da TColor folgendermaßen definiert ist
type TColor = -2147483648..2147483647; also alles wie zu erwarten.

Ich muss gestehen, dass ich aber auch meist einfach direkt den Interger-Wert abspeichere.

Grüße

[Popov]

Zitat von Headbucket:

Was soll man hier für einen Unterschied erkennen?

Genau den.

[Jasocul]

Ist das nicht völlig Wurst, wie man es speichert?

Eine INI-Datei manuell zu verändern sollte nicht Sache eines "dummen" Anwenders sein. Also hantieren nur "Fachleute" damit.

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

Für die Handhabung innerhalb des Programms ist es egal, ob da Strings oder Zahlen sind. Die Farben werden richtig gesetzt.

Der Vorteil von Zahlen ist dabei, dass die immer umgesetzt werden können. Zumindest, solange diese im Integer-Bereich sind. Strings sind zwar lesbarer, aber bei manueller Änderung können kleine Tipp-Fehler evtl. sogar eine Exception auslösen (habe ich jetzt nicht extra geprüft). OK, das kann man sicher auch im Programm abfangen. Ein Tippfehler bei einer Zahl, hat höchstens einen belustigenden Effekt.

Ich werde daher weiterhin Farben als Zahlenwert speichern.

Aber jeder, wie er mag.

[baumina]

Zitat von Jasocul:

Also hantieren nur "Fachleute" damit.

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

Dann steht der Hexwert drin, genau so wie die "Fachleute" es aus dem Objektinspektor gewohnt sind.

[BadenPower]

Mir stellt sich nun aber eine andere Frage:

Hat der TE inzwischen sein "Problem" gelöst und was hat "beim Laden nicht geklappt"?

[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;