[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'video' (#rtl)

# 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

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.

Documentation generated on: Feb 26 2014