{******************************************************************************}
{          原始文件名：CnPackRegister.pas                                      }
{            单元作者：CnPack开发组                                            }
{            下载地址：http://cnpack.yeah.net                                  }
{            电子邮件：[email protected]                                          }
{                备注：该单元为开发包公共注册单元                              }
{            最后更新：2002.04.08 V1.0                                         }
{                                                                              }
{******************************************************************************}

unit CnPackRegister;
interface

{$I CnPack.inc}

// 注释掉该行取消对系统默认字体的修改
// 默认方式下使用宋体、Size9 字体取代系统默认的字体
// 字体设置影响新建的窗体、IDE中部分窗口等
// {$DEFINE CN_MODIFY_DEFAULT_FONT}

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  {$IFDEF DELPHI6}
  DesignIntf, DesignEditors;
  {$ELSE}
  DsgnIntf;
  {$ENDIF}

procedure Register;
{* 控件、组件编辑器、属性编辑器注册过程}

implementation

procedure Register;
begin
  {$IFDEF CN_MODIFY_DEFAULT_FONT}
  with DefFontData do    // 修改系统默认字体
  begin
    Handle := 0;
    Height := -12;
    Pitch := fpDefault;
    Style := [];
    Charset := GB2312_CHARSET;
    Name := '宋体';
  end;
  {$ENDIF}
end;

end.