PureBasic Forums - English

Code: Select all

ImportC "/System/Library/Frameworks/Carbon.framework/Carbon"
   NewControlActionUPP.l(*userRoutine)
   SetControlAction(theControl.l, actionProc.l)
   CreateScrollBarControl(window.l, *boundsRect, value.l, minimum.l, maximum.l, viewSize.l, liveTracking.b, liveTrackingProc.l, *outControl)
   ShowControl(theControl.l)
EndImport

Structure Rect
   top.w
   left.w
   bottom.w
   right.w
EndStructure

OpenWindow(0, 100, 100, 500, 200, "Test")

TrackBarGadget(0, 10, 10, 200, 20, 0, 10)
TextGadget(1, 230, 10, 200, 20, "'normal' slider")

TrackBarGadget(2, 10, 50, 200, 20, 0, 10)
TextGadget(3, 230, 50, 200, 20, "'live' slider")

ScrollBarGadget(4, 10, 90, 200, 20, 0, 10, 1)
TextGadget(5, 230, 90, 200, 20, "'normal' scrollbar")

ScrollBarGadget(6, 10, 130, 200, 20, 0, 10, 1)
TextGadget(7, 230, 130, 200, 20, "'live' scrollbar (does not work)")

Rect.Rect : Rect\left = 10 : Rect\top = 170 : Rect\right = 210 : Rect\bottom = 190
CreateScrollBarControl(WindowID(0), @Rect, 0, 0, 10, 1, #True, #Null, @APIScrollBar)
ShowControl(APIScrollBar)
TextGadget(8, 230, 170, 200, 20, "API created 'live' scrollbar")

ProcedureCDLL LiveTrackingProc()
EndProcedure

ControlActionUPP = NewControlActionUPP(@LiveTrackingProc())
SetControlAction(GadgetID(2), ControlActionUPP)
SetControlAction(GadgetID(6), ControlActionUPP)
SetControlAction(APIScrollBar, ControlActionUPP)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

Procedure Trackbar0Callback()
  Debug GetGadgetState(0)
EndProcedure

OpenWindow(0, 0, 0, 320, 200, "TrackBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TrackBarGadget(0, 10,  40, 250, 20, 0, 10000)
SetGadgetState(0, 5000)

BindEvent(#PB_Event_Gadget, @Trackbar0Callback(), 0, 0)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow