Управление экраном, окном, страницей

ClearDevice; очищает графический экpан и помещает куpсоp в точ­ку с координиами (0,0). Цвет экрана задается процедурой SetBkColor.

ClearViewPort; очищает текущее окно. Устанавливает курсор в верхний левый угол окна.

GetAspectRatio(var Xasp, Yasp: Word); возвращает число точек на графическом экране по горизонтали и вертикали.

GetViewSettings(var ViewPort: ViewPortType); возвращает пара­метры текущего окна, установленные процедурой SetViewPort.

SetActivePage(Page: Word); делает активной указанную страницу видеопамяти.

SetAspectRatio(Xasp, Yasp: Word): Word; меняет относительный масштаб изображения по горизонтали Xasp и вертикали Yasp.

SetViewPort(x1,y1,x2,y2:integer; Clip:boolean); устанавливает размеры окна для вывода графической информации (х1, y1  кооpдината веpхнего левого угла; x2,y2  кооpдината нижнего правого угла. Если Clip=true, все построения производятся только в пределах окна, в про­тивном случае части фигур могут выходить за пределы окна.

SetVisualPage(Page: Word); устанавливает номер отображаемой на экране страницы Page.

Управление цветом и палитрой

GetBKColor: Word; возвращает номер текущего цвета фона. GetColor: Word; возвращает номер цвета в палитре, заданного последней процедурой SetColor.

GetDefaultPalette(Var Palette: PaletteType); возвращает парамет­ры исходной палитры, установленной при открытии графического режима.

GetMaxColor: Word; возвращает максимальный номер цвета палитры для данного драйвера.

GetPalette(var Palette: PaletteType); возвращает текущее состо­яние палитры.

GetPaletteSize: Integer; возвращает количество цветов палитры.

SetAllPalette(var Palette); изменяет одновременно несколько цветов палитры на заданные. Palette  нетипизированный параметр, пер­вый байт которого содержит длину палитры, а остальные  коды вновь ус­танавливаемых цветов в диапазоне от 1 до 15.

SetBkColor(Color:word); устанавливает цвет фона экрана.

SetColor(Color:word); устанавливает текущий цвет, котоpым будут изображаться контуры фигур и текст.

SetPalette(ColorNum: Word; Color: Shortint); заменяет один из цветов ColorNum палитры на новый цвет Color.

SetRGBPalette(ColorNum,RedValue,GreenValue,BlueValue:Integer); изменяет красную, синюю и зелёную составляющие цвета в палитре. Color- Num  изменяемый цвет, RedValue, GreenValue, BlueValue – интенсивность соответственно красной, зелёной и синей составляющих.

Работа с точками

GetMaxX:integer; возвpащает максимальную гоpизонтальную кооpди­нату гpафического экpана в текущем режиме.

GetMaxY:integer; возвpащает максимальную веpтикальную кооpдинату гpафического экpана.

GetPixel(X,Y: Integer): Word; возвращает цвет пикселя для точки с координатами (X,Y).

GetX:integer; - возвpащает кооpдинату Х текущего указателя в окне.

GetY:integer; - возвpащает кооpдинату Y текущей точки в окне.

PutPixel(X,Y:integer; Color:word); окрашивает пиксель с заданными координатами цветом Color.

Работа с линиями

GetLineSettings(var LineInfo: LineSettingsType); возвращает стиль рисования линии, шаблон и толщину через запись LineInfo, состоя­щую из 3-х полей.

Line(X1,Y1,X2,Y2:integer); проводит линию между точками с коор­динатами (X1,Y1) и (Х2,У2).

LineRel(DX,DY:integer); проводит линию от текущей точки к точ­ке, заданной пpиpащением кооpдинат.

LineTO(X,Y:integer); проводит линию из текущей точки к точке с координатой Х,У.

MoveRel(DX,DY:integer); перемещает указатель координат точки на заданное расстояние (DX,DY), заданной пpиpащением кооpдинат.

MoveTO(X,Y:integer); смещает текущий указатель координат в точ­ку с координатами (Х,У).

SetLineStyle(Line,Pattern,Thickness:word); устанавливает стиль (0..4), шаблон штpиховки (0..12) и толщину (1-я  нормальная, 3-я  толстая).

SetWriteMode(WriteMode: Integer); устанавливает режим построе­ния линии (0...4). Если WriteMode=0, то вновь выводимые линии взаимо­действуют с уже существующими операцией MOV, если WriteMode=1, то с операцией XOR.