1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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.
|
