Прямокутник, глава 10

Прямокутник викреслюється методом 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 - розмір еліпса, одна чверть якого використовується для викреслювання округленій кута (рис. 10.8).

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

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

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

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

procedure TForm1.Button1Click (Sender: TObject);

r1, r2: TRect; // координати кутів прямокутників

// заповнення полів структури

// задамо координати кутів прямокутників

with fоrm1.Canvas do begin

Схожі статті