PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 400, 300, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
	CanvasGadget(0, 10, 10, 380, 135, #PB_Canvas_Keyboard)
	ImageGadget(1, 10, 155, 380, 135, 0)
	
	StartDrawing(CanvasOutput(0))
	Box(0, 0, GadgetWidth(0), GadgetHeight(0), 0)
	StopDrawing()
	
Else
	End
EndIf


Repeat
	event = WaitWindowEvent()
	
	If event = #PB_Event_Gadget
		Select EventGadget()
			Case 0
				Select EventType()
					Case #PB_EventType_MouseEnter
						Mouse_button_had_been_down = #False
						
					Case #PB_EventType_LeftButtonDown
						Mouse_button_had_been_down = #True
						
					Case #PB_EventType_LeftButtonUp
						If Mouse_button_had_been_down
							Mouse_button_had_been_down = #False
							
							If ElapsedMilliseconds() - Mouse_button_double_click_time < 200 ; <----- HERE ajust the Double click time
								;{ DOUBLE CLICK
								
								Debug "CANVASGADGET : double click"
								; for a double click you just add a counter !
								
								;}
								
							EndIf
							Mouse_button_double_click_time = ElapsedMilliseconds()
							
							;{ CLICK
							
							Debug "CANVASGADGET : click"
							
								; here you it's has if the user had clicked !!
								; you can even specifie a timeout for the click, and other parameters.
							
							;}
							
						EndIf
						
						
						
				EndSelect
				
				
			Case 1
				Select EventType()
					Case #PB_EventType_LeftClick
						Debug "IMAGEGADGET : click"
					Case #PB_EventType_LeftDoubleClick
						Debug "IMAGEGADGET : Double click"
						
				EndSelect
				
				
		EndSelect
	EndIf
	
Until event = #PB_Event_CloseWindow

End