Freeze popup menu

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   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 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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
doktor.pj Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 31 October 2011 Status: Offline Points: 7	Post Options Post Reply Quote doktor.pj Report Post Thanks(0) Quote Reply Topic: Freeze popup menu Posted: 28 May 2022 at 12:21pm
	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 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