ScrollareaGadget -Kein #WM_HSCROLL, #WM_VSCROLL ?
Verfasst: 24.10.2004 13:09
Hallo!
Ich würde gerne die Scrollpositionen eines ScrollareaGadgets abfragen, aber es sendet kein #WM_HSCROLL 'WM_VSCROLL. Jedenfalls bei mir nicht. Mach ich etwas falsch, oder gibt es eine andere Methode?
Ich würde gerne die Scrollpositionen eines ScrollareaGadgets abfragen, aber es sendet kein #WM_HSCROLL 'WM_VSCROLL. Jedenfalls bei mir nicht. Mach ich etwas falsch, oder gibt es eine andere Methode?
Code: Alles auswählen
; PureBasic Visual Designer v3.90 build 1360
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#ScrollArea_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 30, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "New window ( 0 )")
If CreateGadgetList(WindowID())
;-
ScrollAreaGadget(#ScrollArea_0, 20, 20, 540, 260, 1080, 520, 10)
CloseGadgetList()
EndIf
EndIf
EndProcedure
Open_Window_0()
Procedure WindowCallBack(WindowID, Message, wParam, lParam)
Result = #PB_ProcessPureBasicEvents
If Message =#WM_HSCROLL
Debug 1
EndIf
ProcedureReturn Result
EndProcedure
SetWindowCallback(@WindowCallBack())
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
;Debug "WindowID: " + Str(EventWindowID())
GadgetID = EventGadgetID()
If GadgetID = #ScrollArea_0
Debug "GadgetID: #ScrollArea_0"
EndIf
EndIf
Until Event = #PB_EventCloseWindow
End
;