Прямоугольники – 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 значений: psSolid Сплошное перо psClear Прозрачное перо   psDash Штриховое перо psDot Пунктирное перо psDashDot Штрихпунктир 1 psDashDotDot Штрихпунктир 2

 

Пример.Нарисуем пять концентрических окружностей разными стилями пера.

Uses GraphABC;

Begin