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

* Added check if visual is NIL (=error...)

Browse Source 
* Prints resolution on terminal (because GGI will use an unknown default mode)
This commit is contained in:
sg 1999-11-12 18:51:24 +00:00
parent 0c5835d112
commit f9aff18868
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/ggi/demos/ggi1.pp
View File

@ -40,14 +40,21 @@ begin
Visual := ggiOpen(nil, []); // Open default visual Visual := ggiOpen(nil, []); // Open default visual
if not Assigned(Visual) then begin
WriteLn(StdErr, 'Could not get default visual');
Halt(3);
end;
ggiSetFlags(Visual, GGIFLAG_ASYNC); ggiSetFlags(Visual, GGIFLAG_ASYNC);
ggiParseMode('', mode); ggiParseMode({'S640x480[GT_8BIT]'}'', mode);
ggiSetMode(Visual, mode); ggiSetMode(Visual, mode);
ggiGetMode(Visual, mode); ggiGetMode(Visual, mode);
ScreenW := mode.Virt.x; ScreenW := mode.Virt.x;
ScreenH := mode.Virt.y; ScreenH := mode.Virt.y;
WriteLn('Screen size: ', ScreenW, ' x ', ScreenH);
White := ggiMapColor(Visual, WhiteColor); White := ggiMapColor(Visual, WhiteColor);
for i := 1 to StarCount do begin for i := 1 to StarCount do begin
@ -89,7 +96,11 @@ end.
{ {
$Log$ $Log$
Revision 1.1 1999-11-10 14:14:34 sg Revision 1.2 1999-11-12 18:51:24 sg
* Added check if visual is NIL (=error...)
* Prints resolution on terminal (because GGI will use an unknown default mode)
Revision 1.1 1999/11/10 14:14:34 sg
* Added to CVS * Added to CVS
} }