Right-Click on PanelGadget tabs

Tenaja · **Joined:** Tue Nov 09, 2010 10:15 pm **Posts:** 794

Is there an easy way to catch a right-click on a panelgadget tab to change the tab?

On the PB IDE, if you right-click on a tab that is not active, it gets focus before bringing up the popup menu.

With standard, simple message processing, if you right-click on a tab, nothing happens. You don't even get a panelgadget event. So, is the way to do that to capture the right-clicks, calculate the mouse tab it is over based on the text size and number of characters in the tab text, set focus on the tab, then display the popup?

This just seems extremely laborious, and I'm trying to figure out if there is a simpler way. Thanks a lot!

RASHAD · **Joined:** Sun Apr 12, 2009 6:27 am **Posts:** 1473

Code:

 Procedure LeftClick ()
  In.INPUT
  In\type        = #INPUT_MOUSE
  In\mi\dwFlags  = #MOUSEEVENTF_LEFTDOWN
  SendInput_(1,@In,SizeOf(INPUT))
  In\mi\dwFlags  = #MOUSEEVENTF_LEFTUP
  SendInput_(1,@In,SizeOf(INPUT))
EndProcedure

  If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    PanelGadget     (0, 8, 8, 306, 203)
      AddGadgetItem (0, -1, "Panel 1")
        PanelGadget (1, 5, 5, 290, 166)
          AddGadgetItem(1, -1, "Sub-Panel 1")
          AddGadgetItem(1, -1, "Sub-Panel 2")
          AddGadgetItem(1, -1, "Sub-Panel 3")
        CloseGadgetList()
      AddGadgetItem (0, -1,"Panel 2")
        ButtonGadget(2, 10, 15, 80, 24,"Button 1")
        ButtonGadget(3, 95, 15, 80, 24,"Button 2")
    CloseGadgetList()
Repeat
  Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
            Quit = 1            

      Case #WM_RBUTTONDOWN
            LeftClick ()
            Debug "Right Button Clicked"
             
  EndSelect 
  Until Quit = 1
  EndIf

Detect Right Click on Tabs

Code:

 Procedure LeftClick ()
  In.INPUT
  In\type        = #INPUT_MOUSE
  In\mi\dwFlags  = #MOUSEEVENTF_LEFTDOWN
  SendInput_(1,@In,SizeOf(INPUT))
  In\mi\dwFlags  = #MOUSEEVENTF_LEFTUP
  SendInput_(1,@In,SizeOf(INPUT))
EndProcedure

  If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    PanelGadget     (0, 8, 8, 306, 203)
      AddGadgetItem (0, -1, "Panel 1")
        PanelGadget (1, 5, 5, 290, 166)
          AddGadgetItem(1, -1, "Sub-Panel 1")
          AddGadgetItem(1, -1, "Sub-Panel 2")
          AddGadgetItem(1, -1, "Sub-Panel 3")
        CloseGadgetList()
      AddGadgetItem (0, -1,"Panel 2")
        ButtonGadget(2, 10, 15, 80, 24,"Button 1")
        ButtonGadget(3, 95, 15, 80, 24,"Button 2")
    CloseGadgetList()
Repeat
  Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
            Quit = 1            
           
      Case #WM_RBUTTONDOWN
               State_0 = GetGadgetState(0)
               State_1 = GetGadgetState(1)
               LeftClick ()
               
      Case #WM_RBUTTONUP
              If (GetGadgetState(0) <> State_0) Or (GetGadgetState(1) <> State_1)
                  Debug "Right Button Clicked"
              EndIf
;              
  EndSelect 
  Until Quit = 1
  EndIf

Tenaja · **Joined:** Tue Nov 09, 2010 10:15 pm **Posts:** 794

Rashad,
Thank you for the code. I had to rename IN.INPUT to avoid choking the assembler.

Is there a cross-platform solution? I would like this to work with Linux & Mac, too.

Thanks again!

PureBasic Forum

Right-Click on PanelGadget tabs

Who is online