Дополнительное задание 1 к упр. 5.8
В этом упражнении вы создадите программу, в которой цвет фигуры будет выбираться из Палитры цветов, которая откроется при щелчке на кнопке «Выбрать цвет фигуры».
Создайте проект. В Строке заголовка формы запишите название: «Изменение цвета 2» (свойство Caption). Форме дайте имя FormChColor2 (свойство Name). Сохраните модуль и проект под UnitChCoior2 и ProjectChColor2 соответственно в папке «Изменение цвета».
Разместите на форме следующие компоненты: TBitBtn (кнопка с графикой) и TShape (фигура) со страницы Additional (дополнительные) и TColorDialog (диалог цвета) со страницы Dialogs (диалоги). Назовите кнопку «Выбрать цвет фигуры» и запишите в обработчике щелчка на ней следующий код:
if ColorDialogl.Execute then
Shapel.Brush.Color:=ColorDialogl.Color;
Если в диалоговом окне выбран цвет для объекта Shape1, то цвету фигуры Shape1 присваивается значение, выбранное в диалоговом окне.
Сохраните изменения и запустите программу.
Попробуйте изменить цвет вашей фигуры.
Рис. 3 Окно формы «Изменение цвета 2»