### 3.11. Компонент Окно выбора цвета (TColorDialog).

С помощью данного компонента можно вызывать стандартное диалоговое окно выбора цвета. Этот компонент служит для настройки цвета с помощью палитры, спектра цветов, и дополнительных цветов которые настраиваются с помощью спектра.

### 3.12 Создание диалога настройки цвета для программы.

Сначала разместим на форме четыре компонента класса TColorDialog, и в главном меню на форме выберем пункт Цвет – Выбор цвета редактора, и в редакторе кода введем следующий текст:

// проверка на нажатие кнопки ok в первом диалоге

If Form2.ColorDialog1.Execute

// при соблюдении этого условия установка в качестве цвета редакторе цвета выбранного в диалоге выбора цвета

Then Form4.RichEdit1.Color:=colorDialog1.Color;

Теперь опять переключимся на форму и в главном меню на ней выберем пункт Цвет – выбор цвета шрифта, и в редакторе кода мы введём следующий код:

//проверка на нажатие кнопки ok во втором диалоге

If Form2.ColorDialog2.Execute

// установка в качестве цвета шрифта установка цвета из второго диалога

Then Form4.RichEdit1.Font.Color:=colorDialog2.Color;

Теперь мы переключимся на форму и в главном меню выберем пункт Цвет – выбор цвета панелей инструментов – первой панели, и введём следующий текст:

// проверка на нажатие кнопки ok в четвёртом диалоге выбора цвета

if ColorDialog4.Execute

//при соблюдении этого условия для первой панели инструментов будет устанавливаться цвет из активного цвета диалога

Then Form2.ToolBar1.Color:=colorDialog4.Color;

Ещё раз переключимся на форму, и на ней в главном меню выберем пункт Цвет – выбор цвета панелей инструментов – вторая панель, и в редакторе мы введём следующий код:

// проверка на нажатие кнопки Ok в четвёртом диалоге

if ColorDialog4.Execute

// при соблюдении этого условия – установка в качестве цвета для второй панели инструментов цвета из четвёртого диалога цвета

Then Form2.ToolBar2.Color:=colorDialog4.Color;

Затем переключимся опять на форму, и в главном меню выберем пункт Цвет – Выбор цвета строки состояния, и в редакторе кода надо добавить следующие строки:

// проверка на нажатие кнопки ok в третьем диалоге выбора цвета

if ColorDialog3.Execute

// при соблюдении этого условия в качестве цвета для строки состояния будет устанавливаться из цвета третьего диалога выбора цвета

Then Form2.StatusBar1.Color:=colorDialog3.Color;

После этого можно запустить программу, после этого в главном меню сначала надо выбрать пункт цвет - выбор цвета редактора, и в данном диалоге выберем ячейку , и нажать кнопку ok. Потом в главном меню выберем пункт Цвет – выбор цвета шрифта, и в этом диалоге надо выбрать ячейку с цветом и нажмём опять кнопку ok. Опять переключимся на главное меню и выберем в ней пункт Цвет – выбор цвета панели инструментов – первая панель, и в этом диалоге выберем ячейку , и закроем диалоговое окно нажатием кнопки ok. Потом в главном меню выберем пункт Цвет – Выбор цвета для панели инструментов – Вторая панель, и выберем для неё такой же цвет. Потом в главном меню выберем пункт Цвет – выбор цвета для строки состояния, и в диалоговом окне выберем ячейку, после этого мы закроем программу, и на форме в главном меню выберем пункт Форматирование – Шрифт, и в редакторе кода мы введём следующий код:

// установка в «нажатое» состояние кнопки SpeedButton12

Form2.SpeedButton12.Down:=true;

// отображение панели инструментов ToolBar2

Form2.ToolBar2.Visible:=true;

Теперь опять переключимся на форму, и в главном меню на ней выберем пункт Форматирование – Автовыравнивание, и ввести следующий код:

// скрытие горизонтальной полосы прокрутки.

Form4.RichEdit1.ScrollBars:=ssVertical;

// установка редактору ввода чтобы он «не пускал» текст за видимую область редактора ввода

Form4.RichEdit1.WordWrap:=true;

После этого можно запустить программу, после выбора пункта меню Форматирование – Шрифт, должна появляться дополнительная панель инструментов, а если в редактор ввода ввести сто символов A, и выбрать в главном меню пункт Форматирование – Автовыравнивание, то символы A должны отображаться только в видимой части редактора.

<<Назад | Далее>>