CnPack Forum - Powered by Discuz! Board

Subject: CnClasses开发包基础类单元说明 [Print This Page]

Author: zjy Time: 2002-7-9 20:21 Subject: CnClasses开发包基础类单元说明

======================================================================
CnClasses 开发包基础类单元
======================================================================

by 与月共舞(yygw@163.com) 2002.07.09

CnClasses 单元包含公共的最底层基础类实现。
该单元位于开发包Source/Common目录下。

----------------------------------------------------------------------
TCnPersistent
----------------------------------------------------------------------

TCnPersistent <-- TPersistent

带更新通知的持久性类，派生自 TPersistent，主要扩充了更新通知、计数等功
能。

  TCnPersistent = class(TPersistent)
  protected
procedure Changing; virtual;
procedure Changed; virtual;
function GetOwner: TPersistent; override;
function IsUpdating: Boolean;
procedure OnChildChanging(Sender: TObject); virtual;
procedure OnChildChange(Sender: TObject); virtual;
procedure SetUpdating(Updating: Boolean); virtual;
property Owner: TPersistent;
  public
constructor Create; overload; virtual;
constructor Create(AOwner: TPersistent); overload;
constructor Create(ChangeProc: TNotifyEvent); overload;
constructor Create(ChangingProc, ChangeProc: TNotifyEvent);
   overload;
procedure BeginUpdate; virtual;
procedure EndUpdate; virtual;
  published
property OnChanging: TNotifyEvent;
property OnChange: TNotifyEvent;
  end;

1. 更新通知
------------

在面向对象的系统中，对属性的赋值经常会引发一个操作，比如更改标签的
Caption、Font 等属性都会使标签重绘。通常，控件使用一个通用方法来处理大
部分的属性变更事件，最常见的是在 Paint 方法根据当前属性重绘控件，而属
性写方法中则用 Invalidate 通知控件重绘。

作为提高组件易用性的一种手段，我们经常把一些相关的属性打包到一起，再为
它编写属性编辑器，有时还会有多重嵌套，这样会使得属性通知变得复杂，
TCnPersistent通过定义以下成员以描述这种共性：

  protected
procedure Changing; virtual;
开始变更，通常在一个较长的操作中调用，如果当前更新记数为0，将产生
OnChanging事件。

procedure Changed; virtual;
内容已变更，指示某个属性内容已发生变化，如果当前更新记数为0，将产
生OnChange事件。一般用在属性写方法中。

procedure OnChildChanging(Sender: TObject); virtual;
子属性开始变更事件处理代码，默认操作同Changing，但传递子属性为
Sender。

procedure OnChildChange(Sender: TObject); virtual;
子属性内容已变更事件处理代码，默认操作同Changed，但传递子属性为
Sender。

  public
constructor Create(ChangeProc: TNotifyEvent); overload;
这个构造器允许传递一个方法来给OnChange事件赋值。

constructor Create(ChangingProc, ChangeProc: TNotifyEvent);
   overload;
这个构造器允许传递两个方法来给OnChanging和OnChange事件赋值。

  published
property OnChanging: TNotifyEvent;
属性开始更新事件。

property OnChange: TNotifyEvent;
属性已变更事件。

2. 更新计数
-----------

有时候，用户会批量设置属性，如果每设置一个属性都引发控件进行大量的处理，
将使得运行速度变慢，一般采用更新计数的方法来解决：

  protected
function IsUpdating: Boolean;
正在更新标志，表示当前有一个以上项目正在更新。

procedure SetUpdating(Updating: Boolean); virtual;
更新状态变化处理方法，默认的处理是当Updating为True即开始进入更新状
态时调用Changing方法，反之表示更新结束，调用Changed方法。

  public
procedure BeginUpdate; virtual;
开始更新，增加更新计数，当更新计数大于0时，对Changing和Changed方法
的调用不产生相关事件。使用时必须与EndUpdate成对使用，并用
try...finally..end保护。嵌套调用该方法时仅第一次调用
SetUpdating(True)。

procedure EndUpdate; virtual;
结束更新，减少更新计数，必须与BeginUpdate成对使用，嵌套调用该方法
时仅最后一次调用SetUpdating(False)。

3. 提供Owner属性
----------------
(该设计思想由开发组何清兄提供)

在某些特殊场合，IDE需要获取类属性的Owner以获得一个完整的命名路径，如
TCollection派生类要在设计期有效，必须提供Owner属性。Delphi提供了
TOwnedCollection来完成该功能，而如果一个TCollection派生类在组件的类属
性甚至多重类属性中，则它的直接和间接拥有者都应该提供Owner属性，使得IDE
可以获得一个类似ComponentName.Property1.Property2.Collection这样的命名
路径来唯一标识该TCollection派生类实例及其子项。如果不这样做，你会发现
在设计期你无法使用TCollection派生类属性的属性编辑器。

TCnPersistent提供以下解决方案：

  protected
function GetOwner: TPersistent; override;
重载了TPersistent的GetOwner方法，返回Owner属性，子类可不再关心。

property Owner: TPersistent;
允许子类在需要的时候设置实例的Owner属性，支持读写操作。

  public
constructor Create(AOwner: TPersistent); overload;
类构造器，支持Owner参数，

----------------------------------------------------------------------
TCnThreadPersistent
----------------------------------------------------------------------

TCnThreadPersistent <-- TCnPersistent <-- TPersistent

线程安全的更新通知持久性类，增加了线程安全的控制代码。

VCL本身并不是线程安全的，如果多个线程同时访问一个控件时，很容易引发错
误。我们知道，TThread提供了一个Synchronize，利用一种巧妙的方法将线程方
法通过消息发送到进程的主线程中执行，以获得访问VCL时的同步。而
TCnThreadPersistent主要是为解决并发访问数据时的冲突而设计，该类的设计
主要参考了TCanvas的实现方法：

  TCnThreadPersistent = class(TCnPersistent)
  protected
property LockCount: Integer;
当前加锁计数，只读属性

  public
procedure Lock;
加锁，增加加锁计数，进入临界访问区，以避免访问冲突。该方法必须与
Unlock成对使用，并用try...finally..end保护。

function TryLock: Boolean;
尝试加锁，如果当前LockCount为0，则加锁，否则放弃。返回成功标志，如
果成果，用户应负责解锁。

procedure Unlock;
解锁，减少加锁计数，离开临界访问区。该方法必须与Lock成对使用。
  end;

需要注意的是，使用了TCnThreadPersistent派生类的代码并不表明它就是线程
安全的。线程安全性需要由用户自己来保证，TCnThreadPersistent只是提供了
实现的方法而已。如果有一段数据处理代码允许在多线程中使用，并且不允许在
执行的过程中被其它线程重入，用户应该用下面的方法来保护这段代码：

bgein
  CnThreadPersistent.Lock;
  try
...  // 需要保护的代码
  finally
CnThreadPersistent.Unlock;
  end;
end;

----------------------------------------------------------------------
TCnComponent
----------------------------------------------------------------------

TCnComponent <-- TComponent <-- TPersistent

CnPack不可视组件基类，当前仅增加了版权信息功能，这些信息用在组件的关于
窗口中。

  TCnComponent = class(TComponent)
  protected
function GetAuthorCount: Integer; virtual;
取组件作者数，重载该方法返回组件作者总数，默认为0

function GetAuthor(Index: Integer): string; virtual;
取组件作者函数，参数为作者索引号（从0开始），重载该方法返回组件作
者

function GetEmail(Index: Integer): string; virtual;
取组件作者邮箱函数，参数为作者索引号（从0开始），重载该方法返回组
件作者邮箱

function GetComment: string; virtual;
取组件注释函数，组件重载该方法返回组件注释

  published
property About: TCnCopyright;
组件的关于属性，注册有属性编辑器，用于显示版权信息。
  end;

Author: xiaolv Time: 2003-1-23 02:07 Subject: 错别字

function TryLock: Boolean;
尝试加锁，如果当前LockCount为0，则加锁，否则放弃。返回成功标志，如果成果，用户应负责解锁。
最后一行，是不是应该为:如果成"功"，

Author: zjy Time: 2003-1-24 10:42

兄弟真认真，如果CnPack开发组每一位成员都能这样认真，不知道我们会做出什么奇迹出来哩：）

Welcome to CnPack Forum (http://bbs.cnpack.org/)