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