blob: 057b7ed2e9a389bf2028d9182fb10c1c1350e05a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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.
|
