PureBoard

Code: Alles auswählen

CreateImage(0,580,580)

OpenWindow(0, 0, 0, 600, 600, "ClickTest", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ImageGadget(0,10,10,580,580,ImageID(0))

Repeat
	Select WaitWindowEvent()
		Case #PB_Event_CloseWindow
			Select EventWindow()
				Case 0
					CloseWindow(0)
					End
			EndSelect
		Case #PB_Event_Gadget
			Select EventGadget()
				Case 0
					Select EventType()
						Case #PB_Event_LeftClick
							Debug "Left_Click"
						Case #PB_EventType_RightClick
							Debug "Right_Click"
						Case #PB_EventType_LeftDoubleClick
							Debug "LeftDoubleClick"
						Case #PB_EventType_RightDoubleClick
							Debug "RightDoubleClick"
						Case #PB_EventType_DragStart
							Debug "DragStart"
					EndSelect
					
			EndSelect
			
	EndSelect
ForEver