GetLockScreenCount
Get the screen lock update count.
Declaration
Source position: videoh.inc line 119
function GetLockScreenCount : Integer;
Description
GetLockScreenCount returns the current lock level. When the lock level is zero, a call to UpdateScreen will actually update the screen.
Errors
None.
See also
| Name | Description |
|---|---|
| LockScreenUpdate | Prevent further screen updates. |
| UnlockScreenUpdate | Unlock screen update. |
| UpdateScreen | Update physical screen with internal screen image. |
Example
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.