CONVERT YOUR TCOLORS TO HEX STRINGS

In Delphi, color is often represented using the TColor object. In HTML documents, color is usually represented using a 6 character hex string. Following function will convert TColor type color values to "Internet-style" color codes: 

 

{
  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;

Listing #1 : Delphi code. Download clr2hex (0.3 KB).

 

Need to convert a hex color string to a TColor variable? Try this:

 

{
  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;

Listing #2 : Delphi code. Download hex2clr (0.32 KB).

comments