Стандартные диалоговые окна

На странице Dialogs Палитры компонентов: OpenDialog (выбор открываемого файла) SaveDialog (выбор сохраняемого файла) OpenPictureDialog (выбор открываемого графического файла) SavePictureDialog (выбор сохраняемого графического файла) FontDialog (настройка параметров шрифта) ColorDialog (выбор цвета) PrintDialog (вывод на принтер) PrinterSetupDialog (выбор принтера и его настройка) FindDialog (ввод строки текста для поиска) ReplaceDialog (ввод строки текста для поиска и замены) PageSetupDialog (установка параметров страницы)

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

Выбор имени файла Компоненты OpenDialog и SaveDialog Основные свойства компонентов: FileName ( типа String ) – указывает имя и полный путь файла, выбранного в диалоге. Имя файла отображается в строке редактирования и является результатом диалога Title ( типа String ) – задает заголовок окна (по умолчанию Open и Save) InitialDir ( типа String ) – определяет каталог, содержимое которого отображается при вызове диалогового окна DefaultExt ( типа String ) – задает расширение, автоматически используемое в имени файла, если пользователь не указал расширение

FilterIndex ( типа Integer ) – указывает какая из масок фильтра отображается в списке (по умолчанию – первая маска) Filter ( типа String ) – задает маски имен файлов, отображаемых в списке Тип файлов

Options – применяется для настройки параметров, управляющих внешним видом и возможностями диалога. Наиболее важные из них: ofAllowMultiSelect (из списка можно выбрать одновременно более одного файла) ofCreatePrompt (при вводе несуществующего имени файла выдается запрос на создание файла) ofNoLongNames (имена файлов отображаются как короткие, не более 8 символов для имени и 3 символов для расширения) ofOldStyleDialog (создает диалоговое окно в стиле Windows 3.11

Фильтр представляет собой последовательность значений, разделенных знаком | Каждое значение состоит из описания и маски, также разделенных знаком | Описание это обычный текст, поясняющий пользователю данную маску Маска является шаблоном отображаемых файлов и состоит из имени и расширения

OpenDialog1.Filter := Текстовые файлы| *.txt; *.doc|Все файлы| *.* ; {здесь фильтр формируется с двумя масками – текстовые файлы и все файлы} Обычно фильтр формируют при проектировании приложения, используя редактор фильтра (Filter Editor)

Например: procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;

Компоненты OpenPictureDialog и SavePictureDialog Вызывают стандартные диалоги открытия и сохранения графических файлов Отличаются от предыдущих видом окон и установленными значениями свойства Filter Для работы с классом TJPEGImage нужно подключить модуль JPEG

Выбор параметров шрифта Компонент FontDialog Основные свойства компонента: Font ( типа TFont ) – определяет параметры шрифта MaxFontSize ( типа Integer ) – ограничивает доступный в диалоговом окне максимальный размер шрифта MinFontSize ( типа Integer ) – ограничивает доступный минимальный размер шрифта

Options – служит для настройки отдельных параметров диалога и включает: fdEffects (отображение флажков Подчеркнутый и Зачеркнутый, списка Цвет) fdLimitSize (активизация возможности установки диапазона размера шрифта) fdTrueTypeOnly (отображение только шрифтов TrueType) fdWysiwyg (отображение в списке шрифтов, одновременно доступных для экрана и для принтера)

Например: procedure TForm1.Button1Click(Sender: TObject); begin if FontDialog1.Execute then Label1.Font:=FontDialog1.Font; end;

Выбор цвета Компонент ColorDialog Основные свойства компонента: Color – определяет выбранный цвет Options включает параметры: cdFullOpen (отображение дополнительной панели выбора цвета) cdPreventFullOpen (отключение кнопки Define Custom Colors>>) cdShowHelp (отображение кнопки Help) cdSolidColor (задание вместо выбранного цвета ближайшего сплошного цета) cdAnyColor (выбор несплошных цветов)

Например: procedure TForm1.Button2Click(Sender: TObject); begin if ColorDialog1.Execute then Label1.Color:=ColorDialog1.Color; end;

Ввод строк для поиска и замены Компонент FindDialog Служит для ввода текстовой информации в строку поиска Введенная строка является значением свойства FindText типа String Кодирование операций, связанных с поиском строки, осуществляется программистом Для этого используется событие OnFind, возникающее при нажатии кнопки Найти далее

Например: procedure TForm1.Button1Click(Sender: TObject); begin FindDialog1.Execute; end; procedure TForm1.FindDialog1Find(Sender: TObject); begin if pos(FindDialog1.FindText, Memo1.Text)0 then begin Memo1.HideSelection:=False; Memo1.SelStart:=pos(FindDialog1.FindText, Memo1.Text)-1; Memo1.SelLength:=Length(FindDialog1.FindText); end else MessageDlg(Строка '+FindDialog1.FindText+' не найдена!', mtConfirmation, [mbYes], 0); end;

Пояснения к примеру: При нажатии кнопки Найти далее в тексте редактора Memo1 ищется первое появление строки, заданной для поиска (FindDialog1.FindText) При успешном поиске найденный текст выделяется, в противном случае выдается сообщение об отсутствии искомой строки Чтобы найденный текст в компоненте Memo1 был выделен цветом, перед выделением искомой строки свойству HideSelection присваивается значение False

Компонент ReplaceDialog организует стандартное диалоговое окно Заменить, предназначенное для ввода текстовой информации в строки Найти и Заменить на Введенные строки являются значениями свойств FindText и ReplaceText типа String

Например: procedure TForm1.Button2Click(Sender: TObject); begin ReplaceDialog1.Execute; end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject); label 1; begin Memo1.HideSelection:=True; 1: if pos(ReplaceDialog1.FindText, Memo1.Text)0 then begin Memo1.SelStart:=pos(ReplaceDialog1.FindText, Memo1.Text)-1; Memo1.SelLength:=Length(ReplaceDialog1.FindText); Memo1.SelText:=ReplaceDialog1.ReplaceText; Goto 1; end; Memo1.HideSelection:=False; end;

Действия, связанные с поиском и заменой текста должны выполняться в обработчике события OnReplace, возникающего при нажатии кнопок Заменить и Заменить все Диалоговые окна Найти и Замена являются немодальными