Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 45 стр.

   Процедура GetModeRange (GpaphDruver:Integer; Var LoMode, Hi-                     3. Управление экраном
Mode:Integer) возвращает максимальный и минимальный номера режимов              Процедура SetViewPort (X1,Y1,X2,Y2:Integer; Clip:Boolean ) определяет
заданного драйвера.                                                          размеры окна для вывода графической информации.
   Процедура SetGraphBufSize(Bufsize:Word) устанавливает размер экрана,         Процедура GetViewSettings(Var ViewPort:ViewPortType) возвращает па-
использующегося при построении фигур.                                        раметры установленного графического окна.
   Процедура RestoreCrtMode восстанавливает текстовый режим.                    Процедура ClearVievPort очищает текущее графическое окно.
   Функция RegisterBGIDriver(Driver:Pointer):Integer возвращает номер,          Процедура ClearDevice очищает весь экран.
присваиваемый графическому драйверу, встраиваемому пользователем.               Процедура SetActivePage(Page:Word) устанавливает номер активной
   Функция RegisterBGIFont(Font:Pointer):Integer возвращает номер, при-      страницы, доступной для записи новой графической информации.
сваиваемый графическому шрифту, встраиваемому пользователем.                    Процедура SetVisualPage(Page:Word) устанавливает номер страницы,
   Функция InstallUserDriver(Name:String; AutoDetectPtr:Pointer):Integer     отображаемой на экране.
возвращает номер подключаемого нестандартного драйвера пользователя.            Процедура SetAspectRatio(Xasp,Yasp:Word) устанавливает относительный
   Функция InstallUserFont(FontFileName:String):Integer возвращает номер     масштаб изображения по горизонтали и вертикали.
подключаемого нестандартного шрифта пользователя.                               Процедура GetAspectRatio(Var Xasp,Yasp:Word) возвращает относитель-
                                                                             ный масштаб изображения по горизонтали и вертикали.
        2. Установка цвета
                                                                                Функция ImageSize( X1,Y1,X2,Y2:Integer ):Word возвращает количество
   Процедура SetBkColor(Color:Word ) устанавливает цвет фона экрана.
                                                                             байтов, необходимых для размещения в памяти прямоугольной области крана
   Функция GetBkColorWord возвращает номер текущего цвета фона.
                                                                             с координатами X1,Y1,X2,Y2.
   Процедура SetColor(Color:Word) устанавливает цвет выводимой на экран
                                                                                Процедура GetImage(X1,Y1,X2,Y2:Integer; Var BitMap) сохраняет изо-
информации.
                                                                             бражение прямоугольного фрагмента экрана.
   Функция GetColor:Word возвращает номер текущего цвета в палитре.
                                                                                Процедура Putlmage(X,Y:Integer; Var BitMap; Bitblt:Word) преобразует и
   Функция GetMaxColor:Word возвращает максимальный номер цвета в ус-
                                                                             уводит на экран изображение, записанное в двоичном коде.
тановленной палитре.
   Функция GetPaletteSize:Word возвращает количество цветов в установ-              4. Работа с точками изображения
ленной палитре.                                                                  Процедура PutPixel(X,Y:lnteger;Color:Word) окрашивает в заданный цвет
   Процедура SetPalette( ColorNumWord; ColorShortInt ) устанавливает цвет    точку экрана.
Color для компоненты палитры с номером ColorNum.                                 Функции GetX:Integer; GetY:Integer возвращают значения текущих коор-
   Процедура GetPalette( Var Palette:PaletteType ) возвращает установ-       динат относительно текущего окна.
ленную палитру и количество цветов.                                              Функции GetMaxX:Integer; GetMaxY:Integer возвращают максимальные
   Процедура GetDefaultPalette( Var Palette. PaletteType ) возвращает па-    значения координат.
раметры исходной палитры, установленной при инициализации графического           Функция GetPixel (X,Y:Integer) возвращает цвет точки экрана с коорди-
режима.                                                                      натами X,Y.
   Процедура SetAllPalette( Var Palette ) одновременно устанавливает цвета       Процедура MoveTo (X,Y: Integer) перемещает текущий указатель в точку
в последовательно расположенных компонентах палитры.                         с заданными координатами.
   Процедура SetRGBPalette(ColorNum, RedValue, GreenValue, BlueValue:            Процедура MoveRel (dX,dY:Integer) перемещает текущий указатель в точ-
Integer) выполняет тонкую настройку цвета в компоненте палитры с номером     ку с заданными приращениями координат относительно текущих.
ColorNum для драйверов VGA и IBM-8514.

                                   89                                                                           90