Прямокутник

 

Прямокутник викреслюється методом Rectangle, інструкція виклику якого в загальному вигляді виглядає таким чином:

 

Об'єкт.Canvas.Rectangle(x1, y1,x2, y2)

 

де:

 

об'єкт — ім'я об'єкту (компоненту), на поверхні якого виконується викреслювання;

 

x1, y1 і х2, у2 — координати лівого верхнього і правого нижнього кутів прямокутника.

 

Метод RoundRec теж викреслює прямокутник, але з округлими кутами. Інструкція виклику методу RoundRec виглядає так:

 

Объект.Canvas.RoundRec(x1,y1,х2, у2, х3, у3)

 

де:

 

x1, y1, х2, у2 -- параметри, що визначають положення кутів прямокутника, в який вписується прямокутник з округляючими кутами;

 

х3 і у3 — розмір еліпса, одна четверть якого використовується для викреслювання округлого кута.

 

 

Метод RoundRec викреслює прямокутник з округлими кутами

 

Вид лінії контура (колір, ширина і стиль) визначається значеннями властивості Pen, а колір і стиль заливки області усередині прямокутника — значеннями властивості Brush поверхні (canvas), на якій прямокутник викреслюється.

 

Є ще два методи, які викреслюють прямокутник, використовуючи як інструмент тільки кисть (Brush). Метод FillRect викреслює зафарбований прямокутник, а метод FrameRect — тільки контур. У кожного з цих методів лише один параметр — структура типу TRect. Поля структури TRect містять координати прямокутної області, вони можуть бути заповнені за допомогою функції Rect.

 

Нижче наведена, як приклад процедура, яка на поверхні форми викреслює прямокутник з червоною заливкою і заокруглений зелений прямокутник.

 

procedure TForm1.Button1Click(Sender: TObject);