so ich hab jetzt ein schönes ergebnis was perfekt funktioniert.
Delphi-Quellcode:
function TFHTMLExport.ColorToHTML(AColor : TColor) : string;
var
ATemp : LongInt;
begin
Result := '';
ATemp := ColorToRGB(AColor);
Result := Format('#%.2x%.2x%.2x', [GetRValue(ATemp),
GetGValue(ATemp),
GetBValue(ATemp)]);
end;
lang hats gedauert
aber hier die funktion fals soetwas nocheinmal jemand brauchen sollte...
Greetz