  Components: TBarPopupMenu
  ===========================================================================
  Bluecave Software
                  (C) Copyright 2000, Jouni Airaksinen (Mintus@Codefield.com)
  ===========================================================================
  First Release date: 2000-06-22 (yyyy-mm-dd)
  ---------------------------------------------------------------------------

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

  -- Version 1.0.0 --

    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,  Copyright 2000: Jouni Airaksinen, Mintus@Codefield.com"

    There is demo program at Demo\ directory.

    New properties in TBarPopupMenu:

    property Bitmap: TBitmap
      Bitmap to be positioned somewhere in the popupmenu (e.g. application
      logo)

    property BarWidth: Integer
      Width of bar on the left side of popupmenu

    property BitmapOffsetX: Integer
    property BitmapOffsetY: Integer
      Offset values to position bitmap

    property BitmapVertAlignment: TBitmapVertAlignment
    property BitmapHorzAlignment: TBitmapHorzAlignment
      Alignment values to position bitmap, fine tune position with Offsets

    property GradientEnd: TColor
    property GradientStart: TColor
      Gradient colors, if set to same color is drawn with one FillRect call

    property Transparent: Boolean
      Transparency of Bitmap

    property VerticalFont: TFont
    property VerticalText: string
      Vertical text and it's font on the bar

    property VerticalTextOffsetY: Integer
      Offset for vertical text, normally you want it to be negative e.g.
      defaults to -6.


    Notes about root Items:

      You can't assign (well you can, but events don't get executed)
      OnMeasureItem nor OnAdvancedDrawItem events to root items.
      Maybe I fix this later, if someone really needs those..

      Otherwise, you can use Actions and other stuff normally.

  ---------------------------------------------------------------------------
  Questions to,

    Jouni Airaksinen, (programming: Mintus@Codefield.com; personal: virgin@sci.fi)
    Bluecave Software, (http://www.bluecave.net/)
    Codefield.com, (http://Codefield.com/)

  == DISCLAIMER =============================================================

   THIS CODE is free. Yes, free. I'm not going to ask any money from you.
   Just mention my name in your application and you are ready to go. You may
   use this in your products which are: freeware, shareware, commericalware,
   whateverware.

                                      Jouni Airaksinen (Mintus@Codefield.com)
                                      Web: http://Codefield.com/home/mintus
  =========================================================================== 
