028.htm

Delphi书籍--Delphi网上教程

返回被编辑的属性的类型信息的指针。</span></li> 
<li><span class="p2">Initialize<br> 
由属性编辑器创建之后，使用之前调用。属性编辑器经常被创建，但因为不是整个选择的公用属性而被抛弃,Initialize只有在对象察看器使用时，而不是被抛弃属性编辑器时调用。</span></li> 
</ul> 
<p><span class="p2">以下是创建新的TPropertyEditor类其他非常有用的属性和方法 
</span><ul> 
<li><span class="p2"><i>Name </i>属性<i><br> 
</i>GetName返回的属性的名称。</span></li> 
<li><span class="p2">PrivateDirectory 属性<br>  
是.exe或Delphi.ini指定的工作目录(Working Directory)，如果属性编辑器需要辅助程序或是状态文件(模版、例子等)，他们应保存在这个目录中。</span></li>  
<li><span class="p2">Properties indexed property<br>  
TProperty代表了所有被属性编辑器编辑的控件，如果不只有一个控件，每个控件都有创建的相应的TProperty,一般来说，用不着它，因为Get/SetXxxValue方法能适当的处理它。</span></li> 
<li><span class="p2">Value属性<br> 
作为字符串，GetValue返回属性的当前值。</span></li> 
<li><span class="p2">Modified<br> 
调用它来指示属性的值是否改变了。SetXxxValue方法会自动调用，如狗我们直接调用SetXxxValue,我们必须同样调用Modified。</span></li> 
<li><span class="p2">GetXxxValue<br> 
得到属性中的一个属性的值。调用TRroperty适当的GetXxxValue方法来得到相应的值。</span></li> 
<li><span class="p2">SetXxxValue<br> 
设置所有属性的值。调用TRroperty适当的GetXxxValue方法来得到相应的值。</span></li> 
</ul> 
<p><span class="p2"><font size="4"><b>TPicture 属性编辑器</b></font></span></p>  
<p><span class="p2">&nbsp;&nbsp;&nbsp;  
好了，我们已经明白如何时属性编辑器的行为像对话框，只是我想起了Delphi中最令人急躁的属性编辑器：图形、图标、图像的picture编辑器。并不是它不工作，而是他并不友好。如果我们点击了Load按钮，在对话框中选这所需要的文件。问题是，在关闭对话框之前，我们无法看到文件中的内容。返回Picture编辑器，决定是否适合要求，所以我们呢不得不一次又一次的点击Load按钮。这在我们现在许多小文件中查找时特别令人恼火。<br> 
&nbsp;&nbsp;&nbsp;  
我们需要预览功能，看看目录种的图形文件中的图像，这对我来说是一个新的属性编辑器(Borland公司没有提供PICEDIT.DCU的源代码，PICEDIT.DFM通用没用，所以我们只能写自己的Picture编辑器，而不是增强现有的。</span></p> 
<p><span class="p2"><font size="4"><b>TImageForm</b></font></span></p> 
<p><span class="p2">首先，我们的实际想要的对话框或表单，我已经设计了如下所示的一个，右下角显示了所选择的文件的图形，根据我们的需要，甚至可以对图像进行拉伸(对小图像没什么价值，对大图形就有效了)。</span></p> 
<p><span class="p2"><br> 
<i>Win31:</i> &nbsp; </span></p> 
<p align="center"><span class="p2"><i>Win95:</i> &nbsp; </span></p> 
<p><span class="p2"><font size="4"><b>TPictureEditor</b></font></span></p> 
<p><span class="p2">&nbsp;&nbsp;  
现在我们有了表单来选择图形，来看看如何让它在属性编辑器中工作。首先我们需要看看GRAPHIC.PAS来搞清楚什么图形、图像在第一个位置存在。我们受到TPersistert的两个继承所限制，TPicture和TGraphic，这用一来，我们只注意.bmp文件。只增强TPicture和TBitmap类，这意味着我们想为TPicture和TBitmap提供新的图形属性编辑器。</span></p> 
<pre><span class="p2"><b>unit</b> PictEdit;
<b>interface</b>
<b>uses</b>
DsgnIntf;


<b>Type</b>
TPictureEditor = <b>class</b>(TClassProperty)
<b>public</b>
<b>function</b> GetAttributes: TPropertyAttributes; <b>override</b>;
<b>procedure</b> Edit; <b>override</b>;
<b>end</b>;


<b>procedure</b> Register;


<b>implementation</b>
<b>uses</b>
SysUtils, Controls, Graphics, TypInfo, ImageFrm;


<b>function</b> TPictureEditor.GetAttributes: TPropertyAttributes;
<b>begin</b>
Result := [paDialog]
<b>end</b> <i>{GetAttributes}</i>;


<b>procedure</b> TPictureEditor.Edit;
<b>begin</b>
<b>with</b> TImageForm.Create(nil) <b>do</b>
<b>try</b>
ImageDrBob.Picture := TPicture(GetOrdValue);
<b>if</b> ShowModal = mrOk <b>then</b>
<b>begin</b>
<b>if</b> (GetPropType^.Name = 'TPicture') <b>then</b>
SetOrdValue(LongInt(ImageDrBob.Picture))
<b>else</b> <i>{ Bitmap }</i>
SetOrdValue(LongInt(ImageDrBob.Picture.Bitmap))
<b>end</b>
<b>finally</b>
Free
<b>end</b>
<b>end</b> <i>{Edit}</i>;


<b>procedure</b> Register;
<b>begin</b>
RegisterPropertyEditor(TypeInfo(<b>TPicture</b>), nil, '', TPictureEditor);
RegisterPropertyEditor(TypeInfo(<b>TBitmap</b>), nil, '', TPictureEditor)
<b>end</b>;
<b>end</b>.
</span></pre> 
<p><span class="p2">注意到我们并不想让TPictureEditor属于任何特别的控件，我们只有自己注册、安装，如同其他自定义的控件、专家，使用options|install  
components...对话框，在重新编译控件库之后(记住先备份!),我们得到了为每一个TPicture(TImage中的)和TBitmap（在TSpeedButton和TBitBtn)得到了新的Picture编辑器。</span></p> 
<p><span class="p2">最重要的是，已有了为TPictures和TBitmaps的属性编辑器：Borland提供的名为picture的编辑器。如果我们用自己的名字会不会有麻烦呢？不会的。因为最后注册的特别的控件和属性编辑器将精确的重载上一个。例如，我们在装一个TBitmaps的属性编辑器，将覆盖我们刚才所安装的。这次，我们用增强了的TPictureEditor覆盖缺省的Borland的Picture编辑器。</span></p> 
<p><span class="p2">好了，我们已经看了仅有的几种属性编辑器，我们特别讨论了paDialog属性编辑器。从我个人的观点来看，这是最容易的定制开发者在设计时输入属性值的方法。还有很多种方法来写属性编辑器，但我只能写到这里了。你可以自己察看TPropertyEditor类。下面，我们讲述Component  
Editor--控件编辑器。</span></p> 
<p><span class="p2"><font size="5"><b>Component Editors</b></font></span></p>  
<p><span class="p2">控件编辑器和属性编辑器类似，都是用来增强Delphi的开发环境。和属性编辑器一样，他们是一个简单的类的继承，并且要重载和重定义一些方法来达到你想要的目的<br> 
当然，和属性编辑器不同的是控件编辑器编辑的是控件，而不是属性。它限制在特别的控件中，通常是在鼠标右击控件时运行（设计时），这种行为和属性编辑器大不相同，但另一个方面，编写控件编辑器的工程和属性编辑器很相似。</span></p> 
<p><span class="p2">控件编辑是根据控件类型，为每一个设计表单上的控件创建的（参看DSGNINTF.PAS中的GetComponentEditor和RegisterComponentEditor）。当控件被双击，edit方法被调用。但控件的相关菜单被调用，GetVerbCount和GetVerb方法被调用来建立菜单。如果一个动作被选择，调用ExecuteVerb。但控件被粘贴到剪贴板，调用Paste方法。只用当我们想要在想光彩当中加入新的动作，改变鼠标双击的行为，或者是粘贴额外的剪贴板格式时，我们才需要创建控件编辑器。</span></p> 
<p><span class="p2">基类TComponentEditor的类型定义在DSGNINTF.PAS，如下（适合于所有的delphi版本）：</span></p> 
<pre><span class="p2"><b>Type</b>
TComponentEditor = <b>class</b>
<b>private</b>
FComponent: TComponent;
FDesigner: TFormDesigner;
<b>public</b>
<b>constructor</b> Create(AComponent: TComponent;
ADesigner: TFormDesigner); <b>virtual</b>;
<b>procedure</b> Edit; <b>virtual</b>;
<b>procedure</b> ExecuteVerb(Index: Integer); <b>virtual</b>;
<b>function</b> GetVerb(Index: Integer): string; <b>virtual</b>;
<b>function</b> GetVerbCount: Integer; <b>virtual</b>;
<b>procedure</b> Copy; <b>virtual</b>;


<b>property</b> Component: TComponent read FComponent;
<b>property</b> Designer: TFormDesigner read FDesigner;
<b>end</b>;
</span></pre> 
<p><span class="p2">控件编辑器程序员可以重载6个虚拟的方法（和属性编辑器相比较简单的多） 
</span><ul> 
<li><span class="p2"><i>Create(AComponent, ADesigner)<br>  
</i>调用它来创建控件编辑器。AComponent是编辑器要编辑的控件，ADesigner是设计者找到控制和创建方法的界面（不常用）。</span></li> 
<li><span class="p2">Edit<br> 
单控件被双击时别调用，控件编辑器可以弹出对话框来响应这个动作，或者是一些设计指南。如果GetVerbCount比0大，edit会调用列表中的第一个动作。</span></li> 
<li><span class="p2">ExecuteVerb(Index)<br> 
使用相关菜单的动作索引。这意味着这是由控件编辑器决定的。</span></li> 
<li><span class="p2">GetVerb<br> 
属性编辑器应该返回在相关菜单中显示的字符串。放置&amp;和...字符时控件编辑器的责任。</span></li> 
<li><span class="p2">GetVerbCount<br> 
为GetVerb和ExecuteVerb提供的合法的数值，这个值从0开始计数（0...GetVerbCount  
- 1)。</span></li>  
<li><span class="p2">copy<br> 
单控件被粘贴到剪贴板时被调用。控件的文件图形已经在剪贴板中了。这个了控件编辑器一个改变类型格式的机会，设计者会忽略，但其他程序可以识别。</span></li> 
</ul> 
<p><span class="p2"><strong>缺省的控件编辑器</strong></span></p> 
<p><span class="p2">除了通常的控件编辑器，还有其他的控件编辑器在许多控件中使用（除非安装了其他控件编辑器重载了缺省的）。TDefaultEditor</span></p> 
<p><span class="p2">Apart from the general type TComponentEditor, there is also a default 
component editor that is used by most components (unless another component editor is 
installed to override the default one). The TDefaultEditor default component editor 
implements Edit to search the properties of the component and to generate (or navigate to 
an already existing) the OnCreate, OnChange or OnClick event, whichever it finds first, or 
just the first alphabetic event handler which is available. </span></p> 
<pre><span class="p2"><b>Type</b>
TDefaultEditor = <b>class</b>(TComponentEditor)
<b>private</b>
FFirst: TPropertyEditor;
FBest: TPropertyEditor;
FContinue: Boolean;
<b>procedure</b> CheckEdit(PropertyEditor: TPropertyEditor);
<b>protected</b>
<b>procedure</b> EditProperty(PropertyEditor: TPropertyEditor;
var Continue, FreeEditor: Boolean); <b>virtual</b>;
<b>public</b>
<b>procedure</b> Edit; <b>override</b>;
<b>end</b>;
</span></pre> 
<p><span class="p2">当控件编辑器改变控件时，它必须调用Designer.Modfied方法告知设计者控件所属的表单经改变了。Designer是TFormDesigner类型的属性，可以从TComponentEditor基类中得到。任何控件编辑器都可以和设计者交流（至少要告诉设计者控件已经被修改了），如果我们只是用控件编辑器来显示一些信息（如产生一个about对话框），就没有必要通知设计者。</span></p> 
<p><span class="p2"><font size="4"><b>定制控件编辑器Custom Component Editor</b></font><br> 
当编写定制的控件时，一般考虑几个可能的基类，所有vcl的类都以TObject为根，TObject类包含了Create和Destroy方法，用于创建和注销类的一个实例。TPersistent类，从Tobject继承，包含了从表单文件中读写属性的方法。TComponent是所有控件父类，因为它包含的属性和方法允许Delphi使用TComponent作为设计单元，通过对象查看器查看他们的属性，并把这些控件放置在控件面板上。</span></p> 
<pre>
<span class="p2"><b>TObject </b>
+- <b>TPersistent </b>
+- <b>TComponent </b>
+- <b>TControl </b>
+- <b>TGraphicControl </b>
+- <b>TWinControl </b>
+- <b>TCustomControl </b>
</span></pre> 
<p><span class="p2">如果我们想创建一个新的非可视化的控件，就须要从TComponent继承。可视化控件类应该从TControl类继承。因为它包含了可视化设计控件的基本功能，象位置、可视性、字体和标题。从TControl类继承的是TCraphicControl和TWinControl，两者的区别在于TWinControl包含了实际的窗口句柄而TCraphicControl没有。这样，标准的Windows控制从TWinControl继承，而TBevel，TImage，TSpeedButton和TShape则从TCraphicControl继承，最后，TCustomControl与TWinControl  
TGraphicControl都相似（？？？）<i>既然缺省的控件编辑器能产生事件句柄的基本代码，象OnCreate，OnChange，OnClick事件，我们首先看没有或不需要这样事件的控件，不需要窗口句柄的控件，例如不需要输入焦点，非可视化控件从Tcomponent继承。</i></span></p> 
<p><span class="p2"><i>其它控件编辑器需要控制的控件，是通用对话框控件。例如TOpenDialog，TSaveDialog，ColorDialog，PrintDialog和PriterSetupDialog，FontDialog，FindDialog，RePlaceDialog已经有一些事件，所以不适合（当要写一个事件句柄时，缺省的控件编辑器将把我们带到代码编写器中），这五个有趣的对话框没有事件，缺省的控件编辑器也没有缺省的行为。</i></span></p> 
<p><span class="p2"><i>那么这些对话框的控件编辑器意味着什么？</i></span></p> 
<p><span class="p2"><i>当你设置TOverDialog所有的属性，你是否要知道[你所改变的是什么样子]？我们只有运行程序，这样才能运行对话框，能否简单一些，只要双击对话框就能预览其状态？好，我想可以，以下部分是如何解决这个问题。</i></span></p> 
<p><span class="p2">我们只要重载TComponentEdit类的edit方法，看看运行的是什么TComponent，然后运行它。</span></p> 
<pre>  <span class="p2"><b>procedure</b> TCommonDialogComponentEditor.Edit;
<b>begin</b>
<b>if</b> (Component <b>IS</b> TOpenDialog) <b>then</b> <i>{ also TSaveDialog }</i>
(Component <b>AS</b> TOpenDialog).Execute
<b>else</b>
<b>if</b> (Component <b>IS</b> TPrintDialog) <b>then</b>
(Component <b>AS</b> TPrintDialog).Execute
<b>else</b>
<b>if</b> (Component <b>IS</b> TPrinterSetupDialog) <b>then</b>
(Component <b>AS</b> TPrinterSetupDialog).Execute
<b>else</b>
<b>if</b> (Component <b>IS</b> TColorDialog) <b>then</b>
(Component <b>AS</b> TColorDialog).Execute
<b>else</b>
<b>inherited</b> Edit <i>{ default behaviour }</i>
<b>end</b> <i>{Edit}</i>;
</span></pre> 
<p><span class="p2">注意“inherited Edit”是必须的，这样才能确保不是TComponent时缺省的控件编辑器行为能保证执行。</span></p>  
<p><span class="p2">注册控件编辑器，如同定制控件及属性编辑器，设置比注册属性编辑器更简单，因为我们调用RegisterComponentEditor只需要两个参数，第一个参数是控件编辑器所需控件的名字（类型），第二个是参数是控件编辑器本身的类型。</span></p>