Процедуры управления экраном, окном, страницей

Procedure ...

ClearDevice ;
—	очищает графический экран, закрашивает его в цвет фона, устанавливает текущий указатель в точку ( 0, 0 ) (цвет фона задается процедурой SetBkColor).
GetAspectRatio ( var Xasp, Yasp : Word ) ;
—	возвращает действующую разрешающую способность графического экрана — координаты относительного удлинения, позволяющие оценить соотношение сторон графического экрана в пикселях; найденный с их помощью коэффициент может использоваться для построения правильных геометрических фигур. Xasp, Yasp — действующие координаты относительного удлинения.

Пример 12.4(построение квадрата со стороной n пикселей):

. . .

GetAspectRatio ( Xasp, Yasp ) ;

Rectangle ( x1, y1, x1 + n*round ( Yasp / Xasp ), y1 + n ) ;{ ß по вертикали}

Rectangle ( x1, y1, x1 + n, y1 + n*round ( Xasp / Yasp ) ) ;{ ß и по горизонтали }

. . .

SetAspeсtRatio ( Xasp, Yasp : Word ) ;
—	изменяет принятое по умолчанию значение коэффициента относительного удлинения, т.е. устанавливает масштабный коэффициент отношения сторон графического экрана. Xasp, Yasp — устанавливаемые координаты относительного удлинения.
SetViewPort ( x1, y1, x2, y2 : Integer; Clip : Boolean ) ;
—	устанавливает для графического вывода текущую область — прямоугольное окно на графическом экране. ( x1, y1 ) — координаты левого верхнего угла окна. ( x2, y2 ) — координаты правого нижнего угла окна. Clip — логическое выражение, определяющее «отсечку» не умещающихся в окне элементов изображения — будет ли изображение «отсекаться» (если Clip = True, элементы изображения, не умещающиеся в переделах окна, отсекаются, в противном случае границы окна игнорируются). В модуле Graph определены следующие константы: Сonst ClipOn= True; { Включить отсечку } ClipOff= False; { Не включать отсечку } Если не выполняются условия соотношения координат окна или заданы недопустимые координаты, окно не выделяется, и формируется код ошибки: -11.

GetViewSettings ( var ViewPort : ViewPortType ) ;
—	возвращает параметры текущего окна. ViewPort — переменная типа ViewPortType,определенного в модуле Graph: Type ViewPortType = Record x1, y1, x2, y2 :Integer ; {координаты окна} Clip : Boolean ; {признак отсечки} end ;
ClearViewPort ;
—	очищает текущее графическое окно, закрашивает его в цвет фона, текущий указатель перемещается в левый верхний угол окна с координатами ( 0, 0 ) (цвет фона задается процедурой SetBkColor). Если окно не определено к моменту вызова процедуры, она работает как процедура ClearDevice. Если возникает ошибка, то GraphResult возвращает значение -6.

Пример 12.5 (здесь используются также процедуры, которые описываются ниже):

. . .

SetViewPort ( 10, 10, 100, 100; ClipOn) ;

SetBKColor( White ) ;

OutText ( ‘Для очистки окна нажми <Enter>’ ) ;

Readln ;

ClearViewPort ;

. . .

SetActivePage ( Page : Word ) ;
—	устанавливает для графического вывода номер активной страницы (страницы, в которую можно выводить информацию — активная страница может быть невидимой). Page — номер страницы (нумерация начинается с 0).
SetVisualPage ( Page : Word ) ;
—	устанавливает номер отображаемой на экране (видимой) графической страницы. Page — номер страницы (нумерация начинается с 0).

Пример 12.6 (программа рисует квадрат на видимой странице и окружность — на невидимой, при нажатии < Enter > происходит смена видимых страниц):

Uses

Graph, Crt ;

Var

Driver, Mode : Integer ;

Begin

Driver := Detect ;

InitGraph ( Driver, Mode, '' ) ;

If Driver <> HercMono then

SetGraphMode ( Mode – 1 ) ;

SetActivePage ( 0 ) ;

{ изображение на видимой странице: }

Rectangle ( 10, 10, GetMaxX div 2, GetMaxY div 2 ) ;

OutTextXY ( 0, 0, 'Page 0. Press < Enter >...' ) ;

{ изображение на невидимой странице: }

SetActivePage ( 1 ) ;

Circle ( GetMaxX div 2, GetMaxY div 2, 100 ) ;

OutTextXY ( 0, 0, 'Page 1. Press < Enter >...' ) ;

{ переключение между страницами: }

Readln ;

SetVisualPage ( 1 ) ;

ReadLn ;

SetVisualPage ( 0 ) ;

ReadLn ;

CloseGraph

End.

Замечание. После инициализации графики с Driver = Detect устанавливается режим работы с максимально возможным номером. В этом случае адаптеры EGA, MCGA, VGA могут работать только с одной графической страницей. Чтобы обеспечить работу с двумя страницами, следует уменьшить номер режима.