34649

Страница Dialogs

Реферат

Информатика, кибернетика и программирование

Пусть ваше приложение включает окно редактирования Memo1 в которое по команде меню Открыть вы хотите загружать текстовый файл а после какихто изменений сделанных пользователем сохранять по команде Сохранить текст в том же файле а по команде Сохранить как.FileNme; Memo1.FileNme сохраняется в переменной FNme и файл загружается в текст Memo1 методом LodFromFile. Обработка команды Сохранить выполняется оператором Memo1.

Русский

2013-09-08

227.84 KB

5 чел.

Страница Dialogs

Страница Dialogs содержит компоненты, используемые для создания различных диалоговых окон, общепринятых в приложениях Windows. Диалоги используются для указания файлов или выбора установок. Применение поставляемых в составе Delphi диалоговых окон помогает сэкономить время на разработку и придать вашему приложению совместимость с принятыми в Windows нормами диалога.

Компонент

Тип

Описание 


«Открыть файл»

OpenDialog

Предназначен для создания окна диалога «Открыть файл». Компонент невизуальный.


«Сохранить файл как...»

SaveDialog

Предназначен для создания окна диалога «Сохранить файл как...». Компонент невизуальный.


«Открыть рисунок»

OpenPictureDialog

Предназначен для создания окна диалога «Открыть рисунок». Компонент невизуальный.


«Сохранить рисунок как...»

SavePictureDialog

Предназначен для создания окна диалога «Сохранить рисунок как...». Компонент невизуальный.


«Шрифты»

FontDialog

Предназначен дли создания окна диалога «Шрифты». Компонент невизуальный.


«Цвет»

ColorDialog

Предназначен для создания окна диалога «Цвет». Компонент невизуальный.


«Печать»

PrintDialog

Предназначен для создания окна диалога «Печать». Компонент невизуальный.


«Установка принтера»

PriterSetupDialog

Предназначен для создания окна диалога «Установка принтера». Компонент невизуальный.


«Найти»

FindDialog

Предназначен для создания окна диалога «Найти». Компонент невизуальный.


«Заменить»

ReplaceDialog

Предназначен для создания окна диалога «Заменить». Компонент невизуальный.

Диалоги открытия и сохранения файлов — компоненты OpenDialog, SaveDialog, OpenPictureDialog, SavePictureDialog

Компоненты OpenDialog — диалог «Открыть файл» и SaveDialog — диалог «Сохранить файл как...», пожалуй, используются чаще всего, в большинстве приложений. Примеры открываемых ими диалоговых окон приведены на рис. 8.1 и 8.2.

Рис. 1
Диалоговое окно открытия файла

Рис. 2
Диалоговое окно сохранения файла

Все свойства этих компонентов одинаковы, только их смысл несколько различен для открытия и закрытия файлов. Основное свойство, в котором возвращается в виде строки выбранный пользователем файл, — FileName. Значение этого свойства можно задать и перед обращением к диалогу. Тогда оно появится в диалоге как значение по умолчанию в окне Имя файла (см. рис.1, 2).

Типы искомых файлов, появляющиеся в диалоге в выпадающем списке Тип файла (рис. 1, 2), задаются свойством Filter. В процессе проектирования это свойство проще всего задать с помощью редактора фильтров, который вызывается нажатием кнопки с многоточием около имени этого свойства в Инспекторе Объектов. При этом открывается окно редактора, вид которого представлен на рис. 8.3. В его левой панели Filter Name вы записываете тот текст, который увидит пользователь в выпадающем списке Тип файла диалога. А в правой панели Filter записываются разделенные точками с запятой шаблоны фильтра. В примере рис. 3 задано два фильтра: текстовых файлов с расширениями .txt и .doc и любых файлов с шаблоном *.*.

Рис. 3
Окно редактора фильтров

После выхода из окна редактирования фильтров заданные вами шаблоны появятся в свойстве Filter в виде строки вида:

текстовые (*.txt, *.doc)|*.txt; *.doc|все  файлы|*.*

В этой строке тексты и шаблоны разделяются вертикальными линиями. В аналогичном виде, если требуется, можно задавать свойство Filter программно во время выполнения приложения.

Свойство FilterIndex определяет номер фильтра, который будет по умолчанию показан пользователю в момент открытия диалога. Например, значение FilterIndex = 1 задает по умолчанию первый фильтр.

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

Свойство DefaultExt определяет значение расширения файла по умолчанию. Если значение этого свойства не задано, пользователь должен указать в диалоге полное имя файла с расширением. Если же задать значение DefaultExt, то пользователь может писать в диалоге имя без расширения. В этом случае будет принято заданное расширение.

Свойство Title позволяет вам задать заголовок диалогового окна. Если это свойство не задано, окно открывается с заголовком, определенным в системе (например, «Открытие файла» в окне на рис. 8.1). Но вы можете задать и свой заголовок, подсказывающий пользователю ожидаемые действия. Например, «Укажите имя открываемого файла».

Свойство Options определяет условия выбора файла. Множество опций, которые вы можете установить программно или во время проектирования, включает:

ofAllowMultiSelect

Позволяет пользователю выбирать несколько файлов

ofCreatePrompt

В случае, если пользователь написал имя несуществующего файла, появляется замечание и запрос, надо ли создать файл с заданным именем

ofEnableIncludeNotify

Разрешает посылать в диалог сообщения

ofEnableSizing

Разрешает пользователю изменять размер диалогового окна

ofExtensionDifferent

Этот флаг, который можно прочитать после выполнения диалога, показывает, что расширение файла, выбранного пользователем, отличается от DefaultExt 

ofFileMustExist

В случае, если пользователь написал имя несуществующего файла, появляется сообщение об ошибке

ofHideReadOnly

Удаляет из диалога индикатор Открыть только для чтения

ofNoChangeDir

После щелчка пользователя на кнопке OK восстанавливает текущий каталог, независимо от того, какой каталог был открыт при поиске файла

ofNoDereferenceLinks

Запрещает переназначать клавиши быстрого доступа в диалоговом окне

ofNoLongNames

Отображаются только не более 8 символов имени и трех символов расширения

ofNoNetworkButton

Убирает из диалогового окна кнопку поиска в сети. Действует только если флаг ofOldStyleDialog включен

ofNoReadOnlyReturn

Если пользователь выбрал файл только для чтения, то генерируется сообщение об ошибке

ofNoTestFileCreate

Запрещает выбор в сети защищенных файлов и не доступных дисков при сохранении файла

ofNoValidate

Не позволяет писать в именах файлов неразрешенные символы, но не мешает выбирать файлы с неразрешенными символами

ofOldStyleDialog

Создает диалог выбора файла в старом стиле (см. рис. 8.4)

ofOverwritePrompt

В случае, если при сохранении файла пользователь написал имя существующего файла, появляется замечание, что файл с таким именем существует, и запрашивается желание пользователя переписать существующий файл

ofPathMustExist

Генерирует сообщение об ошибке, если пользователь указал в имени файла несуществующий каталог

ofReadOnly

По умолчанию устанавливает индикатор Открыть только для чтения при открытии диалога

ofShareAware

Игнорирует ошибки нарушения условий коллективного доступа и разрешает, несмотря на них, производить выбор файла

ofShowHelp

Отображает в диалоговом окне кнопку Справка

По умолчанию все перечисленные опции, кроме ofHideReadOnly, выключены. Но, как видно из их описания, многие из них полезно включить перед вызовом диалогов.

Если вы разрешаете с помощью опции ofAllowMultiSelect множественный выбор файлов, то список выбранных файлов можно прочитать в свойстве Files типа TStrings.

В приведенной таблице даны опции, используемые в 32-разрядных версиях Delphi. В Delphi 1 диалоговое окно имеет вид, представленный на рис. 8.4. Аналогичный вид имеет диалог и в 32-разрядных версиях Delphi при включении опции ofOldStyleDialog. В примере рис. 4 диалог открыт с заданным значением свойства Title и заданный текст отображается в заголовке окна. Кроме того, в этом примере выключена опция ofHideReadOnly (в Delphi 1 она выключена по умолчанию), что привело к появлению индикатора «Только чтение».

Рис. 4
Диалог в старом стиле при включенной опции ofOldStyleDialog и выключенной опции ofHideReadOnly

В компонентах диалогов открытия и сохранения файлов предусмотрена возможность обработки ряда событий. Такая обработка может потребоваться, если рассмотренных опций, несмотря на их количество, не хватает, чтобы установить все диктуемые конкретным приложением ограничения на выбор файлов. Событие OnCanClose возникает при нормальном закрытии пользователем диалогового окна после выбора файла. При отказе пользователя от диалога — нажатии кнопки Отмена, клавиши Esc и т.д. событие OnCanClose не наступает. В обработке события OnCanClose вы можете произвести дополнительные проверки выбранного пользователем файла и, если по условиям вашей задачи этот выбор недопустим, вы можете известить об этом пользователя и задать значение false передаваемому в обработчик параметру CanClose. Это не позволит пользователю закрыть диалоговое окно.

Можно также написать обработчики событий OnFolderChange — изменение каталога, OnSelectionChange — изменение имени файла, OnTypeChange — изменение типа файла. В этих обработчиках вы можете предусмотреть какие-то сообщения пользователю.

Теперь приведем примеры использования диалогов OpenDialog и SaveDialog. Пусть ваше приложение включает окно редактирования Memo1, в которое по команде меню Открыть вы хотите загружать текстовый файл, а после каких-то изменений, сделанных пользователем, — сохранять по команде Сохранить текст в том же файле, а по команде Сохранить как... — в файле с другим именем.

Введите на форму компоненты — диалоги OpenDialog и SaveDialog. Предположим, что вы оставили их имена по умолчанию — OpenDialog1 и SaveDialog1. Поскольку после чтения файла вам надо запомнить его имя, чтобы знать под каким именем потом его сохранять, вы можете определить для этого имени переменную, назвав ее, например, FName:

var FName: string;

Тогда обработка команды Открыть может сводиться к следующему оператору:

if OpenDialog1.Execute then

 begin

 FName := OpenDialog1.FileName;

 Memo1.Lines.LoadFromFile(FName);

 end;

Этот оператор вызывает диалог, проверяет, выбрал ли пользователь файл (если выбрал, то функция Execute возвращает true), после чего имя выбранного файла (OpenDialog1.FileName) сохраняется в переменной FName и файл загружается в текст Memo1 методом LoadFromFile.

Обработка команды Сохранить выполняется оператором

Memo1.Lines.SaveToFile(FName);

В данном случае нет необходимости обращаться к какому-то диалогу, поскольку имя файла известно: оно хранится в переменной FName.

Обработка команды Сохранить как... выполняется операторами:

SaveDialog1.FileName := FName;

if SaveDialog1.Execute then

 begin

 FName := SaveDialog1.FileName;

 Memo1.Lines.SaveToFile(FName);

 end;

Первый из этих операторов присваивает свойству FileName компонента SaveDialog1 запомненное имя файла. Это имя по умолчанию будет предложено пользователю при открытии диалога Сохранить как.... Следующий оператор открывает диалог и, если пользователь выбрал в нем файл, запоминает новое имя файла и сохраняет в файле с этим именем текст компонента Memo1.

Мы рассмотрели диалоги открытия и сохранения файлов произвольного типа. Начиная с Delphi 3 в библиотеке имеются специализированные диалоги открытия и закрытия графических файлов: OpenPictureDialog и SavePictureDialog. Диалоговые окна, открываемые этими файлами, приведены на рис. 8.5 и 8.6. От окон, открываемых компонентами OpenDialog и SaveDialog (рис. 8.1, 8.2), они отличаются удобной возможностью просматривать изображения в процессе выбора файла.

Рис. 5
Диалоговое окно открытия файла изображения

Рис. 6
Диалоговое окно сохранения файла изображения

Свойства компонентов OpenPictureDialog и SavePictureDialog ничем не отличаются от свойств компонентов OpenDialog и SaveDialog. Единственное отличие — заданное значение по умолчанию свойства Filter в OpenPictureDialog и SavePictureDialog. В этих компонентах заданы следующие фильтры:

All (*.jpg; *.jpeg; *.bmp; *.ico; *.emf; *.wmf)

*.jpg; *.jpeg; *.bmp; *.ico; *.emf; *.wmf

JPEG Image File (*.jpg)

*.jpg

JPEG Image File (*.jpeg)

*.jpeg

Bitmaps (*.bmp)

*.bmp

Icons (*.ico)

*.ico

Enhanced Metafiles (*.emf)

*.emf

Metafiles (*.wmf)

*.wmf

В этих фильтрах перечислены все типы графических файлов, с которыми может работать диалог. Так что вам остается удалить, если хотите, фильтры тех файлов, с которыми вы не хотите работать, добавить, может быть, фильтр «Все файлы (*.*)» и перевести на русский язык названия типов.

Компонент SaveDialog

SaveDialog – визуальный компонент. Он используется для выбора пользователем имени файла предназначенного для сохранения.

Основные свойства:

– Title – используется для установки заголовка диалога;

–FileName – выдает имя файла, заданное по умолчанию для сохранения (иначе, поле имени файла будет пробелом);

– DefaultExt – определяет расширение, которое будет добавляться к пользовательскому имени файла, если оно печатается вручную (а не выбирается из списка файлов). Если этих фильтров расширений два или больше, то это значение игнорируется. Они должны быть помещены в раскрывающийся список значений расширения;

– Filter – позволяет отображать и выбирать только некоторые типы файлов. Текст фильтра отображается в ниспадающем поле, чуть ниже поля имени файла. Следующий пример выбирает только текстовые файлы:

saveDialog.Filter := 'Text files only|*.txt';

Раскрывающийся список показывает текст, находящийся перед разделителем |. После разделителя можно определить маску, которая выбирает файлы:

saveDialog.Filter := 'Text files|*.txt|Word files|*.doc';

– FilterIndex – определяет, какой фильтр ниспадающего поля будет отображен первым.

– InitialDir – устанавливает начальный каталог в диалоге.

Для отображение диалога вызываем метод TSaveDialog:

if saveDialog.Execute then ...

Execute возвратит истину, если пользователь выбрал файл и нажал OK.

ПРИМЕР: Сохранение содержимого компонента Memo1 в файл через компонент SaveDialog1

if SaveDialog1.Execute then

begin

AssignFile(f,SaveDialog1.FileName);

rewrite(f);

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

CloseFile(f);

end;

OpenPictureDialog - компонент для открытия графических файлов.

Пример использования:

if ( OpenPictureDialog1->Execute() )

   {

    Image1->Picture->LoadFromFile( OpenPictureDialog1->FileName );

   }

SavePictureDialog - компонент для сохранения графических файлов.

Пример использования:

 if ( SavePictureDialog1->Execute() )

   {

    Image1->Picture->SaveToFile( SavePictureDialog1->FileName );

   }

TFontDialog

TFontDialog - вызывает стандартный диалог выбора шрифта. Свойство Font содержит как изначальный (выбранный по умолчанию) шрифт, так и измененный, после вызова диалога.

FontDialog1.Font := Edit1.Font;

if FontDialog.Execute then Edit.Font := FontDialog.Font;

Здесь показан пример изменения шрифта в компоненте Edit. Причем во время вызова диалога FontDialog в нем изначально будет установлен шрифт, заданный в компоненте Edit.

Свойство Device указывает типы отображаемых шрифтов. fdBoth - все, fdPrinter - принтерные, fdScreen - экранные.

MaxFontSize MinFomtSize устанавливает границы минимального и максимального размера шрифта. Цифра 0 - размер ограничивается только возможностями данного шрифта.

Диалог выбора шрифта — компонент FontDialog

Компонент FontDialog вызывает диалоговое окно выбора атрибутов шрифта, представленное на рис. 8. В нем пользователь может выбрать имя шрифта, его стиль (начертание), размер и другие атрибуты.

Рис.8  Диалоговое окно выбора атрибутов шрифта

Основное свойство компонента — Font типа TFont, в котором вы можете задать при желании начальные установки атрибутов шрифта и в котором вы можете прочесть значения атрибутов, выбранные пользователем в процессе диалога.

Свойства MaxFontSize и MinFontSize устанавливают ограничения на максимальный и минимальный размеры шрифта. Если значения этих свойств равны 0 (по умолчанию), то никакие ограничения на размер не накладываются. Если же значения свойств заданы (обычно это целесообразно делать исходя из размеров компонента приложения, для которого выбирается шрифт), то в списке "Размер" диалогового окна (см. рис. 8) появляются только размеры, укладывающиеся в заданный диапазон. При попытке пользователя задать недопустимый размер ему будет выдано предупреждение вида «Размер должен лежать в интервале ...» и выбор пользователя отменится. Свойства MaxFontSize и MinFontSize действуют только при включенной опции fdLimitSize.

Свойство Device определяет, из какого списка возможных шрифтов будет предложен выбор в диалоговом окне: fdScreen — из списка экрана (по умолчанию), fdPrinter — из списка принтера, fdBoth — из обоих.

Свойство Options содержит множество опций:

fdAnsiOnly Отображать только множество шрифтов символов Windows, не отображать шрифтов со специальными символами

fdApplyButton Отображать в диалоге кнопку "Применить" независимо от того, предусмотрен ли обработчик события OnApply 

fdEffects Отображать в диалоге индикаторы специальных эффектов (подчеркивание и др.) и список "Цвет"

fdFixedPitchOnly Отображать только шрифты с постоянной шириной символов

fdForceFontExist Позволять пользователю выбирать шрифты только из списка, запрещать ему вводить другие имена

fdLimitSize Разрешить использовать свойства MaxFontSize и MinFontSize, ограничивающие размеры шрифта

fdNoFaceSel Открывать диалоговое окно без предварительно установленного имени шрифта

fdNoOEMFonts Удалять из списка шрифтов шрифты OEM 

fdScalableOnly Отображать только масштабируемые шрифты, удалять из списка не масштабируемые (шрифты bitmap)

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

fdNoSizeSel Открывать диалоговое окно без предварительно установленного размера шрифта

fdNoStyleSel Открывать диалоговое окно без предварительно установленного начертания шрифта

fdNoVectorFonts Удалять из списка векторные шрифты (типа Roman или Script для Windows 1.0)

fdShowHelp Отображать в диалоговом окне кнопку "Справка"

fdTrueTypeOnly Предлагать в списке только шрифты TrueType 

fdWysiwyg Предлагать в списке только шрифты, доступные и для экрана, и для принтера, удаляя из него аппаратно зависимые шрифты

По умолчанию все эти опции, кроме fdEffects, отключены. 

Если установить опцию fdApplyButton, то при нажатии пользователем кнопки "Применить" возникает событие OnApply, в обработчике которого вы можете написать код, который применит выбранные пользователем атрибуты, не закрывая диалогового окна.

Приведем примеры применения компонента FontDialog. Пусть ваше приложение включает окно редактирования Memo1, шрифт в котором пользователь может выбирать командой меню "Шрифт". Вы ввели в приложение компонент FontDialog, имя которого по умолчанию FontDialog1. Тогда обработчик команды "Шрифт" может иметь вид:

if FontDialog1.Execute then

 Memo1.Font.Assign(FontDialog1.Font);

Приведенный оператор вызывает диалог выбора атрибутов шрифта и, если пользователь произвел выбор, то значения всех выбранных атрибутов, содержащиеся в свойстве FontDialog1.Font, присваиваются атрибутам окна редактирования, содержащимся в свойстве Memo1.Font. Шрифт в окне редактирования немедленно изменится.

Если вы установите в компоненте FontDialog1 опцию fdApplyButton, то можете написать обработчик события OnApply:

Memo1.Font.Assign(FontDialog1.Font);

Тогда пользователь может наблюдать изменения в окне Memo1, нажимая в диалоговом окне кнопку "Применить" и не прерывая диалога. Это очень удобно, так как позволяет пользователю правильно подобрать атрибуты шрифта.

Если в качестве окна редактирования в вашем приложении вы используете RichEdit, то можете предоставить пользователю выбирать атрибуты шрифта для выделенного фрагмента текста или для вновь вводимого текста. Тогда выполнение команды меню "Шрифт" может осуществляться операторами:

if FontDialog1.Execute then

 RichEdit1.SelAttributes.Assign(FontDialog1.Font);

Вы можете разрешить пользователю изменять шрифт не только отдельных компонентов, но и всех компонентов и надписей на форме. Это осуществляется оператором:

if FontDialog1.Execute then

 Font.Assign(FontDialog1.Font);

В этом операторе свойство Font без ссылки на компонент подразумевает шрифт формы.

Диалог выбора цвета — компонент ColorDialog

Компонент ColorDialog вызывает диалоговое окно выбора цвета, представленное на рис. 9. В нем пользователь может выбрать цвет из базовой палитры или, нажав кнопку "Определить цвет", раскрыть дополнительную панель (на рис. 9 она раскрыта), позволяющую синтезировать цвет, отличный от базовых. Синтезированный цвет можно добавить кнопкой "Добавить в набор" в палитру дополнительных цветов на левой панели и использовать его в дальнейшем.

Рис. 9  Диалоговое окно выбора цвета

Основное свойство компонента ColorDialogColor. Это свойство соответствует тому цвету, который выбрал в диалоге пользователь. Если при вызове диалога желательно установить некоторое начальное приближение цвета, это можно сделать, установив Color предварительно во время проектирования или программно. Свойство CustomColors типа TStrings позволяет задать заказные цвета дополнительной палитры. Каждый цвет определяется строкой вида

<Имя цвета>=<шестнадцатиричное представление цвета>;

Имена цветов задаются от ColorA (первый цвет) до ColorP (шестнадцатый, последний). Например, строка

ColorA=808022

задает первый заказной цвет. При задании цвета 2 младших разряда описывают интенсивность красного цвета, следующие 2 — зеленого, старшие — синего.

Свойство Options содержит множество следующих опций:

cdFullOpen Отображать сразу при открытии диалогового окна панель определения заказных цветов

cdPreventFullOpen Запретить появление в диалоговом окне кнопки "Определить цвет", так что пользователь не сможет определять новые цвета

cdShowHelp Добавить в диалоговое окно кнопку "Справка"

cdSolidColor Указать Windows использовать сплошной цвет, ближайший к выбранному (это обедняет палитру)

cdAnyColor Разрешать пользователю выбирать любые не сплошные цвета (такие цвета могут быть не ровными)

По умолчанию все опции выключены.

Приведем пример применения компонента ColorDialog. Если вы хотите, чтобы пользователь мог задать цвет какого-то объекта, например, цвет фона компонента Memo1, то это можно реализовать оператором

if ColorDialog1.Execute then

 Memo1.Color := ColorDialog1.Color;

Диалоги печати и установки принтера — компоненты PrintDialog и PrinterSetupDialog

Компонент PrintDialog вызывает диалоговое окно печати, представленное на рис. 10. В нем пользователь может выбрать принтер и установить его свойства, указать число копий и последователъность их печати, печатать в файл или непосредственно на принтер, выбрать печатаемые страницы или печатать только выделенный фрагмент.

Рис. 10  Диалоговое окно настройки печати

Компонент PrintDialog не осуществляет печать. Он только позволяет пользователю задать атрибуты печати. А сама печать должна осуществляться программно с помощью объекта Printer или иным путем.

Рассмотренные ранее диалоговые компоненты возвращали одно свойство — имя файла, цвет, или один объект — Font, содержащий множество свойств. В отличие от них компонент PrintDialog возвращает ряд свойств, характеризующих выбранные пользователем установки. Это следующие свойства:

PrintRange Показывает выбранную пользователем радиокнопку из группы "Печатать": prAllPages — выбрана кнопка "Все страницы", prSelection — выбрана кнопка "Страницы с ... по ...", prPageNums — выбрана кнопка "Страницы"

FromPage Показывает установленную пользователем начальную страницу в окне "Страницы с ... по ..."

ToPage Показывает установленную пользователем конечную страницу в окне "Страницы с ... по ..."

PrintToFile Показывает, выбран ли пользователем индикатор "Печать в файл"

Copies Показывает установленное пользователем число копий

Collate Показывает, выбран ли пользователем индикатор "Разобрать"

Перед вызовом диалога желательно определить, сколько страниц в печатаемом тексте, и задать параметры MaxPage и MinPage — максимальный и минимальный номера страниц. В противном случае пользователю в диалоговом окне не будет доступна кнопка "Страницы с ... по ...". Кроме того следует определить множество опций в свойстве Options:

 poDisablePrintToFile Запретить доступ к индикатору "Печать в файл". Эта опция работает только при включенной опции poPrintToFile 

poHelp Отображать в диалоговом окне кнопку "Справка". Опция может не работать для некоторых версий Windows 95/98

poPageNums Сделать доступной радиокнопку "Страницы", позволяющую пользователю задавать диапазон печатаемых страниц

poPrintToFile Отображать в диалоговом окне кнопку "Печать в файл"

poSelection Сделать доступной кнопку "Выделение", позволяющую пользователю печатать только выделенный текст

poWarning Выдавать замечания, если пользователь пытается послать задачу на неустановленный принтер

PrinterSetupDialog,

Теперь остановимся на компоненте PrinterSetupDialog, вызывающем диалоговое окно установки принтера, представленное на рис. 8.11. Это единственный диалоговый компонент, не имеющий никаких специфических свойств, которые надо было бы устанавливать или читать. Диалог выполняет операции по установке принтера, на котором будет производиться печать, и задании его свойств. Этот диалог не возвращает никаких параметров.

Рис. 11  Диалоговое окно установки принтера

Диалоги поиска и замены текста — компоненты FindDialog и ReplaceDialog

Компоненты FindDialog и ReplaceDialog, вызывающие диалоги поиска и замены фрагментов текста (рис. 8.12 и 8.13), очень похожи и имеют одинаковые свойства, кроме одного, задающего заменяющий текст в компоненте ReplaceDialog. Такое сходство не удивительно, поскольку ReplaceDialog — производный класс от FindDialog.

Рис. 8.12  Диалоговое окно поиска фрагмента текста

Рис. 8.13  Диалоговое окно замены фрагмента текста

Компоненты имеют следующие основные свойства: FindText Текст, заданный пользователем для поиска или замены. Программно может быть установлен как начальное значение, предлагаемое пользователю

ReplaceText Только в компоненте ReplaceDialog — текст, который должен заменять FindText 

Position Позиция левого верхнего угла диалогового окна, заданная типом TPoint — записью, содержащей поля X (экранная координата по горизонтали) и Y (экранная координата по вертикали)

Left Координата левого края диалогового окна, то же, что Position.X 

Top Координата верхнего края диалогового окна, то же, что Position.Y 

Options Множество опций

Последний параметр Options — может содержать следующие свойства: frDisableMatchCase Делает недоступным индикатор "С учетом регистра" в диалоговом окне

frDisableUpDown Делает недоступными в диалоговом окне кнопки "Вверх" и "Вниз" группы "Направление", определяющие направление поиска

frDisableWholeWord Делает недоступным индикатор "Только слово целиком" в диалоговом окне

frDown Выбирает кнопку "Вниз" группы "Направление" при открытии диалогового окна. Если эта опция не установлена, то выбирается кнопка "Вверх"

frFindNext Эта опция включается автоматически, когда пользователь в диалоговом окне щелкает на кнопке "Найти далее", и выключается при закрытии диалога

frHideMatchCase Удаляет индикатор "С учетом регистра" из диалогового окна

frHideWholeWord Удаляет индикатор "Только слово целиком" из диалогового окна

frHideUpDown Удаляет кнопки "Вверх" и "Вниз" из диалогового окна

frMatchCase Этот флаг включается и выключается, если пользователь включает и выключает опцию "С учетом регистра" в диалоговом окне. Можно установить эту опцию по умолчанию во время проектирования, чтобы при открытии диалога она была включена

frReplace Применяется только для ReplaceDialog. Этот флаг устанавливается системой, чтобы показать, что текущее (и только текущее) найденное значение FindText должно быть заменено значением ReplaceText 

frReplaceAll Применяется только для ReplaceDialog. Этот флаг устанавливается системой, чтобы показать, что все найденные значения FindText должны быть заменены значениями ReplaceText 

frShowHelp Задает отображение кнопки "Справка" в диалоговом окне

frWholeWord Этот флаг включается и выключается, если пользователь включает и выключает опцию "Только слово целиком" в диалоговом окне. Можно установить эту опцию по умолчанию во время проектирования, чтобы при открытии диалога она была включена

Сами по себе компоненты FindDialog и ReplaceDialog не осуществляют ни поиска, ни замены. Они только обеспечивают интерфейс с пользователем. А поиск и замену надо осуществлять программно. Для этого можно пользоваться событием OnFind, происходящим, когда пользователь нажал в диалоге кнопку "Найти далее", и событием OnReplace, возникающим, если пользователь нажал кнопку "Заменить" или "Заменить все". В событии OnReplace узнать, какую именно кнопку нажал пользователь, можно но значениям флагов frReplace и frReplaceAll.

Поиск заданного фрагмента легко проводить, пользуясь функцией Object Pascal Pos, которая определена в модуле System следующим образом:

function Pos(Substr: string; S: string): Byte;

 где S — строка, в которой ищется фрагмент текста, a Substr — искомый фрагмент. Функция возвращает позицию первого символа первого вхождения искомого фрагмента в строку. Если Substr в S не найден, возвращается 0.

Для организации поиска нам потребуется еще две функции: Сору и AnsiLowerCase. Первая из них определена как:

function Copy(S: string; Index, Count: Integer): string;

Она возвращает фрагмент строки S, начинающийся с позиции Index и содержащий число символов, не превышающее Count. Функция AnsiLowerCase, определенная как

function AnsiLowerCase(const S: string): string;

 возвращает строку символов S, переведенную в нижний регистр.

Теперь мы можем рассмотреть пример организации поиска. Пусть в вашем приложении имеется компонент Memo1 и при выборе раздела меню MFind вы хотите организовать поиск в тексте, содержащемся в Memo1. Для упрощения задачи исключим опцию поиска только целых слов и опцию поиска вверх от положения курсора.

Программа, реализующая поиск, может иметь следующий вид:

var SPos: integer;

procedure TForm1.MFindClick(Sender: TObject);

begin

{запоминание позиции курсора}

 SPos := Memo1.SelStart;

 with FindDialog1 do

 begin

 {начальное   значение  текста поиска —

  текст, выделенный в Memo1}

 FindText := Memo1.SelText;

 {позиционирование окна диалога внизу Memo1}

 Position := Point(Form1.Left, Form1.Top +

             Memo1.Top + Memo1.Height);

 {удаление из диалога кнопок «Вверх», «Вниз»,

  «Только  слово целиком»}

 Options := Options + [frHideUpDown, frHideWholeWord];

 {выполнение}

 Execute;

end;

end;

procedure TForm1.FindDialog1Find(Sender: TObject);

begin

with FindDialog1 do

begin

 if frMatchCase in Options

  {поиск с учетом регистра}

  then Memo1.SelStart := Pos(FindText,

   Copy(Memo1.Lines.Text, SPos + 1,

        Length(Memo1.Lines.Text))) + Spos - 1

  {поиск без учета регистра}

  else Memo1.SelStart := Pos(AnsiLowerCase(FindText),

   AnsiLowerCase(Copy(Memo1.Lines.Text, SPos + 1,

                 Length(Memo1.Lines.Text)))) + Spos - 1;

 if Memo1.SelStart >= Spos

  then

   begin

    {выделение найденного текста}

    Memo1.SelLength := Length(FindText);

    {изменение начальной позиции поиска}

    SPos := Memo1.SelStart + Memo1.SelLength + 1;

   end

  else if MessageDlg(

   'Текст "'+FindText+'" не найден. Продолжать диалог?',

   mtConfirmation, mbYesNoCancel, 0) <> mrYes

   then CloseDialog;

end;

Memo1.SetFocus;

end;

В программе вводится переменная SPos, сохраняющая позицию, начиная с которой надо проводить поиск.

Процедура MFindClick вызывает диалог, процедура FindDialog1Find обеспечивает поиск с учетом или без учета регистра в зависимости от флага frMatchCase. После нахождения очередного вхождения искомого текста этот текст выделяется в окне Memo1 и управление передается этому окну редактирования. Затем при нажатии пользователем в диалоговом окне кнопки "Найти далее", поиск продолжается в оставшейся части текста. Если искомый текст не найден, делается запрос пользователю о продолжении диалога. Если пользователь не ответил на этот запрос положительно, то диалог закрывается методом CloseDialog.

В дополнение к приведенному тексту полезно в обработчики событий OnClick и OnKeyUp компонента Memo1 ввести операторы

SPos := Memo1.SelStart;

Это позволяет пользователю во время диалога изменить положение курсора в окне Memo1. Это новое положение сохранится в переменной SPos и будет использовано при продолжении поиска.

При реализации команды "Заменить" приведенные выше процедуры можно оставить теми же самыми, заменив в них FindDialog1 на ReplaceDialog1. Дополнительно можно написать процедуру обработки события OnReplace компонента ReplaceDialog1:

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

begin

if Memo1.SelText <> ''

 then Memo1.SelText := ReplaceDialog1.ReplaceText;

if frReplaceAll in ReplaceDialog1.Options

 then ReplaceDialog1Find(Self);

end;

Этот код производит замену выделенного текста и, если пользователь нажал кнопку "Заменить все", то продолжается поиск вызовом уже имеющейся процедуры поиска ReplaceDialog1Find*. Если же пользователь нажал кнопку "Заменить", то производится только одна замена и для продолжения поиска пользователь должен нажать кнопку "Найти далее".


 

А также другие работы, которые могут Вас заинтересовать

66193. Морфология простейших 191.5 KB
  Округлые клетки с рубиновым ядром голубой цитоплазмой красными 5 жгутиками и аксостилем и ундулирующей мембраной. Удлиненные клетки с 1 жгутиком 1 ядром и ундулирующей мембраной. Клетки грушевидной формы с 2 ядрами и 4 парами жгутиков.
66194. Лабораторная диагностика герпесвирусных инфекций 186 KB
  Вирус простого герпеса – одна из самых распространенных вирусных инфекций человека, характеризующаяся лихорадочным состоянием и пузырьковыми высыпаниями, которые чаще всего локализуются на коже и слизистых оболочках.
66195. Монтаж електричного лічильника 79 KB
  Дана схема підключення електролічильника однофазного і трифазного називається прямою. На лічильниках є напис про його характеристики серед яких зазначений номінальний і максимальний струм наприклад зазвичай пишеться так: 5 15 А.
66196. Визначення несправностей трансформаторів і складання дефектної відомості на ремонт 137.5 KB
  Оглядаючи обмотки трансформатора звертають увагу на стан виткової ізоляції деформацію і зміщення обмоток в радіальному напрямку що може бути наслідком переміщень і ослаблень прокладок планок розпірок; стан місця паяння на обмотках та охолодних...
66197. Лабораторная диагностика арбовирусных инфекций 109.5 KB
  Наибольшее значение в патологии человека имеют вирусы клещевого энцефалита японского энцефалита омской геморрагической лихорадки крымской геморрагической лихорадки желтой лихорадки лихорадки денге москитной флеботомной лихорадки.
66198. Перерахунок обмоткових даних електродвигунів під час ремонту 114 KB
  В ремонтній практиці досить часто замовник прохає перевести електричну машину на іншу напругу частоту обертання і т. Перехід двигуна на іншу швидкість обертання вимагає зміни числа витків в котушках зміни числа полюсів машини що в свою чергу приходять до зміни магнітної індукції...
66199. Лабораторная диагностика заболеваний, вызванных вирусами геморрагических лихорадок 173 KB
  В группу геморрагических лихорадок были включены некоторые болезни которые были описаны раньше денге желтая лихорадка. Классификация геморрагических лихорадок Группа геморрагических лихорадок Семейство Нозологическая форма Клещевые...
66200. Вивчення методики розрахунку і вибору компенсуючих пристроїв 87.5 KB
  Поняття про коефіцієнт потужності соsφ пов’язано з застосуванням змінного електричного струму. Відповідно до цих складових у змінному струмі розрізняють повну S активну Р та реактивну Q потужності. Технічні дані косинусних конденсаторів на напругу...
66201. Парамиксовирусы (морбилливирусы). Лабораторная диагностика кори. Вирус краснухи 104 KB
  Корь острая вирусная болезнь характеризующаяся лихорадкой общей интоксикацией энантемой макулопапулезной сыпью поражением конъюнктив и верхних отделов респираторного тракта.