TVideoDriver

type TVideoDriver = record

  InitDriver: procedure;

Initializes the driver

  DoneDriver: procedure;

Finalizes the driver (used for cleanup)

  UpdateScreen: procedure(

Force an update of the screen

  Force: Boolean

);

  ClearScreen: procedure;

Clear the screen

  SetVideoMode: function(

Set the video mode

  const Mode: TVideoMode

):Boolean;

  GetVideoModeCount: function: Word;

Get number of supported video modes

  GetVideoModeData: function(

Return data for the selected video mode

  Index: Word;

  var Data: TVideoMode

):Boolean;

  SetCursorPos: procedure(

Set the cursos position.

  NewCursorX: Word;

  NewCursorY: Word

);

  GetCursorType: function: Word;

Get the current cursor type.

  SetCursorType: procedure(

Set the current cursos type.

  NewType: Word

);

  GetCapabilities: function: Word;

Get the capabilities of the driver.

end;