Материалы представленные на сайте исключительно с целью ознакомления пользователям Интернета и не преследуют коммерческих целей или нарушение авторских прав.
© 2018 - 2024
Program <имя программы>;
Uses graphABC;
Var <список переменных>:<тип переменных>;
Begin
<здесь находится непосредственно
блок решения задачи>
End.
Uses graphABC - подключение модуля библиотеки графических процедур;
Модуль GraphABC
Модуль GraphABC содержит процедуры и функции для рисования в графическом окне. Они подразделяются на следующие группы:
§ Действия с графическим окном;
§ Графические примитивы;
§ Действия с цветом;
§ Действия с пером;
§ Действия с кистью;
§ Действия со шрифтом.
Действия с графическим окном
SetWindowTitle('Заголовок'); Устанавливает заголовок графического окна
SetWindowSize(w,h); Устанавливает размеры клиентской части графического окна в пикселах
SetCoordinateOrigin(x0,y0); Устанавливает начало координат в точку (x0,y0)
SetCoordinateScale(sx,sy); Устанавливает масштаб системы координат
SetCoordinateAngle(a); Устанавливает поворот системы координат.
Графические примитивы
| Формат записи | Как работает |
| Setpixel(x,y,color); | Закрашивает один пиксель с координатами (x,y) цветом color. |
| Line(x1,y1,x2,y2); | Вычерчивает линию от точки c координатами (x1,y1) до точки (x2,y2). |
| Rectangle(x1,y1,x2,y2); | Рисует контур прямоугольника со сторонами, параллельными сторонам экрана. Точки с координатами (х1,у1) и (х2,у2) определяют диагональ прямоугольника. |
| RoundRect(х1,у1,х2,у2,w,h); | Рисует прямоугольник со скругленными краями. Точки с координатами (х1,у1) и (х2,у2) определяют диагональ прямоугольника., а w и h — ширину и высоту эллипса, используемого для скругления краев. |
| Circle(x,y,R); | Рисует окружность радиуса R с центром в точке с координатами (x,y). |
| Ellipse(x1,у1,х2,y2); | Рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2). |
| Аrc(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). |
| MoveTo(x,y); | Передвигает невидимое перо к точке с координатами (x,y); эта функция работает в паре с функцией LineTo (x,y). |
| LineTo(x,y); | Рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y). |
| TextOut(x,y,s); | Выводит строку s в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст из строки s). |
| FloodFill(x,y,c); | Заливает область одного цвета цветом c, начиная с точки (x,y). |
| FillRect(x1,y1,x2,y2); | Заливает прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2), цветом текущей кисти. |
Примитивы для рисования
PutPixel(x,y,C); Закрашивает пиксел с координатами (x,y) цветом c;
LineTo(x,y); Рисует отрезок от текущей позиции до точки (x,y). Текущая
позиция переносится в точку (x,y);
Line(x1,y1,x2,y2); Рисует отрезок от точки (x1,y1) до точки (x2,y2);
Line(x1,y1,x2,y2,c); Рисует отрезок от точки (x1,y1) до точки (x2,y2) цветом c;
DrawCircle(x,y,r); Рисует окружность с центром (x,y) и радиусом r;
DrawEllipse(x1,y1,x2,y2); Рисует границу эллипса, ограниченного
прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)
DrawRectangle(x1,y1,x2,y2); Рисует границу прямоугольника, заданного
координатами противоположных вершин (x1,y1) и (x2,y2)
Arc(x,y,r,a1,a2); Рисует дугу окружности с центром в точке (x,y) и радиусом r,
заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 –
вещественные, задаются в градусах и отсчитываются против часовой стрелки)
DrawPie(x,y,r,a1,a2); Рисует сектор окружности, ограниченный дугой с
центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими
углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются
против часовой стрелки)
TextOut(x,y,'Текст'); Выводит строку s в прямоугольник к координатами левого
верхнего угла (x,y)
FloodFill(x,y,с);Заливает область одного цвета цветом c, начиная с точки (x,y).
Имена цветов (Color)
Стандартные цвета задаются символическими константами:
clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный
В место константы можно использовать функцию RGB(r,g,b:);
Возвращает целое значение, являющееся кодом цвета, который содержит красную, зеленую и синюю составляющие с интенсивностями r, g и b соответственно (r, g и b – целые в диапазоне от 0 до 255, причем, 0 соответствует минимальной интенсивности, 255 – максимальной).
Дата: 2019-03-05, просмотров: 194.