计算机等级考试二级Delphi辅导知识：文本编辑器的设计_第4页

　　4.4.4 打开对话框部件　
　　打开对话框部件为应用程序显示打开对话框。使用Execute方法可显示打开对话框用户通过选择文件类型下拉框中的文件类型，可以确定显示在文件列表中的文件。 例如，如果用户选择*.txt文件类型，那么只有在当前目录下的文本文件才会显示在文件列表中。文件扩展名通常也称为过滤器。
　　打开对话框包含一个Filters(过滤器)的属性，它可确定文件类型和在文件类型下拉框中的顺序。应用程序可以为打开对话框定义多个过滤器，对话框的FilterIndex 属性可以决定哪个过滤器是文件类型下拉框中的缺省过滤器。如FilterIndex等于2，表示程序运行时出现在文件类型下拉框的过滤器是第2个过滤器。来源：考试大的美女编辑们
　　例程中关于文件打开的代码如下：　
　　procedure TEditForm.Open/Click(Sender : TObject);
　　begin
　　if OpenDialog/.Execult then
　　begin
　　…
　　Open(Open Dialog/.FileName)
　　end
　　end;
　　打开，保存对话框中的Options属性值见表4.4　
　　表4.4 打开、保存对话框的Options属性取值及含义
　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　值　含义
　　──────────────────────────────────────
　　ofAllowMultiSelect 如果是真值，则允许在文件名列表中选择多个文件。
　　ofCreatePrompt 如果是真值，当用户在文件编辑框中输入一不存在的文件名，
　　并选择OK按钮，则会出现消息框， 提示用户此文件不存在并
　　询问是否以此文件名创建一新文件。
　　ofExiengronDifferent 如果是真值，从对话框中返回的文件扩展名将不同于缺省扩展名。
　　其值存入DefaultExt属性中。
　　ofFileMustExist　如果是真值， 当用户在文件编辑框中输入一个不存在的文件名时，
　　并选择OK按钮， 则会出现一消息框提示用户此文件不存，并询
　　问是否输入了正确的路径和文件名。
　　ofNoChangeDir 如果是真值，当前目录将设置成对话框第一次出现的目录，并忽
　　略任何目录改变。
　　ofOverWritePrompt 如果是真值，当用户试图保存一个已存在的文件时， 将出现一消息
　　框，提示用户此文件已存在，并询问是否覆盖。
　　ofPathMastExit 如果是真值，用户在文件名编辑框只能输入有效路径名， 否则出
　　现消息框，提示用户路径无效。
　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　
　　表4.4 打开、保存对话框中的Options属性取值及含义
　　文件保存对话框与打开对话框类似，如图4.11。它的Option属性见上表。例程在保存文件前先对文件进行读写判断，如果文件是只读文件或未指定文件名的新文件， 则程序对文件不保存，否则备份文件。代码如下:
　　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过程用以改变需备份文件的扩展名。IsReadOnly 用以判断文件属性。　
　　4.5 文件打印　
　　在Delphi中，文件打印有两种方式：
　　1. 将文件变量分配给打印机，用此变量名创建或打开文件后， 往此文件变量写入的任何文本都视为向打印机输出，以下过程可实现文件的打印。　
　　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对象进行文件打印，本章例程采用这种方法打印文件。　
　　4.5.1 TPrinter对象　
　　TPrinter对象可调用Windows的打印机，在Printer 单元中定义了TPrinter 的实例Printer，用户可直接使用。
　　调用TPrinter的BeginDoc方法可开始一项打印工作，调用EndDoc 方法可结束一项已成功发送给打印机的工作。如果在发送过程中出现问题或用户想中途终止打印工作，可调用Abort方法。
　　通过检查Printing属性可测试当前是否有打印工作，如果打印工作被终止，Abort属性为真。
　　Canvas属性代表打印表面，Brush,Font,Pen属性可决定打印字体或图像的特征。
　　Printers属性中包含着已安装的打印机列表，PrinterIndex 属性是当前选择的打印
　　机，Fonts属性中有当前打印机支持的字体。Orientertion属性可决定打印方向。
　　PageHeight,PageWith中包含着当前的高度和宽度。PageNanber为当前页的值。
　　设置Title属性可决定在Windows打印管理器或网络中出现的文本。　
　　4.5.2 TPrintDialog打印对话框　
　　TPrintDialog部件显示一打印对话框。用户在对话框中，可以选择打印机、打印页数、打印份数。当用户选择对话框中的Setup按钮，则出现打印设置对话框。
　　调用Execute方法显示打印对话框。如图4.12。使用Option属性可设置打印对话框显示的形式。Options的设置如表4.5所示。
　　PrintRange属性可定义打印的范围。如果PrintPage的值是prPageNums，则可以设置FromPage和ToPage属性来确定打印范围。设置MinPage,MaxPage属性可限制用户的打印范围。　
　　表4.5 打印对话框的Option属性的取值及含义
　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　取值　含义
　　──────────────────────────────────────
　　PoHelp 如果是真值，对话框出现帮助按钮。
　　PoPageNums 如果是真值，页数按钮有效，用户可以设置打印范围。
　　PoPrintToFile 如果是真值，文件打印检查框将出现在对话框中，用户可以选
　　择文件打印。
　　PoSelection 如果是真值，选择按钮有效， 用户可打印文件中所选择的文本。
　　PoWarning 如果是真值，在打印机尚未安装时，用户选择OK 按按钮将出
　　现警告信息。
　　PoDisablePrinttoToFile 如果是真值，而PoPrintToFile亦是真值时，当对话框出现时，文
　　件打印对话框将无效。
　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　本章例程是利用Printer的画布进行文本打印的。用户选择打印菜单后，将弹出打印对话框，用户可设置各种参数。当用户选择打印按钮后，打印工作进行发送，此时将弹出打印取消对话框，见图4.13， 用户可中止打印工作。有关打印和打印取消的代码如下：
　　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;