TIAeverMainMenu and TIAeverPopMenu (Second edition) v 2.06

This component is graphics Main menu and Pop menu (not based on system menu)

Content:

1. Installation

2. Shot description

3. Full description

4. License


1. Installation

Delphi 4
C++ Builder 4
Delphi 5
Installing so easy as at Delphi 4 except at opening the *.dpk files you will asked for package conversion at new format, SO please press ok to that question.

At begin

2. Shot description

Component Provide next:

At begin

3. Full description

Property Value Description
BackColor clMenu Back Color of menu lists
DelayTime 60 Delay before item selection
Font3DStyle iafsPlain
iafsRelief
iafsPressed
3D style of menu font
FramesDelay 10 Define the velocity of opening/closing animation, set 0 to remove it
GrayColor clInactiveCaption Color of Grayed Items
MainMenuLeft 0 Left value of main menu position
MainMenuList TIAMenuList Menu content
MainMenuTop 0 Top Value of main menu position
MainSemiPercent 0 The SemiTransparence Power for main menu
MenuAlign iaalTop
iaalLeft
iaalBottom
iaalRight
iaalNoneHorizontal
iaalNoneVertical
Aligning of Main Menu
MenuFont TFont Font for menu
MenuKind mkSimple
mkWide
mkRects
mkSimpleCorner
mkWideCorner
Menu kind, 5 variants at this version...
PrefferedOrientation poLeftRightTopBottom
poRightLeftTopBottom
poLeftRightBottomTop
poRightLeftBottomTop
Preffered Orientation of sub menu opening
ScrollVelocity 5 Velocity of scrolling at menu list
SelectColor clActiveCaption Color of Selection
SelectFontColor clMenuText Color of font for selected item
SemiPercent 0 Power of Semi Transparence for sub menu lists
KeyboardOn false Set it to true to use keyboard futures

Events

property OnSelectItem : TIAMenuSelectProcedure read FOnSelectItem write FOnSelectItem;
TIAMenuSelectProcedure = procedure(Sender : TObject;AName : String;var ANamePath : TStringList;ASubmenuSelected : Boolean) of object;
Where:

Keyboard using

press Alt button to enter/ exit menu;
press Arrows buttons to navigate menu;
press Space or enter to select item;
press PgUP/PgDown buttons to open/hide the hidden items;
press any time Alt+(defined button at editor ) to select item even menu is closed;

Methods

procedure OpenMenu(Moused : Boolean = TRUE;AWinControl : TWinControl = nil;Aleft : integer =0; Atop : integer = 0; Aright : integer = 0 ; Abottom : integer = 0;AHorizontal : Boolean = false);
opens the Menu;

procedure CloseMenu;
closes the Menu;

Examples

At begin

4. License

Free for non-commerce aims. At other case please ask author for permission.

At begin