PureBasic Forums - English

Code: Select all

Procedure EventHandler()
    Select Event()
      Case #PB_Event_CloseWindow
        End 
      Case #PB_Event_Gadget
        Debug "Gadget #" + EventGadget() + " pushed"
    EndSelect        
    Select EventType()
      Case #PB_EventType_MouseWheel
        MessageRequester("", "MouseWheel")
    EndSelect 
  EndProcedure 
  
  OpenWindow(0, 100, 100, 300, 100, "", #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_MaximizeGadget)
  ButtonGadget(0, 10, 10, 100, 30, "Push me") 
  BindGadgetEvent(0, @EventHandler())
  BindEvent(#PB_Event_CloseWindow, @EventHandler()) 
  Repeat
    WaitWindowEvent()
  ForEver

Code: Select all

If OpenWindow(0, 0, 0, 220, 220, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    CanvasGadget(0, 10, 10, 200, 200)   
    Repeat
      Event = WaitWindowEvent()         
      If Event = #PB_Event_Gadget And EventGadget() = 0 
          If EventType() = #PB_EventType_MouseWheel 
           If StartDrawing(CanvasOutput(0))
            x = GetGadgetAttribute(0, #PB_Canvas_MouseX)
            y = GetGadgetAttribute(0, #PB_Canvas_MouseY)
            Circle(x, y, 10, RGB(Random(255), Random(255), Random(255)))
            StopDrawing()
          EndIf
          EndIf
      EndIf        
    Until Event = #PB_Event_CloseWindow
  EndIf