讲稿6-BCB高级组件应用1

操作；“Format”下拉菜单包含“Font”、“Paragraph
Alignment”和“Paragraph FirstIndent”三项。
BCB高级组件应用
“Paragraph Alignment”和“Paragraph FirstIndent”
两项分别又有一个下一级菜单(在菜单设计器内右击菜 单项并选择“Create SubMenu”创建下级菜单)： “Paragraph Alignment”的下级菜单包含“Center”、 “Left”和“Right”三项用于设置段落对齐方式， “ParagraphFirstIndent”的下级菜单包含“0 Pixels”、 “6 Pixels”、“12 Pixels”等七项，用于设置段落的缩 进。 以下是各个菜单项OnClick事件的源代码，它们是 按菜单项顺序排列的：
BCB高级组件应用
图11-1 使用RichEdit编辑器
BCB高级组件应用
【评析】 (1) RichEdit编辑器能保存和打开标准RTF格式的 文件，它还能打开纯文本文件，但它打不开在Word中 以RTF格式保存的文件，因为Word使用的是扩展的 RTF格式。不过Word能打开标准RTF格式的文件，此
(3) 本例的目的在于介绍TRichEdit组件的基本用法 和主要功能，因此并未完整地对RTF的各种格式提供 全面支持。此外，程序中也缺少诸如查找、替换等常 见的功能，有兴趣的读者可尝试改进。
BCB高级组件应用
11.2 TreeView组件
11.2.1 TTreeView类的属性和方法 下面先介绍一下TTreeView类的主要属性、事件和 方法。 1．AutoExpand属性 AutoExpand属性为布尔类型，缺省值为false。设
RichEdit1->SelAttributes->Style =TF; }
}
//--------------------------------------------------------------------------void__fastcall TForm1::Center1Click (TObject *Sender)
BCB高级组件应用
void__fastcall TForm1::Save1Click (TObject *Sender)
{ if (SaveDialog1->Execute ( ))
RichEdit1->Lines->SaveToFile (SaveDialog1->FileName);
} //---------------------------------------------------------------------------
BCB高级组件应用
void__fastcall TForm1::Exit1Click (TObject *Sender)
{ Close ( ); } //--------------------------------------------------------------------------void__fastcall TForm1::Cut1Click (TObject *Sender) { RichEdit1->CutToClipboard ( ); } //--------------------------------------------------------------------------void__fastcall TForm1::Paste1Click (TObject *Sender) { RichEdit1->PasteFromClipboard ( );
RichEdit1->Paragraph->Alignment = taRightJustify;
//设置当前段为右对齐方式 }
//---------------------------------------------------------------------------
BCB高级组件应用
{
RichEdit1->Paragraph->Alignment = taCenter; //设置当前段为左对齐方式
BCB高级组件应用
}
//--------------------------------------------------------------------------void__fastcall TForm1::Left1Click (TObject *Sender) { RichEdit1->Paragraph->Alignment = taLeftJustify; //设置当前段为居中对齐方式 } //--------------------------------------------------------------------------void__fastcall TForm1::Right1Click (TObject *Sender) {
8．Selected属性
Selected属性是TTreeNode*对象，用于返回树状视 图中当前选择的节点。若当前没有节点被选择，则返 回NULL。
{
if (OpenDialog1->Execute ( )) RichEdit1->Lines->LoadFromFile (OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
bcb高级组件应用图116图片浏览程序在运行时的界面bcb高级组件应用图117将图片放大显示bcb高级组件应用评析tfilelistbox组件是tlistbox的派生类但增加了文件列表的功能它可以将指定目录本例中缺省为当前目录下所有文件的名称作为列表中的项目供显示和访问
BCB高级组件应用
BCB高级组件应用1
void__fastcall TForm1::Print1Click (TObject *Sender)
{ RichEdit1->Print (""); //打印RTF文本，参数用于指定一个标题，此
处标题为空
} //---------------------------------------------------------------------------
BCB高级组件应用
【例11-1】 创建一个应用程序项目，在Form1中放 一个RichEdit编辑器(位于Win32页上)、一个打开文件 对话框、一个保存文件对话框和一个字体设置对话框。 再为应用程序加入一个主菜单。进入菜单设计器，为 主菜单MainMenu1增加“File”、“Edit”和“Format” 三个下拉菜单。“File”下拉菜单包含“New”、 “Open”、“Save”、“Print”和“Exit”等五项；“Edit” 下拉菜单包含“Cut”、“Copy”和“Paste”三项剪贴板
置为true时，当前被选择的节点将自动扩展，没有被选
择的节点将自动折叠。
BCB高级组件应用
2．DropTarget属性 DropTarget属性是一个TTreeNode类对象，可用来 设置某个节点作为拖放操作的目标。 3．HideSelection属性 HideSelection属性为布尔类型，缺省值为true，此 时若从树状视图移出输入焦点，则原来选择的节点不 再保持被选择的状态；若设置为false，则这个节点将 继续保持选择的状态。 4．Images属性 Images属性通过一个图像列表来指定树状视图中不 同类型节点的图标。
B置子节点相对于它的父节点的缩 进显示的距离。以像素为单位，缺省值为19。 6．Items属性 Items属性是TTreeNodes*对象，通过它可以访问每
一个节点。在设计时，可打开专门的编辑器对其树结
构进行输入。
BCB高级组件应用
7．ReadOnly属性 ReadOnly属性为布尔类型，缺省为false，这时用 户可以直接修改节点的标签，操作中先选择节点，再 用鼠标点击节点就可以进入编辑状态；若设置为true， 则节点标签不能直接修改。
void__fastcall TForm1::N0Pixels1Click (TObject *Sender)
{ RichEdit1->Paragraph->FirstIndent = 0; //设置当前段的首行缩进值
}
//--------------------------------------------------------------------------void__fastcall TForm1::N6Pixels1Click (TObject *Sender)
外RichEdit与Word之间可以无障碍地利用剪贴板相互
交流RTF文本。 (2) 当根据字体对话框的设置修改字体时要分别处
理 Size 、 Color 和 TFontStyles 集 合 类 型 的 Style 属 性 ，
SelAttributes是TRichEdit组件中被选文本的属性。
BCB高级组件应用
BCB高级组件应用
{
//用字体对话框中的设置修改被选文本的字体
RichEdit1->SelAttributes->Size =FontDialog1->Font->Size; RichEdit1->SelAttributes->Color = FontDialog1->Font->Color;
TF = FontDialog1->Font->Style;
BCB高级组件应用
void__fastcall TForm1::New1Click (TObject *Sender)
{ RichEdit1->Clear ( );
}
//--------------------------------------------------------------------------void__fastcall TForm1::Open1Click (TObject *Sender)
BCB高级组件应用
void__fastcall TForm1::N36Pixels1Click (TObject *Sender) { RichEdit1->Paragraph->FirstIndent = 36; }
运行该程序，打开某个文件或输入一段文本后可 进行各种格式处理，如图11-1所示，我们可以设置不 同的字体，包括斜体和下划线，还能对段进行缩进等 处理。
BCB高级组件应用
}
//--------------------------------------------------------------------------void__fastcall TForm1::Copy1Click (TObject *Sender)
{
RichEdit1->CopyToClipboard ( ); }
{
RichEdit1->Paragraph->FirstIndent = 6; }
//以下几段类似的代码被省略---------------------------------------
//---------------------------------------------------------------------------
TRichEdit组件 TreeView组件
TCustomGrid组件
BCB高级组件应用
11.1 TRichEdit组件
本节介绍RichEdit组件，该组件与Memo组件非常 类似，但可以处理标准的格式化文本(RTF文本)，这种 文本中每个字符的字体和每个段的格式都是可以控制 的。例11-1使用TRichEdit类组件构建了一个RTF文本 的编辑器，该程序非常简单，但功能强大。如果用户 嫌Word太庞杂，或正版软件价格太高，那么可按本例 自制一个免费的正版字处理软件。
//--------------------------------------------------------------------------void__fastcall TForm1::Font1Click (TObject *Sender) {
TFontStyles TF;
if (FontDialog1->Execute ( )) if (RichEdit1->SelLength >0) //有文本被选中时起作用