Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Freeze popup menu
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Freeze popup menu

 Post Reply Post Reply
Author
Message
doktor.pj View Drop Down
Newbie
Newbie


Joined: 31 October 2011
Status: Offline
Points: 7
Post Options Post Options   Thanks (0) Thanks(0)   Quote doktor.pj Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.188 seconds.