Hi Marcia,

We've been looking at using this combination menu/toolbar control from DBI-Tech but can't seem to get any menu shortcuts to work (e.g., ALT-F, CTRL-S, etc).

We are building the menu dynamically at run time. Have you bumped into this problem?

Any Ideas?

Guy

PS. We're using VFP8.





>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  && Right
>    .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
>