Transparenz-Farbe von TImage ändern

[Uwe Raabe]

Was bringt dich denn auf diese Idee?

Zitat:

// ...das hier #5334FE (hex) zurückgibt, was ja $FE5334 (delphi) ist

Hier mal die Implementierung:

Delphi-Quellcode:

function ColorToRGB(Color: TColor): Longint;
begin
  if Color < 0 then
    Result := GetSysColor(Color and $000000FF) else
    Result := Color;
end;