Treeview + ScrollBar

Für allgemeine Fragen zur Programmierung mit PureBasic.
lite
Beiträge: 122
Registriert: 27.08.2012 21:08

Treeview + ScrollBar

Beitrag von lite »

Hallo

Wie kann ich per Befehl Scrollbar und Treeview wieder auf Pos auf 0 Stellen ?
Der Beispielcode stellt nur die Laufleiste auf Position 0.
Möchte das das Treeview auch auf Position 0 zurück gestellt wird, nachdem der User nach unten gescrollt hat.
Gibt es dafür eine Api ?

Code: Alles auswählen

Define a

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TreeGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, 0)
  For a=1 To 100
    AddGadgetItem(1, -1, "Item " + Str(a), 0, 0)
  Next
  ButtonGadget(2, WindowWidth(0)-160, WindowHeight(0)-30, 150, 20, "Scrollposition auf 0", 0)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 2
                       
            SetScrollPos_(GadgetID(1), #SB_VERT,0,1)
       EndSelect
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

Grüße

Lite
ccode_new
Beiträge: 1214
Registriert: 27.11.2016 18:13
Wohnort: Erzgebirge

Re: Treeview + ScrollBar

Beitrag von ccode_new »

Hallo lite,

das hier sollte funktionieren:

Code-Ausschnitt!

Code: Alles auswählen

Case 2
            SetGadgetState(1, 0) ;Sollte funktionieren!
            SetScrollPos_(GadgetID(1), #SB_VERT,0,1)
            SetGadgetState(1, -1)
Betriebssysteme: div. Windows, Linux, Unix - Systeme

no Keyboard, press any key
no mouse, you need a cat
lite
Beiträge: 122
Registriert: 27.08.2012 21:08

Re: Treeview + ScrollBar

Beitrag von lite »

Vielen Dank, genau das wars. :D :)

Lite
Antworten