TColor - Frage zu den Werten

[Hawkeye219]

Hallo Marcel,

so kannst du dir selbst eine Liste aller vordefinierten Farbkonstanten erstellen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    [...]
  private
    procedure ProcessColor (const S: string);
  end;

procedure TForm1.ProcessColor (const S: string);
const
  FMT = '%-30s   value=%.8x   rgb=%.8x';
var
  Color : TColor;
begin
  Color := StringToColor(S);
  Memo1.Lines.Add(Format(FMT, [S, Color, ColorToRGB(Color)]));
end;

procedure TForm1.Button1Click (Sender: TObject);
begin
  Memo1.Font.Name := 'Courier New';
  GetColorValues (ProcessColor);
end;

Und wundere dich nicht über ein abweichendes High-Byte bei den Systemfarben - es wurde durch Borland von $80 auf $FF geändert.

Gruß Hawkeye