Sign in Join
FPDoc Onlineexperiment

GetLockScreenCount function

In unit video

Get the screen lock update count.

Declaration

pascal
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

Example: ex6

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.