PureBoard

Code: Alles auswählen

If OpenWindow(0, 0, 0, 305, 140, "ScrollBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))    
    ScrollBarGadget  (1, 270, 10,  25, 120 ,0, 300, 50, #PB_ScrollBar_Vertical)
    SetGadgetState   (1, 100)   ; wir setzen den zweiten Schiebebalken (ID = 1) auf 100 von 300
    SetGadgetAttribute(1, 50, #PB_ScrollBar_Maximum)
    SetGadgetAttribute(1, 20, #PB_ScrollBar_PageLength)   
    TextGadget(2, 0, 0, 200, 20, "Max: " + Str(GetGadgetAttribute(1, #PB_ScrollBar_Maximum)) + " Length" + Str(GetGadgetAttribute(1, #PB_ScrollBar_PageLength)))    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf