Thanks Marcia. I think I may have a different version of the
control, cause I dont have the properties that you reference
(Specifically Menuitems.)
I'll keep poking away at it though....
Thanx!
Bob
>Hi Bob.
>
>
>It looks excellent, but we are not having any luck
>getting a drop down menu to work. One of the options
>is to set the Button Type as a Drop down, but I
>have searched high and low trying to find how I
>tie a button to this "Drop Down" menu??>
>I used this control in an application recently and data-drve its creation. Here is the code from my class that adds an item to the menu:
>
>FWIW, I leave the Button Type as 0. If you set the Button Type as Drop Down it just displays a little down arrow on that menu pad. Leaving the button type as 0 will still drop down the menu.
>
>
>*!* First see if this is a top level menu item or an
>*!* item in a lower level
>IF MenuItems.iLevel = 1
> *!* Top level item
> lnIndex = This.AddItem( MenuItems.iItemType, lcItemText, 0 )
> WITH This
> .ItemTextPosition( lnIndex ) = 4
> .ItemFixedWidth( lnIndex ) = .T.
> .ItemButtonWidth( lnIndex ) = MenuItems.iWidth
>
> *!* Item tips only display for top level items
> This.ItemTips( lnIndex ) = lcItemTips
>
> ENDWITH
>ELSE
> *!* the index of the parent button was passed in as a parameter
> lnChild = This.LastChildIndex( tiIndex )
> lnIndex = This.InsertItem( MenuItems.iItemType, lcItemText, MenuItems.iImageID, lnChild + 1 )
> This.ItemLevel( lnIndex ) = MenuItems.iLevel
>ENDIF
>