{

 Return TColor value in XXXXXX format

 (X being a hex digit)

}

function

 TColorToHex( Color : TColor )

   : string;

begin

 Result :=

   { red value }

   IntToHex( GetRValue( Color ), 2 ) +

   { green value }

   IntToHex( GetGValue( Color ), 2 ) +

   { blue value }

   IntToHex( GetBValue( Color ), 2 );

end;

{

 sColor should be in XXXXXX format

 (X being a hex digit)

}

function

 HexToTColor( sColor : string )

   : TColor;

begin

 Result :=

   RGB(

     { get red value }

     StrToInt( '$'+Copy( sColor, 1, 2 ) ),

     { get green value }

     StrToInt( '$'+Copy( sColor, 3, 2 ) ),

     { get blue value }

     StrToInt( '$'+Copy( sColor, 5, 2 ) )

   );

end;