[Overview][Constants][Types][Procedures and functions][Variables] Reference for unit 'Video' (#rtl)

GetVideoDriver

Get a copy of the current video driver.

Declaration

Source position: videoh.inc line 114

procedure GetVideoDriver(

  var Driver: TVideoDriver

);

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.

Errors

None.

See also

SetVideoMode

  

Set current video mode.

GetVideoModeData

  

Get the specifications for a 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.