blob: 51e0619e01fdad7fb3f416b1ceae5b2594dd30f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
Program Example6;
{ Program to demonstrate the GetLockScreenCount function. }
Uses video,keyboard,vidutil;
Var
I : Longint;
S : String;
begin
InitVideo;
InitKeyboard;
TextOut(1,1,'Press key till new text appears.');
UpdateScreen(False);
Randomize;
For I:=0 to Random(10)+1 do
LockScreenUpdate;
I:=0;
While GetLockScreenCount<>0 do
begin
Inc(I);
Str(I,S);
UnlockScreenUpdate;
GetKeyEvent;
TextOut(1,1,'UnLockScreenUpdate had to be called '+S+' times');
UpdateScreen(False);
end;
TextOut(1,2,'Press any key to end.');
UpdateScreen(False);
GetKeyEvent;
DoneKeyboard;
DoneVideo;
end.
|
