Test for pressed key during mouse event

[kpeters58]

is it possible (am only interested in a cross-platform method) to check for a pressed CTRL or SHIFT key during a mouse click event?

[STARGÅTE]

You can use GetGadgetAttribute(#Gadget, #PB_Canvas_Modifiers) for the CanvasGadget:

Code: Select all

Enumeration
	#Window
	#Gadget
EndEnumeration

OpenWindow(#Window, 0, 0, 800, 450, "Vector Canvas Gadget", #PB_Window_MaximizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
CanvasGadget(#Gadget, 0, 0, WindowWidth(#Window), WindowHeight(#Window), #PB_Canvas_Keyboard)

Repeat
	
	Select WaitWindowEvent()
		
		Case #PB_Event_CloseWindow
			Break
		Case #PB_Event_Gadget
			Select EventGadget()
				Case #Gadget
					Select EventType()
						Case #PB_EventType_LeftClick
							If GetGadgetAttribute(#Gadget, #PB_Canvas_Modifiers) & #PB_Canvas_Control
								Debug "Control"
							EndIf
							If GetGadgetAttribute(#Gadget, #PB_Canvas_Modifiers) & #PB_Canvas_Shift
								Debug "Shift"
							EndIf
					EndSelect
			EndSelect
		
	EndSelect
	
ForEver

End

[kpeters58]

Thanks much!