Hola
TRaduje el código de un ejemplo originalmente en Delphi a Lazarus.
Hace gráficos en un control TImage usando un componente no visual llamado TPantograph, el gráfico se dibuja bien pero al tratar de guardarlo en un archivo me da un error.
Código Delphi
[-]
procedure TSurface.ButtonWriteBMPClick(Sender: TObject);
VAR
Bitmap: TBitmap;
begin
Screen.Cursor := crHourGlass;
TRY
Bitmap := TBitmap.Create;
Bitmap.Width := 1024;
Bitmap.Height := 1024;
Bitmap.PixelFormat := pf8bit;
DrawSurface (Bitmap.Canvas, FALSE);
Bitmap.SaveToFile('Surface.BMP');
ShowMessage('Surface.BMP written to disk (1024-by-1024 pixels)')
FINALLY
Screen.Cursor := crDefault
END
end;
¿Alguien sabe si se trata de un bug de Lazarus o si hay un error al tratar de guardar el bitmap?
Saludos