GetCursorType

Get screen cursor type

Declaration

Source position: videoh.inc line 139

  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
GetCapabilities Get current driver capabilities.
SetCursorType Set cursor type

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.