habe folgendes kleines Testprogramm für das Canvasgadget geschrieben:
Code: Alles auswählen
EnableExplicit
Define event
Enumeration
#Window_0
EndEnumeration
Enumeration
#Canvas_0
EndEnumeration
OpenWindow(#Window_0, 0, 0, 500, 500, "Maus-Test im CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(#Canvas_0, 50, 50, 400, 400, #PB_Canvas_Border | #PB_Canvas_ClipMouse)
Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget And EventGadget() = #Canvas_0
Select EventType()
Case #PB_EventType_MouseEnter
Debug "Der Maus-Cursor betrat das Gadget"
Case #PB_EventType_MouseLeave
Debug "Der Maus-Cursor verließ das Gadget"
; Case #PB_EventType_MouseMove
; Debug "Der Maus-Cursor bewegte sich"
Case #PB_EventType_MouseWheel
Debug "Das Maus-Rad wurde bewegt - scheint nicht zu funktionieren"
Debug GetGadgetAttribute(#Canvas_0, #PB_Canvas_WheelDelta)
; Case #PB_EventType_LeftButtonDown
; Debug "Der linke Maus-Knopf wurde gedrückt"
; Case #PB_EventType_LeftButtonUp
; Debug "Der linke Maus-Knopf wurde los gelassen"
Case #PB_EventType_LeftClick
Debug "Ein Klick mit der linken Maus-Taste"
Debug "x = " + Str(GetGadgetAttribute(#Canvas_0, #PB_Canvas_MouseX))
Debug "y = " + Str(GetGadgetAttribute(#Canvas_0, #PB_Canvas_MouseY))
; Case #PB_EventType_LeftDoubleClick
; Debug "Ein Doppelklick mit der linken Maus-Taste"
; Case #PB_EventType_RightButtonDown
; Debug "Der rechte Maus-Knopf wurde gedrückt"
; Case #PB_EventType_RightButtonUp
; Debug "Der rechte Maus-Knopf wurde los gelassen"
Case #PB_EventType_RightClick
Debug "Ein Klick mit der rechten Maus-Taste"
; Case #PB_EventType_RightDoubleClick
; Debug "Ein Doppelklick mit der rechten Maus-Taste"
; Case #PB_EventType_MiddleButtonDown
; Debug "Der mittlere Maus-Knopf wurde gedrückt"
; Case #PB_EventType_MiddleButtonUp
; Debug "Der mittlere Maus-Knopf wurde los gelassen"
EndSelect
EndIf
Until event = #PB_Event_CloseWindow
End
Wer weiß etwas? Ist das ein Bug?
