Sign in Join
FPDoc Onlineexperiment

GetCursorType function

In unit video

Get screen cursor type.

Declaration

pascal
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

Example: ex5

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.