Categories
Keywords
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;
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).
{
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;
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).
To share this: BlinkBits | BlinkList | Blogmarks | Co.mments | Connotea | Del.icio.us | Digg | Facebook | FrankIt | Furl | Ma.gnolia | Newsvine | Reddit | Yahoo
Applicable Keywords : Delphi, Delphi 1.x, Delphi 2.x, Delphi 3.x, Functions, Source Code
Previous Tip : How to add components to forms at run time
Random Tip : Control AutoPlay (dynamically) from your program
Next Tip : Add animated cursors to your program
Random Tip : Control AutoPlay (dynamically) from your program
Next Tip : Add animated cursors to your program