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

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

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

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

Об’єкт	Властивість	Значення властивості
Shape1	Shape	stCircle
Shape2	Shape	stRectangle
RadioGroup1	Items	Червоний, синій, зелений
RadioGroup2	Items	Горизонтальна штриховка, вертикальна штриховка, штриховка в клітинку
Button 1	Caption	Завершити
	Font	Шрифт: Bookman Old Style, Стиль шрифту: напівжирний, Розмір: 14

 

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. 
   
   Запустіть проект на виконання. Перевірте правильність роботи програми, якщо є помилки виправте їх. Збережіть проект у власній папці. Повідомте вчителя про завершення роботи.