[Overview][Constants][Types][Procedures and functions][Variables] |
Get a copy of the current video driver.
Source position: videoh.inc line 123
procedure GetVideoDriver( |
var Driver: TVideoDriver |
); |
GetVideoModereturns the settings of the currently active video mode. The row,colfields indicate the dimensions of the current video mode, and Coloris true if the current video supports colors.
None.
|
Set current video mode. |
|
|
Get the specifications for a video mode |
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.