Hex to TColor

[Christian Seehase]

Moin Tpercon,

ich kann's jetzt nicht ausprobieren, aber Du kannst es mal so versuchen:

Code:

function RGBStrToColor(const p_sRGB : string) : TColor;
begin
  Result := 0;
  Result := StrToInt('$'+copy(p_sRGB,1,2)) or
           (StrToInt('$'+copy(p_sRGB,3,2)) shl 8) or
           (StrToInt('$'+copy(p_sRGB,5,2)) shl 16);
end;

function RGBToColor(const p_iRGB : integer) : TColor;
begin
  Result := 0;
  Result := ((p_iRGB and $FF0000) shr 16) or
            (p_iRGB and $FF00) or
            ((p_iRGB and $FF) shl 16);
end;

Das Problem ist ja, dass die HTML Farbwerte in der Reihenfolge RRGGBB angegeben werden, und bei TColor BBGGRR. Es müssen also zwei Bytes vertauscht werden.