Интерактивно рисуване - Сайт tskorni!

Стартирайте средата за програмиране на Lazarus (Приложения - Програмиране - Lazarus).

Създайте нов проект и го запазете в нова папкаЧЕРТЕЖ

(Проект -Запазване на проекта като.).

1. Поставете група радио бутониRadioGroup 1 във формуляра

2. Радио бутоните (превключвателите) образуват групи от взаимосвързани индикатори, от които обикновено може да бъде избран само един. Те се използват, за да позволят на потребителя да избере една от няколко взаимно изключващи се алтернативи.

3. Задайте свойството Caption на цвят на четката. Задайте списъка за изграждане на страницата със свойства на обекта, като отворите диалоговия прозорец от менюто "Елементи":

Колко реда запишете - толкова превключватели ще бъдат.

4. Задайте началната позиция на радио бутона = Черен (ако тази форма е първа в списъка, нейният индекс е 0).

5. За да рисувате с мишката, поставете PaintBox 1 върху формата и извикайте събитието OnMouseMove. Напишете програмния код:

процедура TForm1.PaintBox1MouseMove(Подател: TObject; Shift: TShiftState; X,

случай RadioGroup1.ItemIndex на

ако не (ssleft в Shift), тогава излезте;

с PaintBox1.Canvas направете

Елипса (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

---