Andorra 2D und UpdateLayeredWindow

[nuclearping]

Sollte so gehen:

Delphi-Quellcode:

var
  AdBitmap: TAdBitmap;
  Bitmap: TBitmap;
begin
  AdBitmap := TAdBitmap.Create;
  Bitmap := TBitmap.Create;
  try
    AdBitmap.ReserveMemory(Breite, Höhe);
    Image.Texture.Texture.SaveToBitmap(AdBitmap);

    Bitmap.PixelFormat := pf24Bit;
    Bitmap.Width := Breite;
    Bitmap.Height := Höhe;
    AdBitmap.AssignTo(Bitmap);
    
    Bitmap.SaveToFile('C:\Temp\Bitmap.bmp');
  finally
    AdBitmap.Free;
    Bitmap.Free;
  end;
end;