11.Компоненты FontDialog, ColorDialog
Компонент Delphi FontDialog располагается на странице Dialogs Палитры компонентов. C его помощью можно настроить характеристики шрифта для любых визуальных компонентов.
Выбор параметров диалогового компонента FontDialog происходит в следующем окне (см. рисунок внизу).
Выбор шрифта, его начертание, размер и цвет устанавливается интуитивно просто согласно выбранных значений. Основные свойства компонента следующие:
Font - задает характеристики шрифта, которые определяются его подсвойствами. Такими как Name, Color, Size.
MaxFontSize - задает в диалоге максимальный размер шрифта. Активен если параметр fdLimitSize установлен в TRUE.
MinFontSize - задает в диалоге минимальный размер шрифта. Активен если параметр fdLimitSize установлен в TRUE.
Device - указывает для какого устройства устанавливается шрифт. Его значение может быть равно: fdScreen (вывод осуществляется на экран), fdPrinter (вывод осуществляется на принтер) и fdBoth (вывод осуществляется на экран и принтер).
Свойство Option используется для настройки различных параметров диалога их более пятнадцати. Наиболее важные это:
fdEffects - устанавливает видимость переключателей зачеркнутый и подчеркнутый.
fdLimitSize - с помощью него устанавливается размер диапазона шрифтов размером от MaxFontSize до MinFontSize.
fdTrueTypeOnly - выводятся в списке только шрифты TrueType.
fdWysiwyg - выводятся в списке шрифты доступные одновременно для экрана и принтера.
Для закрепления материала на форму поместим кнопку и диалог выбора шрифта. Для кнопки напишем такой обработчик события:
if FontDialog1.Execute then Button1.Font := FontDialog1.Font;
Нажав на кнопку мы можем выбрать шрифт и его параметры для нашей кнопки.
Итог: был разобран компонент Delphi FontDialog, его использование.
Компонент Delphi ColorDialog (диалог выбора цвета) располагается на вкладке Dialog Палитры Компонентов. C его помощью можно задать цвет любого визуального компонента.
Выбор
цвета осуществляется с помощью диалогового
окна, показанного выше. Первоначально
окно состоит из левой половины и мы
можем выбрать "Основные цвета".
При необходимости мы можем задать
"Дополнительные цвета". Для этого
нажимаем кнопку "Определить цвет"
и перед нами появиться вторая, правая
половина нашего диалогового окна, в
котором выбрав визуально интересующий
нас цвет нажимаем кнопку "Добавить
в набор".
Цвет выбранный пользователем, основное свойство данного компонента, определяется свойством Color. Свойство Color можно задать на этапе проектирования в Инспекторе Объектов или же программно.
С помощью свойства CustomColors можно задать цвета дополнительной палитры. Цвета задаются строками:
порядковый номер цвета = шестнадцатеричное представление цвета;
порядковый номер цвета - ColorA (первый цвет) и далее до СщдщкЗ(последний шестнадцатый цвет). Для примера строка
ColorA = 909090
задаст первый цвет и он будет серый.
Свойство Options состоит из следующего множества опций:
cdFullOpen - мы будим видим сразу же при открытии диалогового окна обе панели, как на рисунке вверху;
cdPreventFullOpen - кнопка "Определить цвет" будет недоступной (серого цвета) и как следствие мы не сможем вызвать правую панель для определения цвета;
cdShowHelp - справа, после кнопки отмена в диалоговом окне появиться кнопка "Справка";
sdSolidColor - дается указание использовать ближний к выбранному сплошной цвет, что уменьшает палитру;
cdAnyColor - tcnm возможность выбрать не сплошные цвета.
Первоначально все опции отключены.
Для примера расположим на форме компонент Edit и кнопку Button, а также сам компонент ColorDialog, как показано на рисунке. Нажав на кнопку мы будем вызывать диалог выбора цвета и задавать цвет фона компонента Edit.
Обработчик кнопки будет таким:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
edit1.Color := ColorDialog1.Color;
end;
Итог: мы познакомились с компонентом ColorDialog и его применением в приложении.