Необходимый материал
Графические примитивы Модуля GraphABC
procedure
SetPixel(x,y,color: integer);
Закрашивает один пиксел с координатами
(x,y) цветом color.procedure MoveTo(x,y: integer); Передвигает невидимое перо к точке с координатами (x,y); эта функция
работает в паре с функцией LineTo(x,y).procedure LineTo(x,y: integer); Рисует отрезок от текущего положения пера до точки (x,y); координаты
пера при этом также становятся равными (x,y).procedure Line(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 TextOut(x,y: integer; s: string); Выводит строку s в позицию (x,y) (точка (x,y)
задает верхний левый угол прямоугольника, который будет содержать текст из
строки s).procedure FloodFill(x,y,color: integer);
Заливает
область одного цвета цветом
color,
начиная с точки (x,y).procedure FillRect(x1,y1,x2,y2: integer); Заливает прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2), цветом
текущей кисти.Процедуры для работы с пером
Рисование
линий осуществляется текущим пером.
procedure
SetPenColor(c: Color); Устанавливает цвет
текущего пера |
procedure
SetPenWidth(Width: integer); Устанавливает ширину текущего пера |
procedure
SetPenStyle(style: DashStyle); Устанавливает
стиль текущего пера. Константы стилей пера приведены ниже. |
procedure SetPenMode(m:
integer); Устанавливает режим текущего пера |
Стили пера
Стили пера определены следующими константами:
psSolid
= DashStyle.Solid; |
Сплошное
перо
|
psDash
= DashStyle.Dash; |
Штриховое
перо
|
psDot
= DashStyle.Dot; |
Пунктирное перо
|
psDashDot
= DashStyle.DashDot; |
Штрихунктирное
перо
|
psDashDotDot
= DashStyle.DashDotDot; |
Альтернативное
штрихунктирное перо
|
psClear
= DashStyle.Clear; |
Прозрачное перо
|
процедуры для работы с графическим окном
procedure
SetWindowWidth(w: integer); Устанавливает ширину клиентской части графического окна в пикселах |
procedure
SetWindowHeight(h: integer); Устанавливает высоту клиентской части графического окна в пикселах |
procedure
SetWindowLeft(l: integer); Устанавливает отступ графического окна от левого края экрана в пикселах |
procedure
SetWindowTop(t: integer); Устанавливает отступ графического окна от верхнего края экрана в пикселах |
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
SaveWindow(fname: string); Сохраняет содержимое графического окна в файл с именем fname |
procedure
LoadWindow(fname: string); Загружаает содержимое графического окна из файла с именем fname |
procedure
FillWindow(fname: string); Заполняет содержимое графического окна обоями из файла с именем fname |
procedure CloseWindow; Закрывает графическое окно и завершает приложение |
procedure CenterWindow;
Центрирует графическое окно по центру экрана |
procedure
MinimizeWindow; Сворачивает графическое окно |
procedure
NormalizeWindow; Возвращает графическое окно к нормальному размеру |
Процедуры для работы с кистью
Рисование
внутренностей замкнутых областей осуществляется текущей кистью.
Procedure
SetBrushColor(c: Color); Устанавливает цвет текущей кисти |
procedure
SetHatchBrushBackgroundColor(c: Color); Устанавливает цвет заднего плана текущей штриховой кисти |
procedure
SetGradientBrushSecondColor(c: Color); Устанавливает второй
цвет текущей градиентной кисти |
Стили кисти
bsSolid
Сплошная
кисть (по умолчанию) |
bsClear
Прозрачная
кисть |
bsHatch
Штриховая
кисть |
bsGradient
Градиентная кисть |
Процедуры для работы со шрифтом
Вывод
текста осуществляется текущим шрифтом.
Procedure
SetFontSize(size: integer); Устанавливает размер текущего шрифта в
пикселях |
Procedure SetFontColor(c: Color); Устанавливает цвет текущего шрифта |
Procedure SetFontStyle(fs: integer); Устанавливает стиль текущего шрифта |