mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-20 14:16:11 +02:00
29 lines
542 B
ObjectPascal
29 lines
542 B
ObjectPascal
Program Example7;
|
|
|
|
{ Program to demonstrate the GetVideoMode function. }
|
|
|
|
Uses video,keyboard,vidutil;
|
|
|
|
Var
|
|
M : TVideoMode;
|
|
S : String;
|
|
|
|
begin
|
|
InitVideo;
|
|
InitKeyboard;
|
|
GetVideoMode(M);
|
|
if M.Color then
|
|
TextOut(1,1,'Current mode has color')
|
|
else
|
|
TextOut(1,1,'Current mode does not have color');
|
|
Str(M.Row,S);
|
|
TextOut(1,2,'Number of rows : '+S);
|
|
Str(M.Col,S);
|
|
TextOut(1,3,'Number of columns : '+S);
|
|
Textout(1,4,'Press any key to exit.');
|
|
UpdateScreen(False);
|
|
GetKeyEvent;
|
|
DoneKeyboard;
|
|
DoneVideo;
|
|
end.
|