第四章文本編輯器的設(shè)計二-資料下載頁
2024-09-05 15:26本頁面
【導讀】本文件中查找字符串?？捎肊xecult方法顯示查找對話框，如圖。可選擇是否顯示匹配檢查框。Options的常用選項如表。如果用戶在對話框中輸入字符并選擇FindNext按鈕，對話框?qū)l(fā)生OnFind事件。frDown如果是真值，對話框中出現(xiàn)Down按鈕，查找方向向下。frWholeWord如果是真值，整字匹配檢查框被選中，設(shè)計、運行時均可設(shè)置。在OnFind事件中可使用Options屬性來決定以何種方式查找。可在TEdit,TMemo，以及其它TCustomEdit派生類中查找指定的字符串。StlStart處開始，如果向前查找則從控件的SelEnd處查找。如果在控件中找到相匹配的字符串，則字符串被選中，函數(shù)返回真值。則只有獲得焦點才能保持被選中狀態(tài)。了解查找情況，必須將HideSeletion設(shè)成假值?？刂频娜笔≈禐檎嬷?。
【正文】 ext)。 := 。 For Line := 0 to 1 do Writeln(PrintText,[line]。 (PrintText)。 end。 end。 2. 利用 Printers 單元中定義的 TPrinter 對象進行文件打印，本章例程采用這種方法打印文件。 TPrinter 對象 TPrinter 對象可調(diào)用 Windows 的打印機 ，在 Printer 單元中定義了TPrinter 的實例 Printer，用戶可直接使用。 調(diào)用 TPrinter 的 BeginDoc 方法可開始一項打印工作，調(diào)用 EndDoc 方法可結(jié)束一項已成功發(fā)送給打印機的工作。如果在發(fā)送過程中出現(xiàn)問題或用戶想中途終止打印工作，可調(diào)用 Abort 方法。 通過檢查 Printing 屬性可測試當前是否有打印工作，如果打印工作被終止，Abort 屬性為真。 Canvas 屬性代表打印表面， Brush,Font,Pen 屬性可決定打印字體或圖像的特征。 Printers 屬性中包 含著已安裝的打印機列表， PrinterIndex 屬性是當前選擇的打印 機， Fonts 屬性中有當前打印機支持的字體。 Orientertion 屬性可決定打印方向。 PageHeight,PageWith 中包含著當前的高度和寬度。 PageNanber 為當前頁的值。 設(shè)置 Title 屬性可決定在 Windows 打印管理器或網(wǎng)絡(luò)中出現(xiàn)的文本。 TPrintDialog 打印對話框 TPrintDialog 部件顯示一打印對話框。用戶在對話框中，可以選擇打印機、打印頁數(shù)、打印份數(shù)。當用戶選擇對話框 中的 Setup 按鈕，則出現(xiàn)打印設(shè)置對話框。 調(diào)用 Execute 方法顯示打印對話框。如圖 。使用 Option 屬性可設(shè)置打印對話框顯示的形式。 Options 的設(shè)置如表 所示。 PrintRange 屬性可定義打印的范圍。如果 PrintPage 的值是 prPageNums，則可以設(shè)置 FromPage 和 ToPage 屬性來確定打印范圍。設(shè)置 MinPage,MaxPage屬性可限制用戶的打印范圍。 表 打印對話框的 Option 屬性的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━ ━━━━━━━━━━━━ 取值 含義 ────────────────────────────────────── PoHelp 如果是真值，對話框出現(xiàn)幫助按鈕。 PoPageNums 如果是真值，頁數(shù)按鈕有效，用戶可以設(shè)置打印范圍。 PoPrintToFile 如果是真值，文件打印檢查框?qū)⒊霈F(xiàn)在對話框中，用戶可以選 擇文件打印。 PoSelection 如果是真值，選擇按鈕有效， 用戶可打印文件中所選擇的文本。 PoWarning 如果是真值，在打印機尚未安裝時，用戶選擇 OK 按 按鈕將出 現(xiàn)警告信息。 PoDisablePrinttoToFile 如果是真值，而 PoPrintToFile 亦是真值時，當對話框出現(xiàn)時，文 件打印對話框?qū)o效。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 本章例程是利用 Printer 的畫布進行文本打印的。用戶選擇打印菜單后，將彈出打印對話框，用戶可設(shè)置各種參數(shù)。當用戶選擇打印按鈕后，打印工作進行發(fā)送，此時將彈出打印取消對話框，見圖 ， 用戶可中止打印工作。有關(guān)打印和打印取消的代碼如下： procedure (Sender: TObject)。 var DistanceLine,Line: Integer。 PrintText: 。 begin if then begin := 。 DistanceLine := Trunc(*)。 OpenPrintCancelDialog。 。 for line := 0 to 1 do begin (0,DistanceLine*Line,[Line])。 end。 。 。 end。 end。 procedure 。 begin BtnBottomDlg := (Application)。 。 := clActiveBorder。 (50,20,39。Print39。+FileName)。 (30,40,39。if you want to stop, please choice Cancel Button.39。)。
公司管理相關(guān)推薦
鄂ICP備17016276號-1