Disable right click menu in the webgadget

utopiomania · Post by **utopiomania** » Mon Dec 17, 2012 8:15 pm

This seems to be the only way to disable the webgadget context menu if you have installed Google Chrome:

  html + "<script language = 'vbscript'>" + #CR$
  
  html + "sub document_onContextmenu()" + #CR$
  html + "  Window.event.returnValue = false" + #CR$
  html + "end sub" + #CR$

  html + "</script>" + #CR$

The old one:

Code: Select all

html + "<body oncontextmenu = 'return false;'>" + #CR$

doesn't work any more

code goes in the head section.

Edit: I use the webgadget as the main UI for my apps, so disabling the context menu, or creating them myself is
a necessity

kvitaliy · Post by **kvitaliy** » Tue Dec 18, 2012 6:37 am

And this code does not work?

Code: Select all

 SetGadgetAttribute(#Web_0,#PB_Web_BlockPopupMenu,1)

utopiomania · Post by **utopiomania** » Tue Dec 18, 2012 7:52 pm

Code: Select all

SetGadgetAttribute(#Web_0,#PB_Web_BlockPopupMenu,1)

Can I use this to create my own right click menu? And forgot to mention that I also write hta's.

kvitaliy · Post by **kvitaliy** » Wed Dec 19, 2012 5:47 am

utopiomania wrote:
Code: Select all
SetGadgetAttribute(#Web_0,#PB_Web_BlockPopupMenu,1)
Can I use this to create my own right click menu?

Yes, of course

Code: Select all

OpenWindow(0, 632, 42, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    WebGadget(0, 30, 40, 350, 250, "http://www.purebasic.com")
    SetGadgetAttribute(0,#PB_Web_BlockPopupMenu,1)
    If CreatePopupMenu(0)      
      MenuItem(1, "Open")      
      MenuItem(2, "Save")      
     EndIf
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Menu       
          Select EventMenu()     
            Case 1 : Debug "Menu: Open"
            Case 2 : Debug "Menu: Save"
          EndSelect   
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = 0
        If EventType = 7
          DisplayPopupMenu(0, WindowID(0))  
        EndIf 
      EndIf
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = 0
        CloseWindow(0)
        Break
      EndIf
  EndSelect
ForEver

utopiomania · Post by **utopiomania** » Wed Dec 19, 2012 9:42 pm

Like! Cool, didn't know that! Many Thanks!

utopiomania · Post by **utopiomania** » Thu Dec 20, 2012 10:37 pm

Probably need to script the popup menu though, since it needs to change With the items in the UI

citystate · Post by **citystate** » Thu Dec 20, 2012 11:04 pm

you could always pre-create different popup lists and just display the one you need using the menu number

PureBasic Forums - English

Disable right click menu in the webgadget

Disable right click menu in the webgadget

Re: Disable right click menu in the webgadget

Re: Disable right click menu in the webgadget

Re: Disable right click menu in the webgadget

Re: Disable right click menu in the webgadget

Re: Disable right click menu in the webgadget

Re: Disable right click menu in the webgadget