Firemonkey - Inhalte von TLayer3D als Bild speichern - Wie?

[mkinzler]

Delphi-Quellcode:

var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create( Layer3D1.Width, Layer3D1.Height);
  Layer3D1.PaintToBitmap(bmp, 1024, 576, $FF000000);
  bmp.SaveToFile('c:\temp\test.bmp');
  bmp.Free;