Anyone have any idea? I'm an API idiot....
Code: Select all
Global window0,btn0,btn1,button_test
Procedure ButtonCallback(hWnd, Message, wParam, lParam)
Select message
Case #WM_PARENTNOTIFY
If GetAsyncKeyState_(#VK_RBUTTON)
Select ChildWindowFromPoint_(WindowID(window0),WindowMouseX(window0),WindowMouseY(window0))
Case GadgetID(btn0)
Debug "Right button down on button 0"
Case GadgetID(btn1)
Debug "Right button down on button 1"
EndSelect
EndIf
Case #WM_CONTEXTMENU
Select ChildWindowFromPoint_(WindowID(window0),WindowMouseX(window0),WindowMouseY(window0))
Case GadgetID(btn0)
Debug "Right button up on button 0"
Case GadgetID(btn1)
Debug "Right button up on button 1"
EndSelect
EndSelect
Result = #PB_ProcessPureBasicEvents
ProcedureReturn Result
EndProcedure
window0=OpenWindow(#PB_Any,0,0,400,300,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(window0))
PanelGadget(Panel_main, 0, 0, 490, 390)
AddGadgetItem(Panel_main, 1, "panel1")
btn0=ButtonGadget(#PB_Any,120,80,160,46," Button 0")
btn1=ButtonGadget(#PB_Any,120,140,160,46," Button 1")
AddGadgetItem(Panel_main, 2, "panel2")
SetWindowCallback(@ButtonCallback())
Repeat
ev=WaitWindowEvent()
If ev=#PB_Event_Gadget
; Do something useful
EndIf
Until ev=#PB_Event_CloseWindow
End