Delphi控件源码

开发平台：

C++ Builder

am2000reg.pas：源码内容

							
{*******************************************************}
{                                                       }
{       AnimatedMenus/2000                              }
{       Component registraton unit                      }
{                                                       }
{       Copyright (c) 1997-99 AnimatedMenus.com         }
{       All rights reserved.                            }
{                                                       }
{*******************************************************}
unit am2000reg;
{$I am2000.inc}
interface
procedure Register;
implementation
uses
  Classes, DsgnIntf,
  am2000, am2000menuitem, am2000designer
{$IFDEF Delphi3OrHigher}
  , am2000shortcut
{$ENDIF}
  ;
procedure Register;
begin
  RegisterComponents('AnimatedMenus/2000', [TMenuBar2000, TMainMenu2000, TPopupMenu2000]);
  RegisterComponentEditor(TMainMenu2000,   T_AM2000_ComponentEditor);
  RegisterComponentEditor(TPopupMenu2000,  T_AM2000_ComponentEditor);
  RegisterPropertyEditor(TypeInfo(TEditableMenuItem2000), nil, '', T_AM2000_MenuDesigner);
{$IFDEF Delphi3OrHigher}
  RegisterPropertyEditor(TypeInfo(T_AM2000_ShortCut), nil, '', T_AM2000_ShortCutProperty);
{$ENDIF}
end;
end.

						