Прямокутник
Прямокутник викреслюється методом 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);
|
