barpopupmenu.pas

来自「delphi控件」· PAS 代码 · 共 32 行

{ Component: TBarPopupMenu
  ===========================================================================
  Bluecave Software
                  (C) Copyright 2000, Jouni Airaksinen ([e-mail])
  ===========================================================================
  Last Updated date: 2000-06-24 (yyyy-mm-dd)
  ---------------------------------------------------------------------------


              << LOOK COPYRIGHT, FEES & DISCLAIMER SECTION >>


  -- Version 1.0.3 -- (2000-06-24)
     - Support for my Expanding menu component system ( ignores items with
       caption as '#' )

  -- Version 1.0.2 -- (2000-06-24)
     - property BarVisible: Boolean

  -- Version 1.0.1 -- (2000-06-23)
     - Fixed font assignment AV using elipses (...) button

  -- Version 1.0.0 -- (2000-06-22)

    This is continued part of my article at www.delphi3000.com. Article
    ID 1133, http://www.delphi3000.com/article.asp?id=1133

    TBarPopupMenu component for Delphi 5. Be my guest and use it where-ever
    you like, just mention my name and e-mail somewhere in your software.

    Copy/Paste here,
     "TBarPopupMenu,