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;