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