colortostring - web

Prøv med denne funktion:

function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string;
var rgbColor: TColorRef;
begin
  if IsBackColor then
    Result := \'bg\'
  else
    Result := \'\';
  rgbColor := ColorToRGB(cl);
  Result := Result + \'color=\"#\' +
            Format(\'%.2x%.2x%.2x\',
                  [GetRValue(rgbColor),
                    GetGValue(rgbColor),
                    GetBValue(rgbColor)]) + \'\"\';
end;


Snowball

Eller måske denne:

How to converts color to HEX color for HTML

function ColorToHex(Color: integer): string;
var
r,g,b: byte;
begin
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
Result:=IntToHex(r,2)+IntToHex(g,2)+IntToHex(b,2);
end;

Snowball

1000 tak Snowball -

Hvordan vidste du egentligt det??

Selv tak !

Og hvordan jeg vidste det: Det gjorde jeg heller ikke, men det er en klog mand der engang har sagt: \"Søg, og du skal finde\" :)

Snowball