4.4.4 打開對(duì)話框部件

　　打開對(duì)話框部件為應(yīng)用程序顯示打開對(duì)話框。使用Execute方法可顯示打開對(duì)話框用戶通過選擇文件類型下拉框中的文件類型，可以確定顯示在文件列表中的文件。 例如，如果用戶選擇*.txt文件類型，那么只有在當(dāng)前目錄下的文本文件才會(huì)顯示在文件列表中。文件擴(kuò)展名通常也稱為過濾器。

　　打開對(duì)話框包含一個(gè)Filters(過濾器)的屬性，它可確定文件類型和在文件類型下拉框中的順序。應(yīng)用程序可以為打開對(duì)話框定義多個(gè)過濾器，對(duì)話框的FilterIndex 屬性可以決定哪個(gè)過濾器是文件類型下拉框中的缺省過濾器。如FilterIndex等于2，表示程序運(yùn)行時(shí)出現(xiàn)在文件類型下拉框的過濾器是第2個(gè)過濾器。來源：考試大的美女編輯們

　　例程中關(guān)于文件打開的代碼如下：

　　procedure TEditForm.Open/Click(Sender : TObject);

　　begin

　　if OpenDialog/.Execult then

　　begin

　　…

　　Open(Open Dialog/.FileName)

　　end

　　end;

　　打開，保存對(duì)話框中的Options屬性值見表4.4

　　表4.4 打開、保存對(duì)話框的Options屬性取值及含義

　　ofAllowMultiSelect 如果是真值，則允許在文件名列表中選擇多個(gè)文件。

　　ofCreatePrompt 如果是真值，當(dāng)用戶在文件編輯框中輸入一不存在的文件名，

　　并選擇OK按鈕，則會(huì)出現(xiàn)消息框， 提示用戶此文件不存在并

　　詢問是否以此文件名創(chuàng)建一新文件。

　　ofExiengronDifferent 如果是真值，從對(duì)話框中返回的文件擴(kuò)展名將不同于缺省擴(kuò)展名。

　　其值存入DefaultExt屬性中。

　　ofFileMustExist　如果是真值， 當(dāng)用戶在文件編輯框中輸入一個(gè)不存在的文件名時(shí)，

　　并選擇OK按鈕， 則會(huì)出現(xiàn)一消息框提示用戶此文件不存，并詢

　　問是否輸入了正確的路徑和文件名。

　　ofNoChangeDir 如果是真值，當(dāng)前目錄將設(shè)置成對(duì)話框第一次出現(xiàn)的目錄，并忽

　　略任何目錄改變。

　　ofOverWritePrompt 如果是真值，當(dāng)用戶試圖保存一個(gè)已存在的文件時(shí)， 將出現(xiàn)一消息

　　框，提示用戶此文件已存在，并詢問是否覆蓋。

　　ofPathMastExit 如果是真值，用戶在文件名編輯框只能輸入有效路徑名， 否則出

　　現(xiàn)消息框，提示用戶路徑無效。

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　表4.4 打開、保存對(duì)話框中的Options屬性取值及含義

　　文件保存對(duì)話框與打開對(duì)話框類似，如圖4.11。它的Option屬性見上表。例程在保存文件前先對(duì)文件進(jìn)行讀寫判斷，如果文件是只讀文件或未指定文件名的新文件， 則程序?qū)ξ募�不保存，否則備份文件。代碼如下:

　　procedure TEditForm.Save1Click(Sender: TObject);

　　procedure CreateBackup(const Filename: string);

　　var

　　BackupFilename: string;

　　begin

　　BackupFilename := ChangeFileExt(Filename, BackupExt);

　　DeleteFile(BackupFilename);

　　RenameFile(Filename, BackupFilename);

　　end;

　　function IsReadOnly(const Filename: string): Boolean;

　　begin

　　Result := Boolean(FileGetAttr(Filename) and faReadOnly);

　　if Result then MessageDlg(Format('%s is read only.',

　　[ExtractFilename(Filename)]), mtWarning, [mbOK], 0);

　　end;

　　begin

　　if (Filename = '') or IsReadOnly(Filename) then

　　SaveAs1Click(Sender)

　　else

　　begin

　　CreateBackup(Filename);

　　Memo1.Lines.SaveToFile(Filename);

　　Memo1.Modified := False;

　　end;

　　end;

　　其中CreateBackup過程用以改變需備份文件的擴(kuò)展名。IsReadOnly 用以判斷文件屬性。

　　4.5 文件打印

　　在Delphi中，文件打印有兩種方式：

　　1. 將文件變量分配給打印機(jī)，用此變量名創(chuàng)建或打開文件后， 往此文件變量寫入的任何文本都視為向打印機(jī)輸出，以下過程可實(shí)現(xiàn)文件的打印。

　　procedure TEditForm,Print1Click(Sender: TObject);

　　var

　　Line: Integer;

　　PrintText: System.Text;

　　begin

　　if PrintDialog1.Execute then

　　begin

　　AssignPrn(PrintText)

　　Rewrite(PrintText);

　　Print.CanvasFont := Memo1.Font;

　　For Line := 0 to Memo1.Lines.Count - 1 do

　　Writeln(PrintText,Memo1.Line[line];

　　System.Close(PrintText);

　　end;

　　end;

　　2. 利用Printers單元中定義的TPrinter對(duì)象進(jìn)行文件打印，本章例程采用這種方法打印文件。

　　4.5.1 TPrinter對(duì)象

　　TPrinter對(duì)象可調(diào)用Windows的打印機(jī)，在Printer 單元中定義了TPrinter 的實(shí)例Printer，用戶可直接使用。

　　調(diào)用TPrinter的BeginDoc方法可開始一項(xiàng)打印工作，調(diào)用EndDoc 方法可結(jié)束一項(xiàng)已成功發(fā)送給打印機(jī)的工作。如果在發(fā)送過程中出現(xiàn)問題或用戶想中途終止打印工作，可調(diào)用Abort方法。

　　通過檢查Printing屬性可測(cè)試當(dāng)前是否有打印工作，如果打印工作被終止，Abort屬性為真。

　　Canvas屬性代表打印表面，Brush,Font,Pen屬性可決定打印字體或圖像的特征。

　　Printers屬性中包含著已安裝的打印機(jī)列表，PrinterIndex 屬性是當(dāng)前選擇的打印

　　機(jī)，F(xiàn)onts屬性中有當(dāng)前打印機(jī)支持的字體。Orientertion屬性可決定打印方向。

　　PageHeight,PageWith中包含著當(dāng)前的高度和寬度。PageNanber為當(dāng)前頁的值。

　　設(shè)置Title屬性可決定在Windows打印管理器或網(wǎng)絡(luò)中出現(xiàn)的文本。

　　4.5.2 TPrintDialog打印對(duì)話框

　　TPrintDialog部件顯示一打印對(duì)話框。用戶在對(duì)話框中，可以選擇打印機(jī)、打印頁數(shù)、打印份數(shù)。當(dāng)用戶選擇對(duì)話框中的Setup按鈕，則出現(xiàn)打印設(shè)置對(duì)話框。

　　調(diào)用Execute方法顯示打印對(duì)話框。如圖4.12。使用Option屬性可設(shè)置打印對(duì)話框顯示的形式。Options的設(shè)置如表4.5所示。

　　PrintRange屬性可定義打印的范圍。如果PrintPage的值是prPageNums，則可以設(shè)置FromPage和ToPage屬性來確定打印范圍。設(shè)置MinPage,MaxPage屬性可限制用戶的打印范圍。

　　表4.5 打印對(duì)話框的Option屬性的取值及含義

　　本章例程是利用Printer的畫布進(jìn)行文本打印的。用戶選擇打印菜單后，將彈出打印對(duì)話框，用戶可設(shè)置各種參數(shù)。當(dāng)用戶選擇打印按鈕后，打印工作進(jìn)行發(fā)送，此時(shí)將彈出打印取消對(duì)話框，見圖4.13， 用戶可中止打印工作。有關(guān)打印和打印取消的代碼如下：

　　procedure TEditForm.Print1Click(Sender: TObject);

　　var

　　DistanceLine,Line: Integer;

　　PrintText: System.Text;

　　begin

　　if PrintDialog1.Execute then

　　begin

　　Printer.Canvas.font := Memo1.Font;

　　DistanceLine := Trunc(1.5*FontDialog1.font.size);

　　OpenPrintCancelDialog;

　　Printer.BeginDoc;

　　for line := 0 to Memo1.Lines.Count - 1 do

　　begin

　　Printer.canvas.textout(0,DistanceLine*Line,Memo1.lines[Line]);

　　end;

　　Printer.EndDoc;

　　BtnBottomDlg.free;

　　end;

　　end;

　　procedure TEditForm.OpenPrintCancelDialog;

　　begin

　　BtnBottomDlg := TBtnBottomDlg.Create(Application);

　　BtnBottomDlg.show;

　　BtnBottomDlg.canvas.Brush.Color := clActiveBorder;

　　BtnBottomDlg.canvas.TextOut(50,20,'Print'+FileName);

　　BtnBottomDlg.canvas.TextOut(30,40,'if you want to

　　stop, please choice Cancel Button.');

　　end;