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

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

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

Процедура GetViewSettings.

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

    Procedure GetViewSettings(Var ViewPort : ViewPortType);

  • Описание:

    Получает параметры текущей области просмотра.

  • Замечания:

    Процедура GetViewSettings возвращает переменную типа ViewPortType.

  • Пример:

    { Пример программы для процедуры GetViewSettings }
    Uses Graph;
    Var Gd, Gm : Integer;
    ViewPort : ViewPortType;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    GetViewSettings(ViewPort);
    With ViewPort Do
    Begin
    Rectangle(0, 0, X2 - X1, Y2 - Y1);
    If Clip Then OutText('Clipping is active.')
    Else OutText('No clipping today.');
    End;
    ReadLn;
    CloseGraph;
    End.



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