ПроцедураRectangle строит прямоугольник, внутренняя область которого не закрашивается и совпадает по цвету с фоном.
Rectangle (X1, Y1, X2, Y2 : integer);
где X1, Y1 – координаты левого верхнего угла прямоугольника,
X2, Y2 - координаты правого нижнего угла прямоугольника.
Например, выведем на экран 100 вычерченных разным цветом случайным образом меняющихся по высоте прямоугольников:
for i:=1 to 100 do
begin
SetColor(Green); {Установка цвета}
Rectangle (200, random(300),250, 300); {i-й прямоугольник}
Delay(50); {Задержка}
ClearDevice; {Очистка экрана}
end;
Более эффектные для восприятия прямоугольники можно строить с помощью процедурыBar, которая рисует закрашенный столбец. Цвет закраски устанавливается с помощью SetFillStyle.
Bar (X1, Y1, X2, Y2 : integer);
Например,
SetFillStyle(1,3);
Bar (10,10,50,100);
вычерчивается прямоугольник сплошной линией, закрашенный бирюзовым цветом.
Еще одна весьма эффектная процедура, которая вычерчивает трехмерный закрашенный прямоугольник (параллелепипед):
Bar3D (X1, Y1, X2, Y2 : integer; Depth : word; Top : boolean);
где Depth – представляет собой число пикселей, задающее глубину трехмерного контура;
Top – определяет, строить над прямоугольником вершину (Top:=True) или нет (Top:=False).
Например,
SetFillStyle(1,3);
Bar3D (10, 10, 50, 100, 10, True);
вычерчивается прямоугольник сплошной линией, закрашенный бирюзовым цветом.
