Recent

Author Topic: Switching between CRT/graphics modes in FPC  (Read 2674 times)

userd157

  • Newbie
  • Posts: 1
Switching between CRT/graphics modes in FPC
« on: March 06, 2014, 12:26:34 pm »
Dear all,

I am a new user of FPC (used to do all my stuff in Borland Pascal 7). In the program below (you may have to run the .exe file) I request an instruction from a CRT screen, activate a graphics page, and then switch back to the CRT screen. However, when I return, the text on the CRT screen is completely wrong. I'm sure I'm doing something wrong here, but haven't got a clue what it could be. Any suggestions? Also regarding the creation of the graphics image, etc?

PS: Forgot to add - I have written numerous bits of BP7 code over the past 20 years or so for engineering designing - it is an impossible task to rewrite all of these in any other language. FPC looks like a godsend - your assistance will be tremendously appreciated!

program TestGraphics;
 uses DOS,Crt,graph;

 var cc:char;
     Xmax,Ymax,gm,Gdr,FT:integer;

 begin
   cc:=#00;
   FT:=1;
   repeat
     ClrScr;
     if FT=1 then
        begin
          writeln('Graphics test program');
          writeln;
          write('Press G to create a graphics page or ESC to exit: ');
          FT:=2;
          cc:=readkey;
        end else
        begin
          writeln('Continuing test run');
          writeln;
          write('Press g again else ESC to exit: ');
          cc:=readkey;
        end;
     if upcase(cc)='G' then
       begin
         gm:=0;
         Gdr:=Detect;
         Initgraph(Gdr,gm,'');
         Xmax:=GetMaxX;
         Ymax:=GetMaxY;
         line(1,1,Xmax,Ymax);
         OutTextXY(10,10,'Press any key to continue ...');
         cc:=readkey;
         closegraph;
         cc:=#00;
       end;

   until cc=#27;
 end.
« Last Edit: March 06, 2014, 12:38:07 pm by userd157 »