Лабораторна робота №11. Графіка.

Функція

Призначення

Формат

Ініціалізація графіки

initgraph

ініціалізація графічного режиму

InitGraph (var Graph Driver:Integer;var GraphMode: Integer; Path To Driver: string);

graphresult

помилки при ініціалізації графічного режиму

function GraphResult: Integer;

detectgraph

перевірка параметрів hardware

DetectGraph (var GraphDriver, graphMode: Integer);

setgraphmode

встановити графічний режим після текстового режиму

SetGraphMode (Mode: Integer);

restorecrtmode

відновити текстовий режим

restorecrtmode;

closegraph

закрити графічний режим

closegraph;

Графічні примітиви

arc

дуга кола

ARC (x,y, початковий кут, кігцевий кут, радіус)

bar (bar3d)

заштрихований прямокутник

Bar (x1,y1,x2,y2);

circle

коло

Circle (X,Y: Integer; Radius: Word);

drawpoly

многокутник

DrawPoly (NumPoints: Word; var PolyPoints);

fillellipse

еліпс

FillEllipse (X, Y: Integer; XRadius, YRadius: Word)

line

лінія

Line (x1, y1, x2, y2: Integer);

lineto

лінія до курсора

LINETO (x,y)

rectangle

прямокутник

Rectangle (X1, Y1, X2, Y2: Integer)

putpixel

точка

PutPixel (X, Y: Integer; Pixel: Word);

sector

сектор

Sector (x, y: Integer; StAngle, EndAngle, XRadius, YRadius: Word);

setlinestyle

стиль лінії

SetLineStyle (LineStyle: Word; Pattern: Word; Thickness: Word);

Вікна перегляду

setviewport

встановити вікно перегляду

SetViewPort (x1, y1, x2, y2: Integer; Clip: Boolean);

clearviewport

очистити вікно

clearviewport;

cleardevice

очистити екран

cleardevise;

Кольорове забарвлення

getbkcolor

видати колір фону

function getbkcolor;

getcolor

видати колір ліній

function getcolor;

getmaxcolor

видати максимальний колір

function getmaxcolor;

floodfill

заповнити фігуру кольором

FloodFill (X, Y: Integer; color: TColorRef);

setbcolor

встановити колір фону

SetBkColor (; Color:TColorRef);

setcolor

встановити колір ліній

SetColor (; Color:TColorRef);

setfillstyle

встановити стиль заповнювача

SetFillStyle (Pattern: Word; Color: Word);

Графічне зображення

getimage

розмістити в оп зображення

GetImage (x1, y1, x2, y2: Integer; var Bit Map);

putimage

видати зображення на екран

PutImage (X, Y: Integer; var BitMap; BitBlt: Word);

imagesize

визначити розмір зображення в оперативній пам’яті

function ImageSize (x1, y1, x2, y2: Integer): Word;

Обробка тексту

settextstyle

встановити стиль тексту

SetTextStyle (Font, Direction: Word; CharSize: Word);

settextjustify

вирівнювання тексту

SetTextJustify (Horiz, Vert: Word);

textheight

висота тексту

Function TextHeight (TextString: string): Word;

textwidth

ширина тексту

Function TextWidth (TextString: string): Word;

outtext

видати текст на екран

OutText (TextString: string);

outtextxy

видати текст на екран в координатах

OutTextXY (X,Y: Integer; TextString: string);

Визначення положення курсора, координат вікна, переміщення курсора

getx, gety

видати координати курсора

function GetX: Integer;

function GetY: Integer;

getmaxy

getmaxx

видати максимальні координати курсора

function GetMaxX: Integer;

function GetMaxY: Integer;

moveto

перемістити курсор

MoveTo (X, Y: Integer);