abklib.pas

来自「著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行」· PAS 代码 · 共 38 行

unit AbkLib;

{******************************************************************************}
{ Abakus VCL                                                                   }
{                            Abakus property Editors                           }
{                                                                              }
{******************************************************************************}
{        e-Mail: [e-mail] , Web: http://www.abaecker.com            }
{------------------------------------------------------------------------------}
{          (c) Copyright 1998..2001 A.Baecker, All rights Reserved             }
{******************************************************************************}

interface
{$I Abks.inc}

procedure Register;

implementation

uses Classes,
  AbInfDlg, AbIRDlg, _AbInfo, AbOpPnt, DlgAbSBevel, DlgScaleSettings,
  {$IFDEF D6} DesignIntf, {$ELSE} DsgnIntf, {$ENDIF}
  DlgSectorSettings, DlgSignalSettings, _GClass;

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TAbInfo), nil, '', TAbInfoEditor);
  RegisterPropertyEditor(TypeInfo(TIndRect), nil, '', TAbIndRectEditor);
  RegisterPropertyEditor(TypeInfo(TAbSBevel), nil, '', TAbSBevelEditor);
  RegisterPropertyEditor(TypeInfo(TScaleSettings), nil, '', TAbScaleSettingsEditor);
  RegisterPropertyEditor(TypeInfo(TSectorSettings), TAbAnalogGControl, '', TSectorSettingsEditor);
  RegisterPropertyEditor(TypeInfo(TSignalSettings), TAbAnalogGControl, '', TSignalSettingsEditor);

end;

end.