Алгоритми та програми

Вправа 1. Перетворення.

Завдання. Розробіть проект у середовищі Lazarus, у якому, коли працюють мишею на зображенні круга, він зафарбовується в колір, обраний у групі перемикачів Колір, а коли працюють мишею на зображенні квадрата, - зафарбовується обраним кольором та застосовується стиль заливки, який обирають у групі Заливка.

1. У власній папці створіть папку Перетворення.
2. Сплануйте проект. Передбачте, які об’єкти будуть використані на екранній формі та які події відбуватимуться з ними.
3. Запустіть середовище Lazarus, створіть новий проект. Змініть назву об'єкта Form1 Перетворення.
4. У вікні редактора  форми Form1 додайте об'єкти, які мають такі властивості.

5. Створіть  процедуру опрацювання події клацання кнопкою мишки на колі. Для цього оберіть в таблиці вікна Інспектора об’єктів вкладку Події, двічі клацніть у клітинці праворуч від OnMouseDown. У вікні редактора коду запишіть програмний код.

if RadioGroup1.ItemIndex=0 then Shape1.Brush.Color:=clRed;

  if RadioGroup1.ItemIndex=1 then Shape1.Brush.Color:=clBlue;

  if RadioGroup1.ItemIndex=2 then Shape1.Brush.Color:=clGreen;

6. Створіть  процедуру опрацювання події клацання кнопкою мишки на квадраті.

Двічі клацніть у клітинці праворуч від OnMouseDown. У вікні редактора коду запишіть програмний код.

if RadioGroup1.ItemIndex=0 then Shape2.Brush.Color:=clRed;

  if RadioGroup1.ItemIndex=1 then Shape2.Brush.Color:=clBlue;

  if RadioGroup1.ItemIndex=2 then Shape2.Brush.Color:=clGreen;

  if RadioGroup2.ItemIndex=0 then Shape2.Brush.Style:=bsHorizontal;

  if RadioGroup2.ItemIndex=1 then Shape2.Brush.Style:=bsVertical;

  if RadioGroup2.ItemIndex=2 then Shape2.Brush.Style:=bsCross;

7. Кнопці Завершити присвойте формулу закриття програми.

Form1.Close;

8. 
   
   Запустіть проект на виконання. Перевірте правильність роботи програми, якщо є помилки виправте їх. Збережіть проект у власній папці. Повідомте вчителя про завершення роботи.