Графические примитивы
Модуль GraphABC
Модуль GraphABC содержит константы, типы, процедуры, функции и классы для рисования в графическом окне. Они подразделяются на следующие группы:
Графические примитивы
Процедура / функция | Действие |
SetPixel(x,y,color) | Закрашивает один пиксел с координатами (x,y) цветом color. |
Line(x1,y1,x2,y2); | Рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). |
Circle(x,y,r); | Рисует окружность с центром в точке (x,y) и радиусом r. |
Ellipse(x1,y1,x2,y2); | Рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2). |
Rectangle(x1,y1,x2,y2); | Рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2). |
RoundRect(x1,y1,x2,y2,w,h); | Рисует прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев. |
Arc(x,y,r,a1,a2); | Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки). |
Pie(x,y,r,a1,a2); | Рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc). |
Chord(x,y,r,a1,a2); | Рисует фигуру, ограниченную дугой окружности и отрезком, соединяющим ее концы (параметры процедуры имеют тот же смысл, что и в процедуре Arc). |
TextOut(x,y: integer; s: string); | Выводит строку s в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст из строки s). |
FloodFill(x,y,color); | Заливает область одного цвета цветом color, начиная с точки (x,y). |
Цветовые константы
|
|
Стандартные цвета задаются символическими константами:
clBlack – черный clPurple – фиолетовый clWhite – белый clMaroon – темно-красный clRed – красный clNavy – темно-синий clGreen – зеленый clBrown – коричневый clBlue – синий clSkyBlue – голубой clYellow – желтый clCream – кремовый | clAqua – бирюзовый clOlive – оливковый clFuchsia – сиреневый clTeal – сине-зеленый clGray – темно-серый clLime – ярко-зеленый clMoneyGreen – цвет зеленых денег clLtGray – светло-серый clDkGray – темно-серый clMedGray – серый clSilver – серебряный |
Действия с пером
Процедура / функция | Действие |
SetPenColor(color: integer); | Устанавливает цвет пера, задаваемый параметром color. |
SetPenWidth(w: integer); | Устанавливает ширину пера, равную w пикселам. |
SetPenStyle(ps: integer); | Устанавливает стиль пера, задаваемый параметром ps. |
Стили пера задаются следующими именованными константами: | |
Действия с кистью | |
SetBrushColor(color: integer); | Устанавливает цвет кисти, задаваемый параметром color. |
SetBrushStyle(bs: integer); | Устанавливает стиль кисти, задаваемый параметром bs. |
Стили кисти задаются следующими именованными константами: | |
Действия со шрифтом | |
SetFontColor(color: integer); | Устанавливает цвет шрифта. |
SetFontSize(sz: integer); | Устанавливает размер шрифта в пунктах. |
SetFontName(name: string); | Устанавливает наименование шрифта. |
По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times, Arial и Courier New. Наименование шрифта можно набирать без учета регистра. | |
SetFontStyle(fs: integer); | Устанавливает стиль шрифта. |
Стили шрифта задаются следующими именованными константами: | |
fsNormal | обычный |
fsBold | жирный |
fsItalic | наклонный |
fsBoldItalic | жирный наклонный |
fsUnderline | подчеркнутый |
fsBoldUnderline | жирный подчеркнутый |
fsItalicUnderline | наклонный подчеркнутый |
fsBoldItalicUnderline | жирный наклонный подчеркнутый |
Действия с графическим окном | |
ClearWindow; | Очищает графическое окно белым цветом. |
ClearWindow(c: ColorType); | Заливает графическое окно цветом c. |
SetWindowSize(w,h: integer); | Устанавливает ширину и высоту графического окна. |
SetWindowPos(l,t: integer); | Устанавливает отступ графического окна от левого и верхнего края экрана. |
Все размеры устанавливаются и возвращаются в пикселах. |
Дата добавления: 2015-12-20; просмотров: 16; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!