mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 06:39:39 +02:00
21 lines
425 B
ObjectPascal
21 lines
425 B
ObjectPascal
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.
|