开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
am2000.pas
资源名称：am2000.zip　[点击查看]
上传用户：powellwoo
上传日期：2007-01-07
资源大小：109k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

C++ Builder

am2000.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       AnimatedMenus/2000                              }
  5. {       Version 2.2 (build 655)                         }
  6. {       Compiled 01.09.99 16:53                         }
  7. {                                                       }
  8. {       Copyright (c) 1997-99 AnimatedMenus.com         }
  9. {       All rights reserved.                            }
  10. {                                                       }
  11. {*******************************************************}
  14. unit am2000;
  16. {
  18.    This is Microsoft Office2000-styled menus component pack.
  20.    *********************************************************************
  21.      Website:  http://www.animatedmenus.com/
  22.    *********************************************************************
  24.    *********************************************************************
  25.      Thanks to Victor Santos for participation in the development
  26.      of this version.
  27.    *********************************************************************
  28.      Thanks to all users and betatesters.
  29.      Thanks to everyone who helps in development of this component.
  30.    *********************************************************************
  32. }
  34. {$BOOLEVAL OFF}
  35. {$RANGECHECKS OFF}
  36. {$TYPEDADDRESS OFF}
  37. {$WRITEABLECONST ON}
  39. {$I am2000.inc}
  41. interface
  43. uses
  44.   am2000menubar, am2000mainmenu, am2000popupmenu;
  47. type
  48.   TMainMenu2000 = class(TCustomMainMenu2000)
  49.   published
  50.     property Items;
  51. {$IFNDEF Delphi4OrHigher}
  52.     property Images;
  53. {$ENDIF}
  55.   end;
  57.   TMenuBar2000 = class(TCustomMenuBar2000)
  58.   published
  59.     property Options;
  60.     property Menu;
  61.     property AlignParent;
  62.     property Font;
  63.     property Align;
  64.     property ParentFont;
  65.     property ShowHint;
  66.     property ParentShowHint;
  67.     property SystemFont;
  68.     property PopupMenu;
  69.     property Ctl3D;
  70.     property StatusBar;
  71.     property StatusBarIndex;
  72.     property Transparent;
  73.     property OnMenuCommand;
  74.     property OnMenuClose;
  75.     property OnCloseQuery;
  77.   end;
  79.   TPopupMenu2000 = class(TCustomPopupMenu2000)
  80.   published
  81.     property StatusBar;
  82.     property StatusBarIndex;
  83.     property ShowHint;
  84.     property ParentShowHint;
  85.     property Font;
  86.     property ParentFont;
  87.     property SystemFont;
  88.     property Options;
  89.     property Ctl3D;
  90. {$IFNDEF Delphi4OrHigher}
  91.     property Images;
  92. {$ENDIF}
  94.     property OnMenuCommand;
  95.     property OnMenuClose;
  96.     property OnCloseQuery;
  98.   end;
  101. implementation
  103. {$R am2000.res}
  104. {$R AutoBitmaps.res}
  106. initialization
  107.   Randomize;
  109. end.