Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура ClearViewPort.

  • Объявление:

    Procedure ClearViewPort;

  • Описание:

    Очищает текущую область просмотра.

  • Замечания:

    Процедура ClearViewPort приравнивает цвет закраски к цвету фона (Palette[0]) и перемещает текущий указатель в позицию (0, 0).

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

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

  • Пример:

    { Пример программы для процедуры 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 to clear current viewport.');
    ReadLn;
    ClearViewPort;
    OutTextXY(0, 0, 'Press to quit.');
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника