Skip to content

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.