Webfarben nutzen

[xaromz]

Hallo,

ich weiß nicht, ob Delphi das automatisch macht, aber man sollte lieber Shiften. Multiplikation ist immer etwas langsam:

Delphi-Quellcode:

function HexNumberToDec(AValue: Char): Cardinal; 
begin 
  case AValue of 
    '0'..'9': Result := Ord(AValue) - 48; 
    'A'..'F': Result := Ord(AValue) - 55; 
    'a'..'f': Result := Ord(AValue) - 87; // <- Kleinbuchstaben vergessen
  end; 
end; 

function HTMLColorToColor(const Color: String): TColor; 
begin 
  Result := HexNumberToDec(Color[2])  + HexNumberToDec(Color[3]) shl 4
    + HexNumberToDec(Color[4]) shl  8 + HexNumberToDec(Color[5]) shl 12
    + HexNumberToDec(Color[6]) shl 16 + HexNumberToDec(Color[7]) shl 20; 
end;

Gruß
xaromz