Farbe speichern und wiedergeben

[Perlsau]

Zitat von Popov:

TColor ist zwar nicht Integer, passt aber mit 4 Byte in den Integer. Somit ist das kein Problem: ShowMessage(IntToStr(Color)); .

Selbstverständlich kann man TColor auch einen Integer zuweisen, schließlich mache ich das seit Jahr & Tag ganz genau so, um diverse Farbeinstellungen aus der Datenbank zu lesen:

Delphi-Quellcode:

  GLD.FarbeBrowse      := DatMod.Qset_Benutzer.FieldByName('FARBEBROWSE').AsInteger;
  GLD.FarbeEdit        := DatMod.Qset_Benutzer.FieldByName('FARBEEDIT').AsInteger;
  GLD.FarbeAppend      := DatMod.Qset_Benutzer.FieldByName('FARBEAPPEND').AsInteger;

wobei diese Variablen als TColor deklariert sind:

Delphi-Quellcode:

Var
  FarbeBrowse,
  FarbeEdit,
  FarbeAppend   : TColor;

Du siehst: TColor ist praktisch ein Integer, da voll zuweisungskompatibel.