Bitmap: falsche Farben

[Phantom1]

Für TBitmap32 könnte es so aussehen:

Delphi-Quellcode:

function LoadBitmap32(FileName: TFileName; var Bmp32: TBitmap32): Boolean;
var
  Bmp24: TBitmap;
begin
  Bmp24:=TBitmap.Create;
  try
    LoadBitmap24(FileName, Bmp24);
    Bmp32.Assign(Bmp24);
  finally
    Bmp24.Free;
  end;
end;

Habs zwar nicht getestet, aber müsste gehen.

mfg