Eigenschaft CustomColor von TColordialog

[KahPee]

Lösung gefunden:

Delphi-Quellcode:

function TColorToHex( Color : TColor ) : string;
begin
  Result :=

    IntToHex( GetBValue( Color ), 2 )+
    IntToHex( GetGValue( Color ), 2 )+
    IntToHex( GetRValue( Color ), 2 ) ;
end;



ColorDialog1.CustomColors[0]:='ColorA='+Tcolortohex(Pcol1.Color);
//...