GetVideoMode
Return current video mode
Declaration
Source position: videoh.inc line 144
procedure GetVideoMode(var Mode: TVideoMode);
Description
GetVideoMode returns the settings of the currently active video mode. The row,col fields indicate the dimensions of the current video mode, and Color is true if the current video supports colors.
See also
| Name | Description |
|---|---|
| GetVideoModeData | Get the specifications for a video mode |
| SetVideoMode | Set current video mode. |
Example
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.