PTCError: Cannot recycle because it is not alredy open

[mimill]

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]

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!