- Код: Выделить всё
Program inigraph1 ;
{ Program to demonstrate static graphics mode selection}
uses graph ;
const
TheLine = 'Weare now in 640x480x256 colors!' +
' ( press <Return > to continue ) ';
var
gd,gm,lo,hi,error,tw,th:integer;
found:boolean ;
begin
{ We want an 8 bit mode }
gd:=D8bit ;
gm:=m640x480;
initgraph(gd,gm,'') ;
{Make sure you always check graphresult!}
error:=graphResult ;
if (error<>grOk ) Then
begin
writeln('640x480x256 is not supported!') ;
halt(1);
end;
{ We are now in 640 x480x256 }
setColor(cyan) ;
rectangle(0,0,getmaxx,getmaxy) ;
{ Write a nice message in the center of the screen }
setTextStyle(defaultFont,horizDir,1) ;
tw:=TextWidth(TheLine) ;
th:=TextHeight(TheLine) ;
outTextXY((getMaxX - TW) div 2,
(getMaxY - TH) div 2,TheLine) ;
{Wait for return}
readln ;
{Back to text mode}
closegraph ;
end.
Компилирую, запускаю из Венды - окно появилось и сразу же исчезло.
Запускаю из ФАР-а, в консоль мне пишет следующее:
C:\PP\bin\go32v2\Example>Primer.exe
Runtime error 216 at $000BAF04
$000BAF04
$00002064
$00002048
Тоже самое пишется в Debug/User Screen.
Если кто знает - помогите, плз!
З.Ы. за лемерство не долбать, я программирую всего 2 года...
