Auf jeden Fall funktioniert es ja nicht. Nicht mit $FE5334 und nicht mit $5334FE, was auch immer richtig ist.
Hier funktioniert es. Dies ist mein Code:
Delphi-Quellcode:
var b : TBitmap;
pxc: TColor;
hxc : string;
begin
b := TBitmap.Create();
try
b.Transparent := true;
b.TransparentColor := $005334FE;
b.LoadFromFile('c:\Users\Uwe\Downloads\Koenig_weiss.bmp');
Image1.Picture.Graphic := b;
Image1.Transparent := True;
if (Image1.Picture.Bitmap.Canvas.Pixels[0, 0] = $5334FE) then ShowMessage('toll'); // kommt!
pxc := Image1.Picture.Bitmap.Canvas.Pixels[0, 0];
hxc := IntToHex(ColorToRGB(pxc), 6);
ShowMessage(hxc); // zeigt 5334FE
finally
b.Free;
end;
end;