paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapted for new modes (and some safety checks)

Browse Source
This commit is contained in:
Jonas Maebe 2000-07-07 06:42:48 +00:00
parent 91ba06724a
commit d53ef30ed4
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/tbs/tbs0037.pp
View File

@ -14,16 +14,32 @@ uses
crt;
var
gd,gm : integer;
gd,gm,res : integer;
{$endif OK}
begin
{$ifdef OK}
gd:=detect;
initgraph(gd,gm,'');
res := graphresult;
if res <> grOk then
begin
graphErrorMsg(res);
halt(1);
end;
setviewport(0,0,getmaxx,getmaxy,clipon);
line(1,1,100,100);
{readkey;}
setgraphmode($107);
setgraphmode(m1024x768);
setviewport(0,0,getmaxx,getmaxy,clipon);
res := graphresult;
if res <> grOk then
begin
closegraph;
graphErrorMsg(res);
{ no error, graph mode is simply not supported }
halt(0);
end;
line(100,100,1024,800);
{readkey;}
delay(1000);