ColorBox - Color zu Hexcolor machen

[scp]

Delphi-Quellcode:

var
  r, g, b: Byte;
  aColor: TColor;
  RGB: String[6];
begin
  R := GetRValue( AColor );
  G := GetGValue( AColor );
  B := GetBValue( AColor );
  RGB := IntToHex(r, 2)+IntToHex(g, 2)+IntToHex(b, 2);
end;