t_id
1025
t_adddate
2003/10/14
Flag
t_graph
set
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
480564654 | 940917 | False | True | Skipping test because it uses graph |
Record count: 1
{ %GRAPH } { %TARGET=go32v2,win32,linux } { Old file: tbs0037.pp } { tests missing graph.setgraphmode OK RTL (FK) } uses graph, crt; var gd,gm,res : integer; begin 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(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); closegraph; end.