OpenWindow Scrollbake vertikale

[marcelx]

Hallo,

ich möchte ein Fenster erzeugen scrollbar vertikal.
So sieht mein code aus:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 500, 300, "Titel", #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_SizeGadget)
  EditorGadget(1, 20, 40, 200, 100)
  EditorGadget(2, 20, 240, 200, 100)
  
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

Ich habe in den Forum gesucht und #WS_VSCROLL gefunden. Damit ist die Scrollbalke sichtbar und hat keine Funktion.

Für eure Hilfe und Unterstützung wäre ich dankbar.

[RSBasic]

Code: Alles auswählen

ScrollAreaGadget()

\\Edit:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 500, 300, "Titel", #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_SizeGadget)
  If ScrollAreaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), WindowWidth(0)-25, 500, 10, 0)
    EditorGadget(1, 20, 40, 200, 100)
    EditorGadget(2, 20, 240, 200, 100)
    
    CloseGadgetList()
  EndIf
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

[marcelx]

Wunderbar, danke
Das war eine schnelle Antwort

[marcelx]

Wenn ich mein Fenster kleiner mache (mit der Mouse die untere Ecke ziehen) dann sind die Balken nicht mehr sichtbar.
Also mit ScrollAreaGadget() geht es nicht.
Gibt es ein Möglichkeit das Fenster (mit OpenWindow) so zu setzen, dass ein Scrollbar vorhanden ist?

[RSBasic]

Code: Alles auswählen

If OpenWindow(0, 0, 0, 500, 300, "Titel", #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_SizeGadget)
  If ScrollAreaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), WindowWidth(0)-25, 500, 10, 0)
    EditorGadget(1, 20, 40, 200, 100)
    EditorGadget(2, 20, 240, 200, 100)
   
    CloseGadgetList()
  EndIf
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_SizeWindow
      ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(0), WindowHeight(0))
      ;SetGadgetAttribute(0, #PB_ScrollArea_InnerWidth, WindowWidth(0)-25) ;(falls du das haben möchtest)
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

[ts-soft]

Wenn ich mein Fenster kleiner mache (mit der Mouse die untere Ecke ziehen) dann sind die Balken nicht mehr sichtbar.
Also mit ScrollAreaGadget() geht es nicht.

Wie wäre es, das ScrollbarGadget zu resizen.
Das ist eigentlich das normale Vorgehen bei Fenstern, die in der Größe veränderbar sind

/edit
RSBasic war schneller

[marcelx]

Danke.
Es ist mir jetzt klar wie es funktioniert.
Jetzt kann ich an mein code weiter schreiben