Графіка Delphi

Робота з графікою в Delphi -урок на сайті

Виконати завдання №1.

1.У вікні Form1 накреслити прапор Італії, використовуючи код із прикладу на вищенаведеному сайті. Використати обробник подій Button1Click. Зберегти проект у власну папку з назвою Italy.

2.Аналогічно накреслити прапор України. Створити підпис Україна. Зберегти проект у власну папку з назвою Ukraine.

Виконати завдання №2.

1. Фрагмент програми, яка будує зображення світлофора:

With Form1.Canvas do

Begin

Brush.Color := clGray;

Rectangle( 100, 50, 200, 320);

Pie(100, 0, 200, 100, 200, 50,100,50) ;

Brush.Color := clRed;

Ellipse( 120, 70, 180, 130 );

End;

2. Написати код для побудови Світлофора (додати ще 2 кольори)

Виконати завдання №3.

1. Фрагмент програми, яка будує зображення квадратів, кількість яких вказується

var i,n, x,y:integer;

begin

x:=Round (Form1.Width/5); // ширина форми, поділена на 5

y:=Round (Form1.Height/5); // висота форми, поділена на 5

n:=StrToInt(Edit1.Text) ; // кількість квадратів

InvalidateRect(0, nil, true); //очистка форми від квадратів

with Canvas do

Begin

Brush.Style := bsClear; // вибір прозорої заливки

for i:=1 to n do

begin

Rectangle(x,y,x+50,y+50) ; // квадрат зі стороною 50

x:=x+30; //зміна нової координати x для наступного квадрата

y:=y+30; //зміна нової координати у для наступного квадрата

end;

end;

end;:

2. Написати код для побудови Кіл

3. Написати код для побудови Кіл

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