I am trying to use menuitem.popup to simulate the bevelButton Menu so
I can use icons (well and some other stuff too but it gets to
complicated to go into here). I do this in the BevelButton MouseDown
and return True there...
It looked liked it worked but I also need to use the Window
MouseMove event....
On OSX everything is fine however on Win2K (at least on Virtual PC)
after you make a menu selection Wndow.MouseMove won't fire until you
click on something else making it unusable for this application...
I was wondering if anybody could try this on a real PC and let me
know if it's an RB or VPC bug
1) New Project
2) To default window add :
a StaticText
a BevelButton
a Public Property : CM As MenuItem
3) In Window1.Open
Sub Open()
CM = New MenuItem
Dim Item as menuItem
Item = New MenuItem
Item.Text = "one"
CM.Append Item
Item = New MenuItem
Item.Text = "two"
CM.Append Item
End Sub
4) In Window1.MouseMove:
Sub MouseMove(X As Integer, Y As Integer)
StaticText1.Caption = Str(x) +"," + str(y)
End Sub
5) In BevelButton1.MouseDown:
Function MouseDown(X As Integer, Y As Integer) As Boolean
Dim Item As MenuItem
item = CM.PopUp(me.Left, Me.Top + me.Height)
Return True
End Function
In windows run the App and click on the bevelbutton and make a menu
selection then move the mouse around... Does the static text stop
updating?
Thanks
- karen
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
