Farbkonvertierung scheint fehlerhaft!?

[mirage228]

Hi,

versuche es mal mit dieser Funktion:

Delphi-Quellcode:

function HTML2Color(const HTML: String): Integer;
var
  Offset: Integer; 
begin 
  if HTML[1] = '#' then
    Offset := 1
  else
    Offset := 0;
  Result :=
    Integer(StrToInt('$' + Copy(HTML, Offset + 1, 2))) +
    Integer(StrToInt('$' + Copy(HTML, Offset + 3, 2))) shl 8 +
    Integer(StrToInt('$' + Copy(HTML, Offset + 5, 2))) shl 16;
end;

Edit: Und noch die Umkehrfunktion:

Delphi-Quellcode:

function Color2HTML(Color: TColor): String;

  function Swap(Color: TColor): TColor;
  begin 
    Result := 
      Color and $FF0000 shr 16 + 
      Color and $00FF00 + 
      Color and $0000FF shl 16; 
  end;

begin 
  try 
    Result := '#' +
      IntToHex(Byte(Color), 2) +
      IntToHex(Byte(Color shr 8), 2) +
      IntToHex(Byte(Color shr 16), 2);
  except 
    Result := '#000000'; 
  end; 
end;

mfG
mirage228