Відображення базових графічних примітивів – лінія, прямокутник, сектор, ламана,

сектор, ламана, еліпс, налаштування стилю та кольору примітивів засобами мови

програмування.

редакторі та текстовому процесорі?
Які властивості графічних примітивів ви знаєте?
Які спільні

властивості напису, кнопки і форми ви знаєте?

Lazarus, можна створювати та відображати різними способами. Одним з них

є малювання графічних примітивів за їх координатами на координатній площині.

Розділ 6 § 6.8

на формі. Початок координат збігається з верхнім лівим кутом форми.

Вісь Ох спрямована вправо, вісь Оy - униз.

Частина координатної площини, що відображається на формі, має розміри ширини і висоти форми. На малюнку червоним кольором позначено точку з координатами (100, 200).

Розділ 6 § 6.8

процесі виконання програми на формі в середовищі програмування Lazarus потрібно

розміщувати полотно. Для цього звертаються до властивості Canvas — властивості об'єкта Form, який у свою чергу є об'єктом, що має свої методи та властивості.

Методи

Властивості

використовують для побудови на полотні різних фігур

використовують щоб задавати колір лінії, її товщину тощо.

Розділ 6 § 6.8

свої координати та колір. Координати можуть бути задані лише цілими

числами. Колір можна задати константою типу ТСоlоr. Приклади констант і відповідних їм кольорів наведено у таблиці:

Розділ 6 § 6.8

з координатами (х, у) деякий колір, наприклад червоний, потрібно виконати

команду:

Canvas.Pixels[x, у] := clRed;

Розділ 6 § 6.8

команди:
Вибір на формі точки (я, у), з якої буде розпочинатися

малювання ліній

Canvas.MoveTo (x, у)

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

Canvas.LineTo (x, y)

Малювання прямокутника, у якого протилежні вершини розміщені в точках (х1, у1) та (х2, у2)у а сторони паралельні осям координат

Canvas.Rectangle
(x1, y1, x2, y2)

Розділ 6 § 6.8

якого протилежні вершини розміщені у точках (x1, y1) та (х2,

y2), а сторони паралельні осям координат. Прямокутник при цьому не відображається

Canvas.Ellipse
(x1, y1, x2, y2)

Малювання замкненої фігури - сектора еліпса. Точки (x1, y1) та (x2, у2) задають прямокутник, у який вписано еліпс. Початкова точка дуги визначається перетином еліпса з прямою, що проходить через його центр і точку (x3, yЗ). Кінцева точка дуги визначається перетином еліпса з прямою, що проходить через його центр і точку (х4, у4). Дуга малюється проти годинникової стрілки від початкової до кінцевої точки.

Canvas.Pie (x1, y1, x2, y2, x3, y3, x4, y4)

Розділ 6 § 6.8

вписаний у прямокутник, що має протилежні вершини в точках А

(100, 100) та С (500, 300).

Сектор еліпса утворений відрізками, що сполучають центр прямокутника (точку Т (300, 200)) з точками М (300, 100) та N (400, 100), та дугою еліпса, що починається в точці М (300, 100), а закінчується при перетині еліпса з відрізком TN.

Canvas.Pie (100, 100, 500, 300, 300, 100, 400, 100)

Розділ 6 § 6.8

його контуру та внутрішньої області. Значення властивостей контуру та внутрішньої

області графічного примітива збігаються зі значеннями властивостей форми, наведеними у таблиці.

примітивів, варто спочатку встановити значення властивостей контуру та внутрішньої області

фігури, після чого відобразити саму фігуру.

Розділ 6 § 6.8

:= clGreen; // колір контуру зелений
Canvas.Pen.Width := 3; // товщина

контуру З пікселі
Canvas.Brush.Color := clRed; // колір заливки червоний
Canvas.Brush.Style := bsDiagCross; (* стиль заливки — сітка з діагональними лініями*)
Canvas.Rectangle (100, 100, 500, 300); (* прямокутник з протилежними вершинами в точках (100, 100) та (500, 300) і сторонами, паралельними осям координат *)
end;

Розділ 6 § 6.8

формі одразу після запуску проекту на виконання, потрібно команди малювання

розміщувати в процедурі - обробнику події Paint для форми.

Результат виконання процедури малювання графічного примітива

Розділ 6 § 6.8

потрібно двічі клацнути на кнопці TShape (англ. shape - форма,

фігура) на вкладці Additional (англ. additional - додатковий) вікна середовища Lazarus.

Розділ 6 § 6.8

аналогічні до відповідних властивостей форми.
Як і для форми, значення

властивостей Фігури Тор, Left, Height і Width можна змінити або на вкладці Властивості, або перетягуванням.

Розділ 6 § 6.8

визначають колір і стиль контуру та внутрішньої області.
Що визначає її

значення

Властивість

Колір контуру

Pen.Color

Товщина контуру

Pen.Width

Стиль лінії контуру

Pen.Style

Колір заливки внутрішньої області

Brush.Color

Стиль заливки внутрішньої області

Brush.Style

Розділ 6 § 6.8

може набувати значень із набору, вказаного в таблиці:

на вкладці Властивості у вікні Інспектор об'єктів або з використанням

команди присвоювання. Ці значення можуть бути такими самими, як і для графічних примітивів.

Розділ 6 § 6.8

Shape, що визначає її форму. Ця властивість може набувати, наприклад:
За

замовчуванням значення цієї властивості визначає квадрат з контуром чорного кольору товщиною 1 піксель і суцільною заливкою білого кольору.

Розділ 6 § 6.8

створеного з використанням кількох об'єктів Фігура з різними значеннями властивостей.
Створення

зображення з використанням об'єктів Фігура

Розділ 6 § 6.8

використовуючи закладку Події у вікні Інспектор об'єктів, створити для цього

компонента процедури обробки подій: OnMouseDown (натискання кнопки миші), OnMouseMove (рух миші), OnMouseUp (відпускання кнопки миші в області об'єкта). Текст програми буде таким:

var
Form1: TForm1;
х1, y1: Integer; // опис глобальних змінних
flag: Boolean = False;
implementation
{$R * .dfm}

Розділ 6 § 6.8

X, Y: Integer); begin
flag := False;
end;
procedure Tform1.Shape1MouseMove (Sender: TObject; Shift:

TShiftState; X, Y: Integer);
begin
If flag Then
with Tshape (Sender) do

Продовження

Розділ 6 § 6.8

Top + у – y1;
end;
end;
procedure Tform1.Shape1MouseDown (Sender: TObject; Button:
TMouseButton; Shift:

TShiftState; X, Y: Integer);
begin
x1 := x; y1 := y;
flag := True
end;

Продовження

Розділ 6 § 6.8

кнопку миші в момент, коли вказівник міститься в області компонента

Shape, то в процедурі Shape1MouseDown змінним х1, у1 будуть присвоєні значення координат розміщення вказівника, а змінній flag — значення true. Значення змінної flag (прапорця) сигналізує, чи натиснута кнопка миші. Якщо не відпускати кнопку миші й перетягувати об'єкт, то в процедурі TForm1.Shape1MouseMove відбувається перерахунок координат компонента Shape відносно системи координат форми. Це створює ефект руху фігури за вказівником. Якщо кнопку миші відпустити, то виконається процедура TForm1.Shape1MouseUp, в якій flag набуває значення False, і перетягування завершиться.

Розділ 6 § 6.8

компонентів Shape, можна розробити гру «Конструктор».
Розділ 6 § 6.8

форми використовується для малювання графічних примітивів?
Які команди використовуються для малювання

графічних примітивів - лінія, ламана, прямокутник, еліпс, сектор?

Як змінити контур і внутрішню область графічних примітивів?

Який компонент використовується для створення графічних примітивів? Як його встановити на формі?

Розділ 6 § 6.8