Code: Alles auswählen
If Event = #PB_Event_Gadget And EventGadget() = CanvasID
Select EventType()
Case #PB_EventType_MouseWheel
MouseWheel=#PB_Canvas_WheelDelta
StatusBarText(0,1,"Wheel "+Str(MouseWheel))
Code: Alles auswählen
If Event = #PB_Event_Gadget And EventGadget() = CanvasID
Select EventType()
Case #PB_EventType_MouseWheel
MouseWheel=#PB_Canvas_WheelDelta
StatusBarText(0,1,"Wheel "+Str(MouseWheel))
Code: Alles auswählen
Procedure _MouseWheelHandler()
Define.i GNum = EventGadget()
Define.i Delta
Delta = GetGadgetAttribute(GNum, #PB_Canvas_WheelDelta)
If MarkDown()\VScroll\Hide = #False
SetThumbPosY_(MarkDown()\VScroll\Pos - Delta)
Draw_(#Vertical)
EndIf
EndIf
EndProcedure
Code: Alles auswählen
MouseWheel=#PB_Canvas_WheelDelta