8.4. Общий диалог

8.4.1. Размещение общего диалога (Common Dialog)

Общий диалог (компонент Microsoft Common Dialog Control 6.0) содержит несколько панелей диалога, которые используются в Windows. Для наглядности можно заменить умалчиваемое значение свой­стваName(CommonDialog...) на более подходящее (например, Getfile).

Специфичные свойства

DialogTitle ‑ можно указать заголовок окна диалога.

CancelError=True‑ при нажатии кнопкиCancelвозникает ошибка с кодомcdlCancel, которую можно обработать дополнительно (IfErr.Num­ber=cdl­Can­celThen...) (п. 13.1.2).

8.4.2. Диалог открытия файла

Специфичные свойства

FileName ‑ полное имя выбранного файла.

Filter=i1|m1|i2|m2... ‑ задает список масок (m1, m2, ...) для филь­­трации имен файлов, выво­димых в окно диалога, и име­на этих масок (i1, i2, ...). В маске можно указать символы: “*” (любая по­с­ле­довательность симво­лов), “?” (любой символ). Для одной группы файлов может быть несколько масок, которые разделяются символом “;” (Doc-файлы|*.doc;*.dot;*.rtf ).

Специфичные методы

ShowOpen/ShowSave‑открытие диалога для входного/сох­­раняемого файла.

Рис. 8.4.2. Окно выбора файла

Пример. Можно раз­мес­тить на форме команд­ную кнопку для откры­тия файла и написать проце­дуру обработки события Click этой кнопки:

GetFile.Filter=”Тексты|*.txt|Отчеты|*.prn;*;*.rpt” ‘фильтрация файлов

GetFile.DialogTitle=”Выберите файл” ‘заголовок окна

GetFile.ShowOpen ‘вывод окна диалога выбора существующего файла

Nf=GetFile.FileName ‘имя выбранного файла помещается в переменную Nf

Open Nf For Input As #1 ‘открытие входного выбранного файла

8.4.3. Диалог настройки шрифтов

Специфичные свойства

Flags‑ типы выводимых шрифтов: 1 (экран­ные), 2 (принтера), 3 (все).

FontName,Font­Size,Font­Bold,FontItalic,Font­Un­derLine,FontStrikethru - ре­зуль­таты настройки: имя шриф­та, размер, полужирный, курсив, подчеркива­ние, перечеркивание соответственно.

Окно диалога (рис. 8.4.3) вызы­вается методом ShowFont, ана­ло­гич­­ным по синтаксису методуShowOpen.

Пример. Разместить на форме Form1 объект Common Dialog под именем GetFont и командую кнопку для настройки шрифта формы; далее следует создать процедуру обработки события Click этой кнопки:

GetFont.Flag=3 ‘вывести все шрифты

GetFont.ShowFont ‘вывод окна диалога настройка шрифта

Form1.FontName=GetFont.FontName ‘изменить значения свойств формы

Form1.FontSize= GetFont.FontSize

Form1.FontBold= GetFont.FontBold ...

Рис. 8.4.3. Окно настройки шрифта

8.4.4. Диалог настройки цвета

Вызов окна диалога (рис. 8.4.4) аналогичен предыдущему:

Рис. 8.4.4. Окно настройки цвета

Специфичные свойства

Flags=cdlCCRGBInit ‑ признак цветовой настройки.

Color ‑RGB‑номер выбранного цвета.

Окно диалога (рис. 8.4.4) вызы­вается методом ShowColor.

Пример цветовой настройки

GetColor.Flags=cdlCCRGBInit ‘установка значения Flags

GetColor.ShowColor ‘вызов метода выбора цвета

Form1.BackColor=GetColor.Color ‘изменение цвета фона формы

Можно выбрать уже готовый цвет или подобрать нужный, меняя интенсивность красного (Red), зеленого (Green) и синего (Blue) цветов.