2. Хід роботи:

1) постанова задачі;

2) проектування форми;

3) складання програми;

4) налагодження програми;

5) обробка результатів.

3. Висновок

ЛАБОРАТОРНЕ ЗАНЯТТЯ №_9____

Модуль (тема): побудова та налагодження програм побудови графічних

зображень

Мета: навчитися складати та налагоджувати програми побудови графічних

зображень

Оснащення: персональний комп’ютер, середовище програмування Delphi

План проведення лабораторного заняття:

• опитування;

• виконання роботи за індивідуальними завданнями.

Питання для вхідного контролю:

1. намалювати на формі попиксельно пряму лінію червоного кольору;

2. намалювати еліпс;

3. вивести напис "Графічні об'єкти".

Домашнє завдання:

Л2,с. 243 – 261, Л4,с. 355 – 385.

Інструкція проведення лабораторної роботи

МЕТА РОБОТИ: навчитися складати програми побудови графічних зображень

НЕОБХІДНЕ ОБЛАДНАННЯ: 1) Комп’ютер IBM PC/AT

2. Скорочені теоретичні відомості

Побудова графічних зображень

Багато компонентів Delphi (Form, Label, Image, Statusbar та ін) мають властивість Canvas (полотно, канва) - поверхня для малювання. Кожна точка канви має координати x і y. Координата x зростає при переміщенні зліва направо, а координата y - при переміщенні зверху вниз. Початок координат - верхній лівий кут канви.

0

y

x

Координати вимірюються в пікселях. Піксель - це найменший елемент поверхні малюнка, з яким можна маніпулювати. На канві можна малювати по пікселям, пером або пензлем. Для малювання по пікселям використовують властивість канви Pixels. Це властивість являє собою двовимірний масив, який відповідає за кольори канви. Наприклад, Canvas.Pixels [10,20] відповідає кольору пікселя з координатами (10, 20). Щоб задати цьому пікселю, наприклад, червоний колір, треба записати Canvas.Pixels [10,20]: = clRed; Приклад. Намалюємо на формі попіксельно пряму лінію синього кольору.

var i:integer;

begin

for i:=1 to 100 do

form1.Canvas.Pixels[i,i]:=clBlue;

end;

Приклад. Намалюємо на формі попіксельно червону криву.

var i:integer;

begin

for i:=1 to 500 do

form1.Canvas.Pixels[i,round(20*ln(i))]:=clRed;

end;

Для малювання на канві пером використовують властивість Pen. Це об'єкт, який має ряд властивостей: Color - колір пе; Width - ширина лінії (в пікселях), за замовчуванням = 1; Style - вид лінії:

psSolid суцільна лінія

psDash штрихова лінія

psDot пунктирна лінія

psDashDot Штрих - пунктирна лінія

psDashDotDot Лінія, чергуються штрих і два пунктиру

psClear відсутність лінії

Всі стилі зі штрихами і пунктирами доступні тільки при Width = 1. В іншому випадку лінії цих стилів малюються як суцільні.

Зміна позиції пера без промальовування - метод канви MoveTo (x, y), де (x, y) - координати точки, в яку переміщається перо.

Методом LineTo (x, y) можна провести лінію в точку з координатами (x, y) з поточної позиції пера

Приклад. Намалюємо на формі синю пунктирну лінію.

Form1.Canvas.Pen.Color:=clBlue;

Form1.Canvas.Pen.Style:=psDot;

Form1.Canvas.MoveTo(0,0);

Form1.Canvas.LineTo(100,100);

Пером можна малювати фігури:

Ellipse(x1,y1,x2,y2) - окружність або еліпс; точки (x1, y1) і (x2, y2) визначають прямокутник, що описує еліпс;

(x1, y1)

(x2, y2)

R

(x1, y1)

ectangle(x1,y1,x2,y2) – прямокутник;

(x2, y2)

RoundRec(x1, y1, x2, y2, x3, y3) – прямокутник з округленими кутами;

(x3, y3)

Приклад. Намалюємо на формі еліпс без заливки з штрих - пунктирною межею червоного кольору.

Form1.Canvas.Pen.Color:=clLime;

Form1.Canvas.Pen.Style:=psDashDot;

Form1.Canvas.Ellipse(10,30,300,200);

Для виведення тексту на канву використовується метод TextOut (x, y, 'Текст'); де (x, y) - це координати позиції, з якої буде виводиться Текст; цей метод використовує властивість канви Font - шрифт.

Приклад. Зробимо на канві форми напис: Олександр Пушкін.

Form1.Canvas.Font.Size:=30;

Form1.Canvas.Font.Color:=clLime;

Form1.Canvas.TextOut(10,15,'Александр Пушкин');

У канви є властивість Brush - пензлик. Ця властивість визначає фон і заповнення замкнутих фігур на канві. Об'єкт Brush має властивості: Color - колір заповнення;

Style – шаблон заповнення:

bsSolid суцільна заливка bsClear немає заливки

bsBDiagonal bsFDiagonal

bsCross bsDiagCross

bsHorizontal bsVertical

Приклад. Намалюємо на формі квадрат в клітинку зеленого кольору.

Form1.Canvas.Brush.Color:=clLime;

Form1.Canvas.Brush.Style:=bsCross;

Form1.Canvas.Rectangle(10,10,100,100);

Кольори констант:

clBlack - Чорний; clMaroon - Темно-бордовий; clGreen – Зелений; clOlive - Оливково-зелений; clNavy - Темно-синій; clPurple - Пурпуровий; clTeal - Морської води;clGray-Сірий;clSilve –Срібний; clRed – Червоний; cllime - Лимонно-зелений ; clBlue – Синій; clYello - Жовтий; clFuchsia - Бузковий; clAqua - Блакитний; clWhite - Білий.