Графические возможности TurboPascal 7.0 — страница 7

  • Просмотров 6218
  • Скачиваний 578
  • Размер файла 3666
    Кб

использовать только латинские буквы. Процедура DetectGraph. Возвращает тип драйвера и режим его работы. Заголовок: Procedure DetectGraph(var Driver,Mode: Integer); Здесь Driver - тип драйвера; Mode - режим работы. В отличие от функции GetGraphMode описываемая процедура возвращает в пере­менной Mode максимально возможный для данного адаптера номер графического режима. Функция GetDriverName. Возвращает значение типа String, содержащее имя загруженного графического драйвера.

Заголовок: Function GetDriverName: String; Функция GetMaxMode. Возвращает значение типа Integer, содержащее количест­во возможных режимов работы адаптера. Заголовок: Function GetMaxMode: Integer; Функция GetModeName. Возвращает значение типа String, содержащее разреше­ние экрана и имя режима работы адаптера по его номеру. Заголовок: Function GetModName(ModNumber: Integer): String; Здесь ModNumber - номер режима. Следующая программа после инициации графического режима выводит на экран строку,

содержащую имя загруженного драйвера, а также все возможные режимы его работы. Uses Graph; Var a,b: Integer; begin a:= Detect; InitGraph(a, b, ''); WriteLn(GetDriverName); for а:= 0 to GetMaxMode do WriteLn(GetModeName(a):10); ReadLn; CloseGraph; end. 3. Координаты, окна, страницы Многие графические процедуры и функции используют указатель текущей пози­ции на экране, который в отличие от текстового курсора невидим. Положение этого указателя, как и вообще любая координата на графическом экране,

задается относи­тельно левого верхнего угла, который, в свою очередь, имеет координаты 0,0. Таким образом, горизонтальная координата экрана увеличивается слева направо, а верти­кальная - сверху вниз. Функции GetMaxX и GetMaxY. Возвращают значения типа Word, содержащие максимальные координаты экрана в текущем режиме работы соответственно по гори­зонтали и вертикали. Например: Uses Graph; Var a,b: Integer; begin a := Detect; InitGraph(a, b, ''); WriteLn(GetMaxX, GetMaxY:5);

ReadLn;ClogeGraph end. Функции GetX и GetY. Возвращают значения типа Integer, содержащие текущие координаты указателя соответственно по горизонтали и вертикали. Координаты опреде­ляются относительно левого верхнего угла окна или, если окно не установлено, экрана. Процедура SetViewPort. Устанавливает прямоугольное окно на графическом экране. Заголовок: Procedure SetViewPort(Xl,Yl,X2,Y2: Integer; ClipOn: Boolean); Здесь Xl...Y2 - координаты левого верхнего (X1,Y1) и правого нижнего

(X2,Y2) уг­лов окна; ClipOn - выражение тип Вооlean, определяющее «отсечку» не умещающих­ся в окне элементов изображения. Координаты окна всегда задаются относительно левого верхнего угла экрана. Если параметр ClipOn имеет значение True, элементы изображения, не умещающиеся в преде­лах окна, отсекаются, в противном случае границы окна игнорируются. Для управления этим параметром можно использовать такие определенные в модуле