Board logo

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/) Powered by Discuz! 5.0.0