GetCursorType

Get screen cursor type

Declaration

Source position: videoh.inc line 139

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

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.