RGB aus Farbe auslesen

[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. ^^