Dank ts-soft sein Tip

mit subclassing habe ich etwas ähnliches gefunden,
womit man das SpinGadget schon mal mit +/- nachmachen kann, bis
es in der nächsten PB-Version gemacht wird
Code: Alles auswählen
NullP.l=10 ; hier bitte den Eintrag fürs StringGadget machen.
OpenWindow(0,100,100,200,140,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"SpinGadget_Plus_Minus")
CreateGadgetList(WindowID(0))
StringGadget(0,60,50,40,24,Str(NullP), #PB_Text_Center )
ScrollBarGadget(1,100,50,24,24,-100,100,1,#PB_ScrollBar_Vertical)
SetGadgetState(1,NullP*-1)
Repeat
ev=WaitWindowEvent()
If ev=#PB_Event_Gadget And EventGadgetID()=1 Or EventGadgetID()=1 And #PB_Button_Toggle
SetGadgetText(0,Str(GetGadgetState(1)*-1))
EndIf
If ev=#PB_Event_Gadget And EventGadgetID()=0
SetGadgetState(1,Val(GetGadgetText(0))*-1)
EndIf
Until ev=#PB_Event_CloseWindow
[Edit] Jetzt funzt auch das Scrollrad mit der Maus.[/Edit]