Sign in Join
FPDoc Onlineexperiment

ClearScreen procedure

In unit video

Clear the video screen.

Declaration

pascal
procedure ClearScreen

Description

ClearScreen clears the entire screen, and calls UpdateScreen after that. This is done by writing spaces to all character cells of the video buffer in the default color (lightgray on black, color attribute \$07).

Errors

None.

See also

Example: ex3

pascal
program testvideo;

uses video,keyboard,vidutil;

Var
  i : longint;
  k : TkeyEvent;

begin
  InitVideo;
  InitKeyboard;
  For I:=1 to 10 do
    TextOut(i,i, 'Press any key to clear screen');
  UpdateScreen(false);
  K:=GetKeyEvent;
  ClearScreen;
  TextOut(1,1,'Cleared screen. Press any key to end');
  UpdateScreen(true);
  K:=GetKeyEvent;
  DoneKeyBoard;
  DoneVideo;
end.

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