Transparenz-Farbe von TImage ändern

[Kevinpptx]

Zitat von 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;

Ich war unter der Auffassung. Auf jeden Fall funktioniert es ja nicht. Nicht mit $FE5334 und nicht mit $5334FE, was auch immer richtig ist. Obwohl es ja zu 100% diese Farbe ist. Vorher hat es ja auch funktioniert, ich habe nichts geändert. Jetzt nicht mehr.