TVideoDriver

type TVideoDriver = record

  InitDriver: procedure;

  InitEnhancedDriver: procedure;

  DoneDriver: procedure;

  UpdateScreen: procedure(

  Force: Boolean

);

  UpdateScreenArea: procedure(

  const X1: Word;

  const Y1: Word;

  const X2: Word;

  const Y2: Word;

  Force: Boolean

);

  ClearScreen: procedure;

  SetVideoMode: function(

  const Mode: TVideoMode

):Boolean;

  GetVideoModeCount: function: Word;

  GetVideoModeData: function(

  Index: Word;

  var Data: TVideoMode

):Boolean;

  SetCursorPos: procedure(

  NewCursorX: Word;

  NewCursorY: Word

);

  GetCursorType: function: Word;

  SetCursorType: procedure(

  NewType: Word

);

  GetCapabilities: function: Word;

  GetActiveCodePage: function: TSystemCodePage;

  ActivateCodePage: procedure(

  CodePage: TSystemCodePage

);

  GetSupportedCodePageCount: function: Integer;

  GetSupportedCodePage: function(

  Index: Integer

):TSystemCodePage;

end;