Skip to content

    GetCursorType

    Get screen cursor type.

    Declaration

    Source position: videoh.inc line 224

    function GetCursorType : Word;

    Description

    GetCursorType returns the current cursor type. It is one of the following values:

    crHidden
    Hide cursor.
    crUnderLine
    Underline cursor.
    crBlock
    Block cursor.
    crHalfBlock
    Half block cursor.

    Note that not all drivers support all types of cursors.

    Errors

    None.

    See also

    Name Description
    SetCursorType Set cursor type.
    GetCapabilities Get current driver capabilities.

    Example

    Program Example5;

{ Program to demonstrate the GetCursorType function. }

Uses video,keyboard,vidutil;

Const
  Cursortypes : Array[crHidden..crHalfBlock] of string =
    ('Hidden','UnderLine','Block','HalfBlock');

begin
  InitVideo;
  InitKeyboard;
  TextOut(1,1,'Cursor type: '+CursorTypes[GetCursorType]);
  TextOut(1,2,'Press any key to exit.');
  UpdateScreen(False);
  GetKeyEvent;
  DoneKeyboard;
  DoneVideo;
end.