|
I've created a menu that works for a few problems
- if I move from item to item in the menu, it is a matter of time when the menu (application) freezes. Sometimes after switching to another popup menu, the previous menu will remain displayed until I return to it.
See. attachment https://forum.codejock.com/uploads/7161/menu.zip" rel="nofollow - uploads/7161/menu.zip
- Clicking on individual panels does not work in the status bar
Here is an example code:
DEFINE CLASS classStatBar AS session OLEPUBLIC
IMPLEMENTS IStatusBarEvents IN "CODEJOCK.COMMANDBARS.20.3.0"
PROCEDURE IStatusBarEvents_MouseDown(Button AS INTEGER, Shift AS INTEGER, x AS Number, y AS Number) AS VOID
* add user code here
MESSAGEBOX(STR(Button)+STR(Shift),64,"IStatusBarEvents_MouseDown")
ENDPROC
PROCEDURE IStatusBarEvents_MouseUp(Button AS INTEGER, Shift AS INTEGER, x AS Number, y AS Number) AS VOID
* add user code here
MESSAGEBOX(STR(Button)+STR(Shift)+STR(_screen.active_pane),64,"IStatusBarEvents_MouseUp")
ENDPROC
PROCEDURE IStatusBarEvents_PaneDblClick(Pane AS VARIANT) AS VOID
* add user code here
MESSAGEBOX(pane.id,64,"PaneDblClick (statusbar.prg)")
ENDPROC
PROCEDURE IStatusBarEvents_PaneClick(Pane AS VARIANT) AS VOID
* add user code here
MESSAGEBOX(_screen.active_pane, 64, "IStatusBarEvents_PaneClick")
ENDPROC
PROCEDURE IStatusBarEvents_SwitchPaneClick(Pane AS VARIANT, Switch AS Number) AS VOID
* add user code here
ENDPROC
PROCEDURE IStatusBarEvents_SliderPaneClick(Pane AS VARIANT, Command AS VARIANT, Pos AS Number) AS VOID
* add user code here
ENDPROC
ENDDEFINE
Development environment: Visual foxpro 9.0
|