RGB aus Farbe auslesen

[citybreaker]

Hallo,

wie kann ich die RGB Farbe aus einer anderen Farbe auslesen.
Also, wenn die Form clSilver ist möchte ich das in einem Label
die RGB Farben angezeigt werden.

[Alexander]

Kuck dir mal die Funktionen ColorToRGB, GetBValue, GetRValue und GetGValue an.

[himitsu]

wie funktioniert das mit der RGB funtion???

[citybreaker]

Hab nur was zu ColorToRgb gefunden. Alerdings hilft mir das nicht weiter wie
ich das ganze nun anzeigen lasse.

[Alexander]

Du willst doch den RGB-Farbwert nachher anzeigen, richtig?
Dann kannst du mit ColorToRGB dir den Tcolor-Wert oin einen Integer umwandeln und mit den anderen drei Funktionen die jeweiligen Rot, Blau und Grün-Werte holen...

[citybreaker]

Vielen dank, habs nun hinbekommen. *ganz doll freu*

[MasterC]

Delphi-Quellcode:

function colortorgbcode(Farbe: TColor);
var
  Color: Longint;
  r, g, b: Byte;
begin
  Color := ColorToRGB(Farbe);
  r     := Color;
  g     := Color shr 8;
  b     := Color shr 16;
  Result:= (Inttostr(r) + ',' + Inttostr(g) + ',' + Inttostr(b));
end;
end;

Edit: Mist zu spät. ^^