[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: May 14 2021