SetTrackBarRange

[glubschi90]

Hi!

Hab' mal eine kleine Funktion gecodet, um die Minimum und Maximumwerte zu ändern.

Code: Alles auswählen

id=OpenWindow(0,0,0,200,80,#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget,"Trackbar")

CreateGadgetList(id)

;-Gadgets
TrackBarGadget(0,10,10,180,25,0,100)
TextGadget(1,10,55,50,15,"0")
ButtonGadget(2,100,50,80,25,"Set! (25,50)")


;-Procedures
Procedure SetTrackbarRange(Gadget,Min,Max) ; Wenn Min bzw. Max -1 ist, wird der entsprechende Wert nicht verändert
  If Min>-1
    SendMessage_(GadgetID(Gadget),#TBM_SETRANGEMIN,#True,Min)
  EndIf
  If Max>-1
    SendMessage_(GadgetID(Gadget),#TBM_SETRANGEMAX,#True,Max)
  EndIf
EndProcedure

Repeat
 event=WaitWindowEvent()
  Select event
    Case #PB_Event_CloseWindow
      quit=1
    Case #PB_EventGadget

      Select EventGadgetID()
        Case 0 ; "Trackbar-Wert" anzeigen
          SetGadgetText(1,Str(GetGadgetState(0)))
        Case 2 ; "Den Minimum-Wert auf 25 und den Maximum-Wert auf 50 setzen
          SetTrackbarRange(0,25,50) 
      EndSelect

  EndSelect
Until quit=1