Seite 1 von 1

Unterer Scrollbalken weg, sobald ein Menü da ist

Verfasst: 08.10.2018 19:11
von Syntacks_Error
Nicht wundern, ich programmiere zwar schon eine Weile, aber nur Sachen, die auch etwas tun und nicht nur aussehen .. also nix mit GUI.

Jetzt aber muss es sein, so mit Scrollbalken. Klappt auch, aber sobald ich ein Menü erstelle, ist unten der Scrollbalken weg. Wie kriege ich ihn wieder?

Code: Alles auswählen

width = 1400
height = 900
window = OpenWindow(#PB_Any, 200,100,width,height,"Window")

;Wenn die drei Zeilen zum Meü deaktiviert sind, ist der untere Scrollbalken da
CreateImageMenu(#PB_Any,WindowID(window))      
MenuTitle("Nichts")                           ;
MenuItem(100,"Wieder nichts    " + Chr(49))   ;

scrollgad = ScrollAreaGadget(#PB_Any,0,0,width,height,width*2,height * 2)

image = CreateImage(#PB_Any,width*2,height*2,24,RGB(50,150,200))
imgad = ImageGadget(#PB_Any,0,0,width,height,ImageID(image))
CloseGadgetList()


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
    close = 1
   EndSelect 
Until close

Re: Unterer Scrollbalken weg, sobald ein Menü da ist

Verfasst: 08.10.2018 19:18
von Bisonte
das hängt damit zusammen, dass das Menu ebenfalls eine Höhe hat, die man bei der Fensterhöhe am Ende mit berücksichtigen muss.

Um die MenuHöhe zu ermitteln gibt es : MenuHeight() in PB.

Diese addierst zu beim erstellen des Fensters direkt mit dazu und schwupps, der Scrollbalken ist wieder da....

Code: Alles auswählen

width = 1400
height = 900
window = OpenWindow(#PB_Any, 200,100,width,height+MenuHeight(),"Window")

;Wenn die drei Zeilen zum Meü deaktiviert sind, ist der untere Scrollbalken da
CreateImageMenu(#PB_Any,WindowID(window))     
MenuTitle("Nichts")                           ;
MenuItem(100,"Wieder nichts    " + Chr(49))   ;

scrollgad = ScrollAreaGadget(#PB_Any,0,0,width,height,width*2,height * 2)

image = CreateImage(#PB_Any,width*2,height*2,24,RGB(50,150,200))
imgad = ImageGadget(#PB_Any,0,0,width,height,ImageID(image))
CloseGadgetList()


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
    close = 1
   EndSelect
Until close

Re: Unterer Scrollbalken weg, sobald ein Menü da ist

Verfasst: 08.10.2018 19:18
von RSBasic
Du musst die Menü-Höhe noch subtrahieren: MenuHeight()

\\Edit:
Zu langsam

Re: Unterer Scrollbalken weg, sobald ein Menü da ist

Verfasst: 08.10.2018 19:32
von Syntacks_Error
Okay, das war ja einfach ;-) Danke. Das sind so Sachen, da kommt man nicht so schnell alleine drauf. Ich hatte versucht, die Menüpixel beim Scrollgadget abzuziehen, es scheint aber egal zu sein, was man da als Größe angiebt ...