PureBasic Forums - English

Code: Select all

Procedure OnCanvasClick()
  Protected mx, my
  mx = GetGadgetAttribute(0, #PB_Canvas_MouseX)
  my = GetGadgetAttribute(0, #PB_Canvas_MouseY)
  If GetGadgetAttribute(0, #PB_Canvas_Modifiers) & #PB_Canvas_Control
    If StartDrawing(CanvasOutput(0))
      Circle(mx, my, 2, RGB(0, 0, 255))
      StopDrawing()
    EndIf
  EndIf
EndProcedure
OpenWindow(0, 0, 0, 320, 240, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 320, 240)
BindGadgetEvent(0, @OnCanvasClick(), #PB_EventType_LeftClick)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(0, 0, 0, 500, 350, "Keyboard/Mouse Combination", wFlags)
  CanvasGadget(1, 0, 50, 500, 300, #PB_Canvas_Keyboard)
  TextGadget(0, 0, 10, 500, 30, "", #PB_Text_Center)
  Repeat
    event = WaitWindowEvent()
    Select event
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Select EventType()
              Case #PB_EventType_LeftButtonDown, #PB_EventType_RightButtonDown
                mouseKeyCombination.s = ""
                If GetGadgetAttribute(1, #PB_Canvas_Modifiers) & #PB_Canvas_Control
                  mouseKeyCombination + "ctrl + "
                EndIf       
                If GetGadgetAttribute(1, #PB_Canvas_Modifiers) & #PB_Canvas_Alt
                  mouseKeyCombination + "alt + " 
                EndIf    
                If GetGadgetAttribute(1, #PB_Canvas_Modifiers) & #PB_Canvas_Shift
                  mouseKeyCombination + "shift + "
                EndIf                
                If EventType() = #PB_EventType_LeftButtonDown
                  mouseKeyCombination + "left click..."
                Else
                  mouseKeyCombination + "right click..."
                EndIf                
                SetGadgetText(0, mouseKeyCombination)
            EndSelect
        EndSelect
    EndSelect
  Until event = #PB_Event_CloseWindow
EndIf

Code: Select all

hideStringGadgetContextMenu = #True

Procedure gadgetProc(hWnd, uMsg, wParam, lParam)
  Shared origProc, hideStringGadgetContextMenu
  
  mouseKeyCombination.s = ""  
  If wParam & #MK_CONTROL
    mouseKeyCombination + "ctrl + "
  EndIf       
  If wParam & #MK_SHIFT  
    mouseKeyCombination + "shift + "
  EndIf 
  If GetAsyncKeyState_(#VK_MENU) & $8000
    mouseKeyCombination + "alt + " 
  EndIf    
  
  Select uMsg
    Case #WM_LBUTTONDOWN
      mouseKeyCombination + "left down..."
      SetGadgetText(0, mouseKeyCombination)
    Case #WM_RBUTTONDOWN
      mouseKeyCombination + "right down..."   
      SetGadgetText(0, mouseKeyCombination)
      If hideStringGadgetContextMenu
        uMsg = 0
      EndIf      
  EndSelect  
  
  ProcedureReturn CallWindowProc_(origProc, hWnd, uMsg, wParam, lParam)
EndProcedure

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered 
OpenWindow(0, 0, 0, 600, 200, "Keyboard/Mouse Combination (Win32 API)", wFlags)
StringGadget(0, 10, 10, 580, 30, "") 
origProc = SetWindowLongPtr_(GadgetID(0), #GWL_WNDPROC, @gadgetProc())
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend