mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 11:29:24 +02:00
42 lines
908 B
ObjectPascal
42 lines
908 B
ObjectPascal
Program inigraph1;
|
|
|
|
{ Program to demonstrate static graphics mode selection }
|
|
|
|
uses graph;
|
|
|
|
|
|
const
|
|
TheLine = 'We are now in 640 x 480 x 256 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 640x480x256 }
|
|
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.
|