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

Процедура SetColor(<цвет>:word); служит для задания цвета, которым будут обозначены контуры фигуры или текста. Если в качестве цвета указан недопустимый номер цвета, то текущий цвет не изменяется.

Процедура SetBkColor (<цвет>:word); устанавливает новый цвет фона.

Построение простейших графических изображений

Процедура PutPixel(X,Y:integer; Color:word); отображает точку на экране, где Х и Y – экранные координаты точки, Color – ее цвет.

Процедура Line(X1,Y1,X2,Y2:integer); выводит на экран отрезок прямой линии. Здесь X1,Y1 – координаты начальной точки, а X2,Y2 – координаты конечной точки отрезка.

LineTo(X,Y); – проводит отрезок из текущей точки до точки с координатой (X,Y);

LineRel(dX,dY); – проводит отрезок из текущей точки до точки, удаленной от нее на расстояние (dX,dY).

Процедура SetLineStyle(<тип линии>:word;<узор(шаблон)>:word;<толщина линии>:word); производит установку стиля.

Процедура Rectangle(X1,Y1,X2,Y2:integer); строит изображение прямоугольника на плоскости.

Процедура Bar(X1,Y1,X2,Y2:integer); позволяет строить более эффектные прямоугольники.

Процедура SetFillStyle(<шаблон>:word; <цвет>:word); устанавливает шаблон и цвет заполнения замкнутой фигуры.

Процедура FloodFill(X,Y:integer; Border:word); заполняет ограниченную область текущим цветом и стилем заполнения (SetFillStyle).

Процедура Arc(X,Y:integer; 1, 2,R:word); строит дугу.

Процедура Ellipse(X,Y:integer; 1,2,Rx,Ry:word); предназначена для построения эллиптических дуг.

Процедура FillEllipse(X,Y:integer; Rx,Ry:word); строит полный закрашенный эллипс.

Процедура Circle(X,Y:integer; R:word); выводит на экран изображение окружности с центром X,Y и радиусом R.

Процедура PieSlice(X,Y:integer; 1,2,R:word); выводит на экран изображение закрашенного сектора круга.

Процедура Sector(X,Y:integer; 1, 2,Rx,Ry:word); строит закрашенный сектор эллипса.

Управление курсором

Для определения текущих координат графического курсора используют функции GetX:integer и GetY:integer.

Процедура MoveTo(X,Y:integer); перемещает текущий указатель в точку с координатами X,Y. Процедура MoveRel(dX,dY:integer); перемещает текущий курсор в точку, которая находится на расстоянии dX,dY от текущей позиции.

Вывод текстовой информации в графическом видеорежиме

Процедура SetTextStyle(Font:word; Direction:word; CharSize:word); служит для установки шрифта.

Процедура SetUserCharSize(MultX, DivX, MultY, DivY:word); позволяет управлять размером символов.

Процедура OutText(TextString:string); выводит на экран строку текста, начиная с текущего положения указателя.

Процедура OutTextXY(X,Y:integer; TextString:string); выводит строку текста, начиная с точки, имеющей координаты (X,Y).

Получить размер памяти в байтах, необходимой для сохранения образа фрагмента, позволяет функция ImageSize(X1,Y1,X2,Y2: integer): word.

Процедура GetImage(X1,Y1,X2,y2:integer; var BitMap:word); сохраняет образ фрагмента в памяти.

Процедура PutImage(X,Y:integer; var BitMap, Mode:word); восстанавливает сохраненный в буфере BitMap прямоугольник, левый верхний угол которого задается координатами X,Y.

пример создания удобного пользовательского интерфейса:

программа должна состоять из меню, в котором предлагается выбора действий, к этому подобрать цветовую гамму чтобы глаза не уставали(Pascal), разработать графический интерфейс.

программа должна содержать кнопки, закладки, вспомогательные сообщения, главное меню и вспомогательное меню(Delphi).