Інтерактивне малювання - Сайт tskorni!

Запустіть програмне середовище Lazarus (Програми – Програмування – Lazarus).

Створіть новий проект і збережіть його в новій папціМАЛЮВАННЯ

(Проект -Зберегти проект як.).

1. Помістіть на форму групу радіокнопокRadioGroup 1

2. Радіокнопки (перемикачі) утворюють групи взаємопов'язаних індикаторів, з яких зазвичай може бути обраний лише один. Вони використовуються для вибору користувачем однієї з кількох взаємовиключних альтернатив.

3. Для властивості Caption задайте значення Колір пензля. Задайте список побудови на сторінці властивостей об'єкта, відкривши діалогове вікно у меню Items:

Скільки рядків ви запишете - стільки і буде перемикачів.

4. Призначте початкове положення радіокнопки = Чорний (якщо ця фігура перша у списку, її індекс дорівнює 0).

5. Для малювання мишею помістіть форму PaintBox 1 і викличте Подія OnMouseMove . Напишіть програмний код:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

case RadioGroup1.ItemIndex of

if not (ssleft in Shift) then exit;

with PaintBox1.Canvas do

Ellipse ( x , y , x +4, y +4); / / Форма кисті

6. Для PaintBox 1 викличте подію OnMouseDown :

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

7. Запустіть на виконання та перевірте програму на наявність помилок

8. Додайте вибір пензля зеленого, синього та білого кольорів.

9. Помістіть на форму Діалог Вибір кольору – ColorDialog 1

---