Hola buenos días.
¿Sabe alguien como utilizar el método PaintToBitmap de una cámara en FireMonkey?
Estoy tratando de hacer un "snapshot" (o captura) de un ViewPort3D pero no logro nada:
Tengo un form ("MiForm") con un ViewPort3D ("ViewPort3D1") en el que hay un texto3D ("Text3D1") mostrado desde la perspectiva de la cámara "Camera1":
Código Delphi
[-]
TMiForm = class(TForm)
Viewport3D1: TViewport3D;
Light1: TLight;
Text3D1: TText3D;
Image1: TImage;
Button2: TButton;
Camera1: TCamera;
procedure Button2Click(Sender: TObject);
end;
Al pulsar el botón ("Button2") hago que se muestre el contenido de la vista de la camara en un TImage que tengo en el formulario ("Image1") y además que se grabe en el archivo "prueba.gif".
Código Delphi
[-]
procedure TfrmAbout.Button2Click(Sender: TObject);
begin
Camera1.PaintToBitmap(Image1.Bitmap,1000,1000,1);
Image1.Bitmap.SaveToFile('prueba.gif');
end;
Lo que ocurre es que en el TImage no se muestra nada y el gif que se graba correctamente está vació (transparente)......
He probado con todos los parámetros del PaintToBitmap y un montón de valores pero nada....
¿?
Gracias y un saludo.