Циклічні алгоритми і Canvas у Lazarus

У поданій практичній роботі Вам пропонується створити проект побудови концентричних кругів різного кольору.

Для виконання завдання подивіться відео.

 

Завдання

Створіть проект у якому при кліку мишкою по формі на ній (за допомогою циклу) повинно побудуватися кілька концентричних кругів  різного кольору які накладені одне на одне. На відео вище їх 5. Після кожного кліку колір кіл змінюється. Цього можна досягти якщо для фарбуваня кола використати функцію RGBToColor(R,G,B). Де R,G,B - цілі числа в межах від 0 до 255. Для того, щоб вони щоразу змінювали колір, можна використати функцію random(255). І тоді рядок коду який вказує колір заливки виглядатиме наступним чином:

form1.Canvas.Brush.Color:=RGBToColor(random(255),random(255),random(255));

Підказка

  • Команда для побудови кола - form1.canvas.Ellipse(x1,y1,x2,y2). Спочатку  будується найбільше коло, потім координати х1 та y1 - збільшуються, а x2, y2 - зменшуться. 
  • Щоразу при кліку Form1 (вікно програми) стає квадратом.

Додаткові завдання (для зареєстрованих)

 

ПОДІЛИТИСЯ У FACEBOOK