Прямоугольники – Rectangle, DrawRectangle, FillRectangle
Для создания прямоугольника нужны две точки – верхний левый угол и нижний правый.
 | Координаты левого верхнего угла прямоугольника – (X1,Y1). Координаты правого нижнего угла прямоугольника – (X2,Y2). X1, Y1, X2, Y2 – переменный целого типа. |
Процедуры рисования прямоугольников
| Rectangle(X1,Y1, X2,Y2); | Прямоугольник с обводкой и заливкой, которые устанавливаются текущим пером Pen (обводка) и в текущей кистью Brush (заливка). По умолчанию установлена обводка черного цвета сплошная толщиной 1 пиксел, заливка белая сплошная. |
| DrawRectangle(X1,Y1, X2,Y2); | С обводкой, но без заливки. Обводка по умолчанию черного цвета, толщиной 1 пкс, стиль линии обычный. |
| FillRectangle(X1,Y1, X2,Y2); | Без обводки, но с заливкой. Заливка по умолчанию белого цвета, сплошная (без штриховки). |
Учитывайте, что тот графический элемент, который нарисован последним, перекрывает собой те, которые рисовались первыми.
Пример. Создать квадратное графическое окно размером 500х500 пкс красного цвета, нарисовать в центре окна квадрат размером 200х200 пкс с координатами X1=150, Y1=150, X2=350, Y2=350.
Uses GraphABC;
Begin
SetWindowTitle('КВАДРАТ');
SetWindowWidth(500);
SetWindowHeight(500);
SetWindowIsFixedSize(true);
Window.CenterOnScreen();
Window.Clear(clRed);
Rectangle(150,150,350,350); // квадрат с параметрами по умолчанию, тонкая черная обводка,
// белая сплошная заливка, координаты (150,150,350,350)
// X1 Y1 X2 Y2
End.
Поменяйте процедуру Rectangle сначала на DrawRectangle, потом на FillRectangle, сравните.
Круги и окружности – Circle, DrawCircle, FillCircle
Для рисования круга (окружности) нужно задать координаты центра и радиус в пикселях.
 | Центр круга спроектируем на оси координат: на оси X получаем значение точки X на оси Y получаем значение точки Y Радиус круга обозначен буквой R. Х, Y, R – переменные целого типа |
Процедуры рисования круга
| Circle(X,Y,R); | Круг с обводкой и заливкой, которые устанавливаются текущим пером Pen (обводка) и в текущей кистью Brush (заливка). По умолчанию установлена обводка черного цвета сплошная толщиной 1 пиксел, заливка белая сплошная. |
| DrawCircle(X,Y,R); | Окружность рисуется текущим пером. Заливки нет. |
| FillCircle(X,Y,R); | Заливка круга закрашивается текущей кистью. Обводки нет. |
Учитывайте, что тот графический элемент, который нарисован последним, перекрывает собой те, которые рисовались первыми.
Пример.Нарисуем две концентрические окружности, а в их общем центре маленький круг. Центр окружностей и круга – точка с координатами (320,240).
Uses GraphABC;
Begin
Window.Clear(clOrange);
DrawCircle(320,240, 180); // нарисовали штриховую окружность R=180
DrawCircle(320,240, 140); // нарисовали пунктирную окружность R=140
Circle(320,240, 60); // нарисовали окружность таким стилем R=60
End.
Установка цвета, толщины и стиля обводок – Pen (Перо)
Для рисования линий, контуров фигур и обводки текста используется объект Pen(Перо), который по умолчанию рисует чёрной сплошной линией толщиной 1 пиксел.
Процедуры пера
| SetPenColor(C); | Цвет линии обводки, С – переменная типа Color | ||||||||||||||||||
| SetPenWidth(X); | Толщина линии обводки в пикселах, Х – целочисленное значение | ||||||||||||||||||
| SetPenStyle(Style); | Стиль линии обводки, где Styleпринимает одно из 6 значений:
|
Пример.Нарисуем пять концентрических окружностей разными стилями пера.
Uses GraphABC;
Begin