Get canvas mouse position?

[Joubarbe]

Code: Select all

OpenWindow(0, 0, 0, 500, 500, "", #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 500, 500)

SetActiveGadget(0)

Procedure DisplayMouseX()
  Debug GetGadgetAttribute(0, #PB_Canvas_MouseX)
;   Debug WindowMouseX(0) ; Works fine.
EndProcedure

BindEvent(#PB_Event_Timer, @DisplayMouseX())
BindEvent(#PB_Event_Menu, @DisplayMouseX())
AddWindowTimer(0, 0, 1000)

AddKeyboardShortcut(0, #PB_Shortcut_Space, 0)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Hmm?

[SPH]

Only a lot of "0"

[pjay]

The MouseX / MouseY attributes should be funneled through the MouseMove event:

Code: Select all

OpenWindow(0, 0, 0, 500, 500, "", #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 500, 500)

SetActiveGadget(0)

Procedure DisplayMouseX()
  Debug GetGadgetAttribute(0, #PB_Canvas_MouseX)
EndProcedure

BindEvent(#PB_Event_Gadget, @DisplayMouseX(), 0, 0, #PB_EventType_MouseMove)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

[RASHAD]

Hi
Maybe 3 or more ways to get the canvas gadget mouse positions
But you lost your way

Code: Select all

OpenWindow(0, 0, 0, 500, 500, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 500, 500)

SetActiveGadget(0)

Procedure DisplayMouseX()
  Debug GetGadgetAttribute(0,#PB_Canvas_MouseX)
  ;Debug WindowMouseX(0) ; Works fine.
EndProcedure

;AddWindowTimer(0, 0, 10)

;BindEvent(#PB_Event_Timer, @DisplayMouseX())
BindEvent(#PB_Event_Gadget, @DisplayMouseX())

AddKeyboardShortcut(0, #PB_Shortcut_Space, 0)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1
      
;     Case #PB_Event_Gadget
;       Select EventGadget()
;         Case 0
;           Select EventType()
;             Case #PB_EventType_MouseMove
;               x =  GetGadgetAttribute(0,#PB_Canvas_MouseX)
;               y =  GetGadgetAttribute(0,#PB_Canvas_MouseY)
;               Debug x
;               Debug y
;           EndSelect
;       EndSelect
  EndSelect
Until Quit = 1

[Axolotl]

.....
Hmm?

Well, just one F1 on

Code: Select all

CanvasGadget(0, 0, 0, 500, 500)

and a little down scrolling will show you a working example.
Online CanvasGadget Documentation

[Joubarbe]

Okay, sorry then!

My example was quite bad, I was trying to reproduce a situation in my main project where, sometimes, I couldn't get the mouse position. Although I realise now that it only works through the gadget event, and what I was trying to do is to get it when another event was triggered (returned 0).