Компонент tPrintDlalog

TObject-”TPersistent—>TCornponent->TCoinmonDialog->TPrinterSetupDialog->

TPrintDialog

Модуль DIALOGS

Страница Палитры компонентов Dialogs

Предназначен для настройки параметров вывода текста на принтер. Опции этого диалога определяются свойством:

(pb) property Options: TPrintDialogOptions;

TPrintDialogOption = (poPrintToFile, poPageNums, poSelection, poWarning, poHelp, poDisablePrintToFile) ;

TPrintDialogOptions = set of TPrintDialogOption;

poWaming — извещает пользователя при инициализации диалога, если в системе нет установленных принтеров.

poHelp — включает в диалог кнопку Help;

Печать может быть перенаправлена в файл. Для этого в диалог может быть включен специальный флажок Print To File. Состояние его зависит от двух опций:

poPrintToFile — разрешает появление в диалоге этого флажка;

PoDisablePrintToFile — флажок показывается серьм цветом и переключение запрещено.

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

вместе с полями для ввода диапазона делается доступным);

poSelection — разрешает выбор только выделенного фрагмента текста (переключатель Selection делается доступным).

Остальные свойства компонента соответствуют разньм элементам управления диалога (кроме MinPage и MaxPage). Их начальные значения отображаются при вызове метода Execute.

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

(рь) property PrintRange: TPrintRange;

TPrintRange = (prAllPages, prSelection, prPageNums);

В случае prPageNums печататься будут страницы от определяемой свойством

(Pb) property FromPage: Integer;

до определяемой свойством

(РЬ) property ToPage: Integer;

При этом они должны полностью лежать в диапазоне, определенном свойст­вами:

(Pb) property MinPage: Integer;

fpB) property MaxPage: Integer;

Если пользователь ввел значение FromPage или ToPage, выходящее за пределы этого диапазона, то после нажатия кнопки ОК появится сообщение об ошибке, и диалог не будет завершен.

Если два последних свойства не определены (равны 0), то диапазоны и ограничения не действуют.

Если пользователь выбрал печать в файл, свойство

(Р5) property PrintToFile: Boolean;

будет равно True.

Количество копий, которые необходимо отпечатать, определяется свойством:

(Pb) property Copies: Integer;

Если свойство

(pd) property Collate: Boolean;

устанавлено в True, то печать нескольких копий осуществляется последова­тельно: полностью первая, затем вторая и т. д. В противном случае печатаются последовательно одинаковые листы всех копий.

Компонент tFindDialog

TObject->TPersistent->TCornponent->TCoiranonDialog-”TFindDialog Модуль DIALOGS

Страница Палитры компонентов Dialogs

С помощью этого диалога можно осуществить подготовку к поиску нужного фрагмента в тексте. В этом окне вы можете определить все нужные атрибуты, но написание собственно кода поиска все-таки возложено на программиста.

Рассмотрим опции, определенные в свойстве:

(pb) property Options: TFindOptions;

TFindOption= (frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown, frMatchCase, frDisableMatchCase, frDisableUpDown, frDisableWholeWord, frReplace, frReplaceAl1, frWholeWord, frShowHelp) ;

TFindOptions = set of TFindOption;

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

frDown — в случае наличия этой опции первоначальное направление поиска — вниз (от начала к концу). Устанавливается соответствующая радиокнопка;

frDisableUpDown — запрещает выбор направлений. Группа радиокнопок показывается серым цветом;

frHideUpDown — запрещает выбор направлений и прячет эту группу радиокнопок.

Поиск может осуществляться с учетом регистра символов. Если отмечен фла­жок Match Case, регистры символов должны совпадать, т. е. в этом случае "Word" не будет равно "word".

За состояние флажка отвечают следующие три опции:

frHideMatchCase — прячет флажок;

frDisableMatchCase — показывает флажок, но делает его неактивным. В обоих случаях учет регистра невозможен;

Если эти опции не установлены, флажок в диалоге активен, и его значение может быть изменено пользователем. Его значение соответствует наличию в Options опции frMatchCasc.

Также в диалоге предусмотрен флажок Match Whole Words Only, который разрешает или запрещает поиск заданного текста только в виде целых слов. Опции frHideWholeWord, frDisableWholeWord и frWholeWord имеют тот же смысл, что и три опции предыдущего флажка.

frShowHelp — включает в состав диалога кнопку Help;

Одна опция является информационной. Когда пользователь нажал кнопку Find Next, то опция frFindNext появляется в множестве Options.

При каждом случае, когда пользователь нажал кнопку Find Next, возникает событие:

(Р1э) property OnFind: TNotifyEvent ;

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

(Pb) property FindText: string;

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

property Position: TPoint;

либо по отдельности:

property Left: Integer;

property Top: Integer;

Для вьшолнения рада оптаций программисту доступен дескриптор диалого­вого окна

(Ro) property Handle: HWnd;

и метод, закрывающий это окно:

procedure CloseDialog;