[Robert01]

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