Question:
How can I convert a TColor value to a HTML Color string?
Answer:
The following example demonstrates converting a TColor to
a RGB color, and formating the RGB color to be shown as
hexadecimal digits.
procedure TForm1.Button1Click(Sender: TObject);
var
TheRgbValue : TColorRef;
begin
if ColorDialog1.Execute then begin
TheRgbValue := ColorToRGB(ColorDialog1.Color);
ShowMessage(Format('%.2x%.2x%.2x',
[GetRValue(TheRGBValue),
GetGValue(TheRGBValue),
GetBValue(TheRGBValue)]));
end;
end;