Close popmenu hitself [Resolved]

Kwai chang caine · Post by **Kwai chang caine** » Wed Jan 23, 2008 1:56 pm

Hello at all

Is it possible to close the popmenu if the cursor of mouse is not on it ?

;
; ------------------------------------------------------------
;
;   PureBasic - Menu example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

;
; Create the popup menu. The indent is very important here for a good lisibility
;

If CreatePopupMenu(0)
  MenuItem(1, "Cut")
  MenuItem(2, "Copy")
  MenuItem(3, "Paste")
  MenuBar()
  OpenSubMenu("Options")
    MenuItem(4, "Window...")
    MenuItem(5, "Gadget...")
  CloseSubMenu()
  MenuBar()
  MenuItem( 6, "Quit")
EndIf

;
; We just have to open a window and see when an event happen on the menu
;

If OpenWindow(0, 100, 100, 300, 260, "PureBasic - PopupMenu Example")

  Repeat

    Select WaitWindowEvent()
        
      Case #WM_RBUTTONDOWN
        DisplayPopupMenu(0, WindowID(0))
          
      Case #PB_Event_Menu
      
        Select EventMenu()  ; To see which menu has been selected

          Case 1 ; Cut
            MessageRequester("PureBasic", "Cut", 0)

          Case 2 ; Copy
            MessageRequester("PureBasic", "Copy", 0)

          Case 3 ; Paste
            MessageRequester("PureBasic", "Paste", 0)

          Case 6 ; Quit
            Quit = 1

        EndSelect
        
      Case #PB_Event_CloseWindow
        Quit = 1

    EndSelect

  Until Quit = 1

EndIf

End

Thanks for your answer

Fluid Byte · Post by **Fluid Byte** » Wed Jan 23, 2008 8:50 pm

Code: Select all

Procedure WindowCallback(hWnd,uMsg,wParam,lParam)
    Select uMsg
        Case #WM_ENTERIDLE
		GetCursorPos_(cpt.POINT)
		
		If WindowFromPoint_(cpt\x,cpt\y) = hwnd
			EndMenu_()
		EndIf
    EndSelect
     
    ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

CreatePopupMenu(0)

MenuItem(1,"Cut")
MenuItem(2,"Copy")
MenuItem(3,"Paste")
MenuBar()
OpenSubMenu("Options")
	MenuItem(4,"Window...")
	MenuItem(5,"Gadget...")
CloseSubMenu()
MenuBar()
MenuItem(6,"Quit")

OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

SetWindowCallback(@WindowCallback())

Repeat
	EventID = WaitWindowEvent()
	
	If EventID = #WM_RBUTTONDOWN
		DisplayPopupMenu(0,WindowID(0))
	EndIf
Until EventID = #PB_Event_CloseWindow

Kwai chang caine · Post by **Kwai chang caine** » Wed Jan 23, 2008 9:47 pm

Thanks a lot FLUID
It's exactly what i wanted

Your are an angel

I wish you a very good night
Thanks again

Trond · Post by **Trond** » Wed Jan 23, 2008 9:59 pm

Now move the window all down to the bottom of the screen, and try to open the popup menu by right-clicking in the bottom of the window...

Fluid Byte · Post by **Fluid Byte** » Wed Jan 23, 2008 10:07 pm

Maybe you mean that the menu doesn't show up but that is perfectly normal. For space reasons Windows places the menu above the location you clicked. This means the mouse is right out of the menu window and thus it will be closed. You could either relocate the mouse or the menu but this is both pointless IMHO.

Trond · Post by **Trond** » Wed Jan 23, 2008 10:09 pm

I know it's normal that menu gets shown the other way, but I guess you don't want that kind of missing menu in an application.

Fluid Byte · Post by **Fluid Byte** » Wed Jan 23, 2008 10:10 pm

So what you suggest then?

Trond · Post by **Trond** » Wed Jan 23, 2008 10:15 pm

Don't close the menu when the mouse is outside it. Personally I always move my mouse outside the menu so I can read all the items without the cursor in the way. It would be a nuisance if the menu closed all the time.

Fluid Byte · Post by **Fluid Byte** » Wed Jan 23, 2008 10:17 pm

LMAO Trond! Your personal habbits are not really the issue here, you know?

Personally I agree with you but that's the way Kwaï wanted it.

Trond · Post by **Trond** » Wed Jan 23, 2008 10:56 pm

Yes, I know most people can read through the cursor so it's not a problem for them, but I mentioned it just in case anyway.

Kwai chang caine · Post by **Kwai chang caine** » Thu Jan 24, 2008 12:00 am

I have a good reason for wanted this option.
My application have the popmenu over a listviewgadget, what do an action for only one clic.
When i right clic for appears the popmenu, and i dont left clic, he stay over my listview and that disturb me

The first reflex is to left clic anywhere for do disappears the popmenu and this action create an event not wanted by the user

I'm special, i know, i want always five-legged sheep

I'm knowed for this, in the french forum

Thanks at you two for your precious help.
It's again christmas, two mega programmer just for me, over my cradle of baby programmer

PB · Post by PB » Thu Jan 24, 2008 10:55 am

> I always move my mouse outside the menu so I can read all the items

I agree with Trond here. The first thing I do when typing or opening a menu
is flick my mouse away so the cursor gets the hell out of the way.

Trond · Post by **Trond** » Thu Jan 24, 2008 11:19 am

You should fix the listview so that clicking to close a popup menu doesn't count as a click.

superadnim · Post by **superadnim** » Thu Jan 24, 2008 2:58 pm

You know, you can tell Windows to hide the cursor when typing

That's how I have it setup but I still have a slight reflex to go grab the mouse and push it...

Kwai chang caine · Post by **Kwai chang caine** » Thu Jan 24, 2008 3:02 pm

You should fix the listview so that clicking to close a popup menu doesn't count as a click.

It's a good idea

Thats why you are a "big boss" of the programmation, obviously

My empire for 10% of your knowledge

I have installed the good code of FLUID now, and i have happy to the
effect.

But for the next time, i use this great idea.

Thanks at all, for your precious help.

I am proud to tell you every day.

You can not imagine what purebasic and all of you, gave me in life.

I could never thank you enough