clrvwprt.pas
Пример программы для процедуры ClearViewPort.
Код примера
{Clrvwprt.PAS}
{ Пример программы для процедуры ClearViewPort }
Uses Graph;
Var Gd, Gm : Integer;
X0, Y0 : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
If GraphResult <> grOk Then Halt(1);
X0:=GetMaxX;
Y0:=GetMaxY;
Rectangle(19, 19, X0 - 19, Y0 - 19);
SetViewPort(20, 20, X0 - 20, Y0 - 20, ClipOn);
OutTextXY(0, 0, 'Press <ENTER> to clear current viewport.');
ReadLn;
ClearViewPort;
OutTextXY(0, 0, 'Press <ENTER> to quit.');
Readln;
CloseGraph;
End.
Скачать clrvwprt.pas