PTCError: Cannot recycle because it is not alredy open
lazarus / 39-Graphics

----------------------------------------------------------------------
mimill · 2021-02-07 19:59

I have following part of program to make DOS Graphics with fclimage.
Therefore the TFPfclCanvas class.

Code: [Select]constructor TFPfclCanvas.Create;   //TFPfclCanvas, weil
eigene neu abgeleitete Klasse
begin
    inherited;
    FHashWidth := DefaultHashWidth;
    FFont := DoCreateDefaultFont;
    FPen  := DoCreateDefaultPen;
    FBrush := DoCreateDefaultBrush;
   
    FConsole:= TPTCConsoleFactory.CreateNew;
   
    FFormat := TPTCFormatFactory.CreateNew(32, $00FF0000, $0000FF00,
$000000FF);
   
    FConsole.Open('Canvas',SCREENWIDTH,SCREENHEIGHT,FFormat,1);      
                           //Here the debugger does stop
   
    FSurface := TPTCSurfaceFactory.CreateNew(SCREENWIDTH,
SCREENHEIGHT, fformat);
end;

Now i get the EPTCError as shown in the thread title.

What is going wrong here? Why i get this error?

----------------------------------------------------------------------
mimill · 2021-02-11 12:10

The error is in PTC or Freepascal 3.0.4! With Freepascal 3.0.2 PTC
graphics is working!

If the PTC graphics not changed in Freepascal 3.0.4, the error is in
Freepascal!