TVideoDriver

type TVideoDriver = record

  InitDriver: procedure;

Initializes the driver.

  InitEnhancedDriver: procedure;

  DoneDriver: procedure;

Finalizes the driver (used for cleanup).

  UpdateScreen: procedure(

Force an update of the screen.

  Force: Boolean

);

  UpdateScreenArea: procedure(

  const X1: Word;

  const Y1: Word;

  const X2: Word;

  const Y2: Word;

  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.

  GetActiveCodePage: function: TSystemCodePage;

  ActivateCodePage: procedure(

  CodePage: TSystemCodePage

);

  GetSupportedCodePageCount: function: Integer;

  GetSupportedCodePage: function(

  Index: Integer

):TSystemCodePage;

end;