Процедура ClearDevice

Модуль GRAPH

Очищает текущее устройство вывода и устанавливает текущий указатель в точку (0, 0).

Объявление:

Procedure ClearDevice;

Режим:

Protected,  Real

Замечание:

Процедура ClearDevice перемещает текущий указатель в точку с координатами(0, 0), очищает экран, используя цвет фона, установленный обращением к SetBkColor, и готовит его к последующему выводу.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{Clrdevc.PAS}
 
{ Пример программы для процедуры ClearDevice }
 
  Uses Crt, Graph;
 
 Var Gd, Gm : Integer;
 
 Begin 
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 Repeat
  LineTo(Random(200), Random(200));
 Until KeyPressed;
 ClearDevice;
 ReadLn;
 CloseGraph;
End.