barpopupmenu_old.pas

絮语2007视频聊天软件源程序.仅供参考

{ Component: TBarPopupMenu
  ===========================================================================

              Download the latest version of the component from:

            http://Mintus.Codefield.com/download/BarPopupMenu.zip

  The contents of this file are subject to the Bluecave Public License V 1.0
  (the "License"). You may not copy or use this file, in either source code
  or executable form, except in compliance with the License. You may obtain
  a copy of the License at http://www.bluecave.net/licenses/.

  Software distributed under the License is distributed on an "AS IS" basis,
  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  for the specific language governing rights and limitations under the
  License.

  Copyright (C) 2000-2001 Bluecave Software. All Rights Reserved.
  http://www.bluecave.net/

  Copyright (C) 2000-12001 Jouni Airaksinen. All Rights Reserved.
  http://Mintus.Codefield.com/ -- [e-mail]

  ===========================================================================

  Unit description:

    This is a 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 and above. Be my guest and use
    it where-ever you like, just mention my name and e-mail somewhere in
    your software.

    There is a demo project at Demo\ directory.

  History:

    Look at History.txt.


  =========================================================================== }

{$I DFS.inc}
{$I BCDirectives10.inc}

{
    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 BarVisible: Boolean
      Toggles bar visibility. If it's false, menu looks like normal menu.

    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:


      Otherwise, you can use Actions and other stuff normally.

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

    Jouni Airaksinen, (programming: [e-mail]; personal: [e-mail])
    Bluecave Software, (http://www.bluecave.net/)
    Codefield.com, (http://Codefield.com/)

  == COPYRIGHT, FEES & DISCLAIMER ============================================

   YOU MUST include my name and e-mail address somewhere in your application;
   Splash screen, About screen, readme file or something else. Place where
   it's readable by normal user.

  "TBarPopupMenu,