第四章文本編輯器的設(shè)計二-閱讀頁
2024-09-25 15:26本頁面
【正文】 件名列表中選擇多個文件。 ofExiengronDifferent 如果是真值，從對話框中返回的文件擴展名將不同于缺省擴展名。 ofFileMustExist 如果是真值， 當用戶在文件編輯框中輸入一個不存在的文件名時， 并選擇 OK 按鈕， 則會出現(xiàn)一消息框提示用戶此文件不存，并詢 問是否輸入了正確的路徑和文件名。 ofOverWritePrompt 如果是真值，當用戶試圖保存一個已存在的文件時， 將出現(xiàn)一消息 框，提示用戶此文件已存在，并詢問是否覆蓋。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 表 打開、保存對話框中的 Options 屬性取值及含義 文件保存對話框與打開對話框類似，如圖 。例程在保存文件前先對文件進行讀寫判斷，如果文件是只讀 文件或未指定文件名的新文件， 則程序?qū)ξ募槐４?，否則備份文件。 procedure CreateBackup(const Filename: string)。 begin BackupFilename := ChangeFileExt(Filename, BackupExt)。 RenameFile(Filename, BackupFilename)。 function IsReadOnly(const Filename: string): Boolean。 if Result then MessageDlg(Format(39。, [ExtractFilename(Filename)]), mtWarning, [mbOK], 0)。 begin if (Filename = 39。) or IsReadOnly(Filename) then SaveAs1Click(Sender) else begin CreateBackup(Filename)。 := False。 end。 IsReadOnly 用以判斷文件屬性。 procedure TEditForm,Print1Click(Sender: TObject)。 PrintText: 。 := 。 (PrintText)。 end。 TPrinter 對象 TPrinter 對象可調(diào)用 Windows 的打印機 ，在 Printer 單元中定義了TPrinter 的實例 Printer，用戶可直接使用。如果在發(fā)送過程中出現(xiàn)問題或用戶想中途終止打印工作，可調(diào)用 Abort 方法。 Canvas 屬性代表打印表面， Brush,Font,Pen 屬性可決定打印字體或圖像的特征。 Orientertion 屬性可決定打印方向。 PageNanber 為當前頁的值。 TPrintDialog 打印對話框 TPrintDialog 部件顯示一打印對話框。當用戶選擇對話框 中的 Setup 按鈕，則出現(xiàn)打印設(shè)置對話框。如圖 。 Options 的設(shè)置如表 所示。如果 PrintPage 的值是 prPageNums，則可以設(shè)置 FromPage 和 ToPage 屬性來確定打印范圍。 表 打印對話框的 Option 屬性的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━ ━━━━━━━━━━━━ 取值 含義 ────────────────────────────────────── PoHelp 如果是真值，對話框出現(xiàn)幫助按鈕。 PoPrintToFile 如果是真值，文件打印檢查框?qū)⒊霈F(xiàn)在對話框中，用戶可以選 擇文件打印。 PoWarning 如果是真值，在打印機尚未安裝時，用戶選擇 OK 按 按鈕將出 現(xiàn)警告信息。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 本章例程是利用 Printer 的畫布進行文本打印的。當用戶選擇打印按鈕后，打印工作進行發(fā)送，此時將彈出打印取消對話框，見圖 ， 用戶可中止打印工作。 var DistanceLine,Line: Integer。 begin if then begin := 。 OpenPrintCancelDialog。 for line := 0 to 1 do begin (0,DistanceLine*Line,[Line])。 。 end。 procedure 。 。 (50,20,39。+FileName)。if you want to stop, please choice Cancel Button.39。
公司管理相關(guān)推薦
鄂ICP備17016276號-1