bei DelphiWorks gibts ne function dafür
Delphi-Quellcode:
function dwColorToHTMLColor(
const Color: TColor):
String;
var
iR, iG,
iB: Byte;
begin
iR:= GetRValue(Color);
iG:= GetGValue(Color);
iB:= GetBValue(Color);
result:= Format('
#%.2x%.2x%.2x', [iR, iG,
iB]);
end;