procedure FillCircle(x,y,r: integer);
Заполняет на рисунке внутренность окружности с центром (x,y) и радиусом r
procedure DrawCircle(x,y,r: integer);
Выводит на рисунке окружность с центром (x,y) и радиусом r
procedure FillEllipse(x1,y1,x2,y2: integer);
Заполняет на рисунке внутренность эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)
procedure DrawEllipse(x1,y1,x2,y2: integer);
Выводит на рисунке границу эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)
procedure FillRectangle(x1,y1,x2,y2: integer);
Заполняет на рисунке внутренность прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)
procedure FillRect(x1,y1,x2,y2: integer);
Заполняет на рисунке внутренность прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)
procedure DrawRectangle(x1,y1,x2,y2: integer);
Выводит на рисунке границу ы прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)
procedure Circle(x,y,r: integer);
Выводит на рисунке заполненную окружность с центром (x,y) и радиусом r
procedure Ellipse(x1,y1,x2,y2: integer);
Выводит на рисунке заполненный эллипс, ограниченный прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)
procedure Rectangle(x1,y1,x2,y2: integer);
Выводит на рисунке заполненный прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2)
procedure RoundRect(x1,y1,x2,y2,w,h: integer);
Выводит на рисунке заполненный прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев
procedure Arc(x,y,r,a1,a2: integer);
Выводит на рисунке дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)
procedure FillPie(x,y,r,a1,a2: integer);
Заполняет на рисунке внутренность сектора окружности, ограниченного дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)
procedure DrawPie(x,y,r,a1,a2: integer);
Выводит на рисунке сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)
procedure Pie(x,y,r,a1,a2: integer);
Выводит на рисунке заполненный сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)
procedure DrawPolygon(points: array of Point);
Выводит на рисунке замкнутую ломаную по точкам, координаты которых заданы в массиве points
procedure FillPolygon(points: array of Point);
Заполняет на рисунке многоугольник, координаты вершин которого заданы в массиве points
procedure Polygon(points: array of Point);
Выводит на рисунке заполненный многоугольник, координаты вершин которого заданы в массиве points
procedure Polyline(points: array of Point);
Выводит на рисунке ломаную по точкам, координаты которых заданы в массиве points
procedure Curve(points: array of Point);
Выводит на рисунке кривую по точкам, координаты которых заданы в массиве points
procedure DrawClosedCurve(points: array of Point);
Выводит на рисунке замкнутую кривую по точкам, координаты которых заданы в массиве points
procedure FillClosedCurve(points: array of Point);
Заполняет на рисунке замкнутую кривую по точкам, координаты которых заданы в массиве points
procedure ClosedCurve(points: array of Point);
Выводит на рисунке заполненную замкнутую кривую по точкам, координаты которых заданы в массиве points
procedure TextOut(x,y: integer; s: string);
Выводит на рисунке строку s в прямоугольник к координатами левого верхнего угла (x,y)
procedure FloodFill(x,y: integer; c: Color);
Заливает на рисунке область одного цвета цветом c, начиная с точки (x,y).
procedure Clear;
Очищает рисунок белым цветом
procedure Clear(c: Color);
Очищает рисунок цветом c
Подпрограммы для работы с графическим окном
Доступ к свойствам графического окна можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам окна сгруппированы парами: если Prop - имя свойства кисти, то функция PenProp возвращает значение этого свойства, а процедура SetPenProp(p) устанавливает это свойство:
function WindowWidth: integer;
Возвращает ширину клиентской части графического окна в пикселах
function WindowHeight: integer;
Возвращает высоту клиентской части графического окна в пикселах
function WindowLeft: integer;
Возвращает отступ графического окна от левого края экрана в пикселах
function WindowTop: integer;
Возвращает отступ графического окна от верхнего края экрана в пикселах
function WindowIsFixedSize: boolean;
Возвращает True, если графическое окно имеет фиксированный размер, и False в противном случае
procedure SetWindowWidth(w: integer);
Устанавливает ширину клиентской части графического окна в пикселах
procedure SetWindowHeight(h: integer);
Устанавливает высоту клиентской части графического окна в пикселах
procedure SetWindowLeft(l: integer);
Устанавливает отступ графического окна от левого края экрана в пикселах
procedure SetWindowTop(t: integer);
Устанавливает отступ графического окна от верхнего края экрана в пикселах
procedure SetWindowIsFixedSize(b: boolean);
Устанавливает, имеет ли графическое окно фиксированный размер
function WindowCaption: string;
Возвращает заголовок графического окна
function WindowTitle: string;
Возвращает заголовок графического окна
procedure SetWindowCaption(s: string);
Устанавливает заголовок графического окна
procedure SetWindowTitle(s: string);
Устанавливает заголовок графического окна
procedure SetWindowSize(w,h: integer);
Устанавливает размеры клиентской части графического окна в пикселах
procedure SetWindowPos(l,t: integer);
Устанавливает отступ графического окна от левого верхнего края экрана в пикселах
procedure ClearWindow;
Очищает графическое окно белым цветом
procedure ClearWindow(c: Color);
Очищает графическое окно цветом c
procedure InitWindow(Left,Top,Width,Height: integer; BackColor: Color := clWhite);
Устанавливает ширину и высоту клиентской части графического окна в пикселах
procedure SaveWindow(fname: string);
Сохраняет содержимое графического окна в файл с именем fname
procedure LoadWindow(fname: string);
Восстанавливает содержимое графического окна из файла с именем fname
procedure FillWindow(fname: string);
Заполняет содержимое графического окна обоями из файла с именем fname
procedure CloseWindow;
Закрывает графическое окно и завершает приложение
procedure CenterWindow;
Центрирует графическое окно по центру экрана
function WindowCenter: Point;
Возвращает центр графического окна
procedure MaximizeWindow;
Максимизирует графическое окно
procedure MinimizeWindow;
Сворачивает графическое окно
procedure NormalizeWindow;
Возвращает графическое окно к нормальному размеру
Кроме того, можно возвращать размеры экрана Screen, а также размеры и положение графического компонента GraphBox, на котором осуществляется рисование: function GraphBoxWidth: integer;
Возвращает ширину графического компонента в пикселах (по умолчанию совпадает с WindowWidth)
function GraphBoxHeight: integer;
Возвращает высоту графического компонента в пикселах (по умолчанию совпадает с WindowHeight)