第四章 文本编辑器的设计一文档格式.docx
《第四章 文本编辑器的设计一文档格式.docx》由会员分享，可在线阅读，更多相关《第四章 文本编辑器的设计一文档格式.docx（21页珍藏版）》请在冰豆网上搜索。
创建父窗口与其它窗口类似，不同之处在于设置窗体的FormStyle属性。
FormStyle属性可决定一个窗体是父窗口还是子窗口，或不是MDI类型。
只能在设计阶段确定FormStyle。
在ObjectInspector窗口中将FormStyle属性设置成fsMDIForm。
值得注意的是应当把父窗口定义为应用程序的主窗体，否则程序编译会出错。
4.1.2创建子窗口
设计阶段可创建子窗口的样板，用户在运行进使用样板的实例。
子窗口是缺省可见的，如果应用程序在运行进创建子窗口，不要让Delphi自动地创建。
创建子窗口时将窗体的FormStyle属性设置为fsMDIChild。
如果程序在运行时创建子窗口，则
1.选择OPtions|Project菜单，系统弹出自动创建列表对话框；
2.在自动创建列表中选中子窗口；
3.单击>
按钮将子窗口移至可得到（Available）窗体列表；
4.并单击OK按钮退出。
4.1.3创建应用程序菜单与菜单融合
父窗口的菜单应作为应用程序主菜单。
如果子窗口有菜单，则当子窗口在运行获得焦点并最大化时，子窗口的菜单项将融合父窗口菜单。
创建父窗口与子窗口菜单的方法与创建普通窗体菜单类似，详细步骤见第一章。
菜单融合是指程序运行过程中，子菜单与父窗口菜单的相互作用。
如当子窗口获得焦点时，子窗口的菜单或插入主窗口的菜单中，或将替换部分或全部的父窗口菜单。
进行菜单融合需设置的两个属性：
●窗体的Menu属性
●菜单项的GroupIndex属性
Menu属性定义窗体的活动菜单，而菜单融合只对活动菜单进行。
如果窗体有多个菜单部件，运行时可通过以下代码进行改变：
Form1.Menu:
=SecondMenu;
GroupIndex属性决定出现在菜单条中各菜单项的位置，在菜单融合中，GroupIndex将
决定融合菜单是插入还是替换主窗体菜单条中的菜单。
GroupIndex的缺省值是0，可以用下规则确定其值：
1.数值越小，菜单的位置越靠左。
例如：
GroupIndex为0的菜单将出现在菜单条中的最左端。
随着GroupIndex数值的增大，菜单项依次向右排列。
2.若需替换主菜单中的某一菜单项，则将子菜单相应菜单项的GroupIndex设为与之相等的值。
这条规则适合一个或多个菜单项。
例如，主菜单中的"
Edit"
菜单项的GroupIndex的值为1。
将子菜单的一个或多个菜单项的GroupIndext的值设为1，则在运行时，这些菜单项替换主窗口的"
菜单。
将同一窗体的多个菜单项的GroupIndex设为相同值，原有的排列顺序在菜单融合时将保持
不变。
3.若要在菜单融合时插入菜单项，需在主菜单中预留数值“位置”。
例如，主菜单的两菜单项数值为0,5，则子菜单GroupIndex数值为1,2,3,4的菜单在融合时将插入其中。
在使用MDI界面时，用户通常会打开多个窗体。
为了使用户方便地进行窗体切换，常设有一个进行切换的菜单项.此菜单列出了打开窗体的名称，当用户选择其中的一个时，程序进行相应的窗体切换。
在Delphi的MDI设计时，可非常方便地实现这一功能。
方法是将父窗口的WindowMenu设置成该菜单项的名字即可。
4.2多页面界面
多页面界面是一种非常友好的界面形式。
它由一个窗体和多个页面组成，关于每个页面的信息列在窗体底部的标签（Tabs）上，用户可通过选择标签来进行页面切换。
每次只有一个页面显示在窗体中。
MPI较MDI使用更为方便，且切换速度更快。
本章例程就是多页面界面的例子。
另外Delphi集成开发环境中的代码编辑（CodeEditor）窗体是MPI应用在文本编辑中的实例。
在MPI中，一个窗体内的多个文件可以方便地进行切换和交换数据。
多页面界面分为静态MPI和动态MPI两种形式。
静态MPI的标签数量固定，用户在事先设计好的多个页面上进行切换。
象选择对话框（OptionDialog）就属于静MPI。
动态MPI的标签数量不固定，由程序根据需要动态的产生或消除，象代码编辑窗体就是动态MPI，程序可根据用户的需要产生多个文本页面，也可以动态地关闭页面。
利用Delphi的TNotebook和Ttabset可十分方便地设计静态MPI。
设计动态MPI则需要编写专门的代码。
4.2.1静态多页面界面
TNotebook,TTabSet可用来开发静态多页面界面。
TNotebook部件能显示多页，每页都有相应的控制。
通常TNotebook与TTabset配合进行控制。
TTabset有一组水平的标签,每个标签可通过创建字符串列表进行某种控制。
MPIEDit例程中的主窗体中有一个TNotebook部件和TTabSet部件。
把两个部件的Aglin属性设置成bsTop和bsBotton，使它们分别处在窗体的上下两部分。
为了使TTabSet与TNotebook配合工作，使用下代码：
TabSet1.Tabs:
=Notebook1.Page;
另外，在TabSet的OnClick事件中定义下如下代码，可使用户在选择标签时开打相应的页。
procedureTEditForm.TabSetClick（Sender:
TObject）;
…
begin
Notebook1.PageIndex:
=TabSet1.TabIndex;
end;
设计静态MPI时，可在部件窗体（ComponentPalette）的WIN3。
1页面中选中TNotebook部件，然后在Objectinspector窗体中双击TNotebook的Pages属性，Dephi将弹出对话框，用户可以在此确定Notebook的页数和字符串列表，如图4.6。
关闭对话框后，可对每一页进行设计，使用鼠标右按钮弹出快速菜单进行页面切换。
4.2.2动态多页面界面
使用Delphi进行静态MPI设计非常简单，进行动态MPI设计则需编写专门的代码。
对
于一个多页面文本编辑器，应能实现以下功能：
●动态生成页面，每个页面均能进行文本编辑
●动态关闭页面，直到窗体中只有一个页面为止
●页面切换不影响各种文本编辑操作
为了实现以上功能，程序中使用了动态页面类（TDynaPage），其定义如下：
typeTDynaPage=Class（TObject）;
该类可根据需要动态的产生页面，每个页面上创建了可进行文本编辑的TMeno部件。
procedure...
puclic
CurPage:
integer;
FileList:
TSringList;
CurPage表示当前用户选择的页面数，用户切换、增加、删除页面均影响CurPage的值，CurPage初如化为零页。
FileList存放打开或创建文件的名字以及与这些文件相关的编辑部件TMemo，页面动态创建、删除将影响FilstList的值。
TNotebook部件创建后至少有一个页面，因此Pages属性不是空值，只要往Pages中加入字符串，Delphi自动地把该字符串与TPage类对象相联系。
TPage类是TCustomEdit派生出来的，在对象浏览器（ObjectBrowse）中可观察到TPage的数据成员和方法。
静态生成的页面也是TPage类。
要创建多页面编辑器，必须从TPage的父件（Parent属件）创建相应编辑部件。
但在动态创建页面时，TPage只是一个与字符串相联系的TObject类，不能写成：
MemoParent:
=Notebook1.Pages.Object[];
在Delphi中，宣称对象和创建对象都是用指针来标识，因此可用无类型指针进行指针传递。
var
Pi:
Pointer;
begin
=Notebook1.Pages.Object[];
Memo.Parent:
=Pi;
这样就可在TPage上动态创建编辑部件了。
往Notebook1中动态生成页面时，页面应所相应的切换，TDynaPage.Notebook1.Tabset1有关的属性要作相应的调整。
TDynaPage的DynaAdd方法定义如下：
procedureTDynaPage.DynaAdd（Sender:
TNotebook;
FileName:
String）;
var
Pi:
Pointer;
Memo:
TMemo;
Sender.Pages.add（FileName）;
=Sender.Pages.Objects[Sender.Pages.Count-1];
DynaMemo（pi）;
DynaPage.FileList.addObject（FileName,Memo1）;
EditForm.TabSet1.Tabs:
=Sender.Pages;
EditForm.Tabset1.TabIndex:
=Sender.Pages.Count-1;
EditForm.Notebook1.PageIndex:
=EditForm.Tabset1.TabIndex;
DynaPage.CurPage:
=Sender.Pages.Count-1;
procedureDynaMemo（Pi:
Pointer）;
=TMemo.Create（Pi）;
Memo.Parent:
=Pi;
Memo.Align:
=alClient;
Memo.borderStyle:
=bsNone;
Memo.HideSelection:
=False;
Memo1:
=Memo;
procedureTDynaPage.Del（Sender:
No:
integer）;
pointer;
Sender.Pages.delete（No）;
EditForm.TabSet1.Tabs.delete（No）;
Filelist.Delete（No）;
=EditForm.TabSet1.TabIndex;
Sender.PageIndex:
=FileList.Objects[DynaPage.CurPage];
EditForm.Caption:
=Sender.Pages.Strings[DynaPage.CurPage];
当用户在多个页面中进行切换时，程序应当保证对当前页面进行编辑。
例如在多页编辑器中，用户选中某一页面，即可对该页面中的文件进行编辑、寻找、设置、打印等。
为了实现这一功能，定义了一个TMemo类型的变量：
Memo1,该变量没有实例化，每次调用DynaAdd,DynaDel方法均定把TabIndex指定页面的Memo指针传给Memo1。
这样在程序运行中，始终有一个实例化的Memo指针赋给Memo1，而菜单中的文本编辑功能均对Memo1进行操作。
这种指针传递就能保证对当前页进行操作。
定义了TDynaPage后，只需在Open,Close菜单项中加入如下代码，即可方便的在用户打开关闭文件时创建成删除页面。
procedureTEditForm.Close1Click（Sender:
ifDynaPage.CurPage<
>
0then
DynaPage.Del（Notebook1,DynaPage.CurPage）;
ifNotebook1.Pages.count=1then
Close1.Enabled:
procedureTEditForm.Open1Click（Sender:
ifOpenDialog1.Executethen
ifnot（OpenFileorNewFile）then
OpenFile:
=true;
Open（OpenDialog1.FileName）;
Notebook1.Pages.Strings[0]:
=ExtractFileName（OpenDialog1.FileName）;
TabSet1.Tabs:
=Notebook1.Pages;
end
else
DynaPage.DynaAdd（Notebook1,ExtractFileName（OpenDialog1.FileName））;
Open（OpenDialog1.Filename）;
ifNotebook1.Pages.count>
1then
=True;
4.3文本编辑部件及应用
4.3.1TEdit部件
TEdit部件是一个标准的编辑框，用户可在编辑框中输入数据。
编辑框也可向用户显示数据。
编辑时只能读写一行信息。
TEdit的Text属性存放着用户输入的数据或向用户显示的数据，Modified属性用以标识Text的数据是否改变，可通过设置Maxlength属性值来限制用户输入字符的个数量，CharCase
属性可定义编辑框中字符的大小写。
如果设计者想禁止用户输入，可将ReadOnly属性设置成真值。
编辑框也能用做密码输入框。
通过设置PassWordChar属性的值，可将用户输入的字符在编辑框中显示成指定的字符，如"
*"
号等。
编辑框还可以进行字符选择操作、粘贴、复制和剪切操作。
4.3.2TMemo部件
TMemo部件与TEdit部件类似，能向用户显示数据，用户也可输入数据。
与TEdit部件
不同的是，TMemo部件可以处理多行文本，因此主要用于编辑文件。
TMemo的Text属性只能在运行时才能访问。
Modified属性用以标识Text的数据是否改
变，通过设置MaxLength属性值来限制用户输入字符的数量。
如果把文本当成一个整体进行访问，可使用Text属性；
若想逐行访问，则要使用Lines属性。
Lines属性能对文件更方便地进行访问。
Lines是TStrings类型的，因此可使用Add、Delete方法，例如在Memo1中加入一行字符串的代码如下：
Memo1.Lines.Add（'
Anotherlineisadded'
）;
通过Lines属性可以方便地把文件读入部件中，例程中使用下面的代码将文件读入Memo1：
Memo1.Lines.loadFromFile（Filename）.
从TMemo部件中剪切、复制、粘贴文本非常方便，只需使用CutToclipboard，CopyToClipBroad,PasteFromClipBoard方法，其代码如下：
Memo1.CopyToClipboard
Memo1.CutToClipboard
Memo1.PasteFromClipboard
TMemo有一些属性，用以控制文本的显示效果。
ScrollBars属性可以定义部件的水平滚动条和垂直滚动条。
当文件字体改变时，使用AutoSize属性可使部件大小做相应的调整。
设置WordWrap属性可以实现自动换行。
例程中Edit|WordWrap菜单项提供了设置WordWrap的功能，并可根据WordWrap的值决定滚动条的形式。
当WordWrap为真时，不需要水平滚动条，并在菜单中作出检查记号。
其代码如下：
procedureTEditForm.SetWordWrap（Sender:
withMemo1do
WordWrap:
=notWordWrap;
ifWordWrapthen
ScrollBars:
=ssVerticalelse
=ssBoth;
WordWrap1.Checked:
=WordWrap;
SetEditRect;
TMemo部件提供了一组关于选择文本的属性和方法。
如果想在部件成为当前控件时自动选择文本，可设置AutoSelect属性。
运行时可用SelectAll方法选中部件的全部文本。
Selstart属性返回选中文本的开始位置，SelText包含着被选中的文本。
SelLength属性返回选中文本的长度，这两个属性可用于字符串的查找和替换。
下一节将详细讨论。
TMemo的Modified属性是一个运行时才能得到的属性，可判断部件被创建时或Modified属性最后一次设置成假值之后，部件上的文本是否修改。
如果修改了，Modified将设成真值，反之假值。
例程中在关闭文件时将测试文件的modified属性，如果文件修改后尚未保存，将出现对话框，询问用户是否保存文件，其代码如下：
procedureTEditForm.FormCloseQuery（Sender:
TObject;
varCanClose:
Boolean）;
DialogValue:
Integer;
FName:
string;
ifMemo1.Modifiedthen
FName:
=Caption;
DialogValue:
=MessageDlg（Format（SWarningText,[FName]）,mtConfirmation,
[mbYes,mbNo,mbCancel],0）;
caseDialogValueof
id_Yes:
Save1Click（Self）;
id_Cancel:
CanClose:
=False;
4.4常用对话框的使用
Delphi的可视部件类库（VistualComponentLiberty）中，有一组对话框部件，在对象选择板的Dialog页面中可以找到。
本节着重介绍与文件编辑有关的字体对话框（TFontDialogComponement），查找对话框（TFindDialogComponement），替换对话框（TReplaceDialogComponement），文件对开对话框（TOpenDIalogComponement）.
应用这几个对话框可对文件进行字体设置、查找、替换等操作，但需要编写相应的代码。
4.4.1字体对话框部件
字体对话框部件在应用程序中产生字体对话框，用户可在对话框中进行字体选择和属性设置。
用户选择字体并按下OK按钮之后，有关信息便贮存在部件的Font属性中。
应用程序可通过调用字体对话框的Execult方法来显示对话框，当用户选择OK按钮时，Execult返回True值，否则返回Flase值。
应用程序可以使用Options属性来定义字体对话框的显示和行为方式：
例如可在对话框中定义一个帮助按钮或指定出现在字体列表框中的字体。
有关Options的主要取值如下表4.1：
表4.1字体对话框的Options取值及含义
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
取值 含义
───────────────────────────────────────
AdAnsiOnly如果是真值，只能使用Window字符集，
fdEffects如果是真值，对话框中显示颜色列表和效果检查框；
用户可使
用效果检查框定义Strikout下划线文本；
使用颜色列表定义字体
颜色。
fdForceFontExise 如果是真值，用户在字体组合框中输入字体名后选择OK按钮，
将出现一个用户字体无效的消息框。
fdNoOEMFont 如果是真值，字体组合框中将不显示向量字体。
fdShowHelp如果是真值，对话框显示Help按按钮。
fdWysiwyg如果是真值，只有打印和屏幕均可得到的字体才会出现在字体
组合框中。
例程中（Edit/Font）菜单具有设置文本字体的功能，其代码如下：
procedureTEditForm.SetFont（Sender:
FontDialog.Font:
=Memo1.Font;
ifFontDialog1.Execultthen
Memo1.Fout:
=FontDialog1.Font;
SetEditRect;
[目录][上一页][下一页]
升级会员 