Browser maximieren
Verfasst: 27.05.2020 16:28
Hi,
ich mache gerade mal die ersten Gehversuche in SpiderBasic.
Hier mal mein Versuchscode
Die Procedure ResizeWindowEvent() funktioniert ja ganz gut, solange ich das Fenster an einer Kante bzw. Ecke in der Größ verändere. Bei Druck auf das Symbol zum maximieren wird der Event aber nicht ausgeführt. Im Manual habe ich leider kein Event wie "#PB_Event_MaximizeDesktop" gefunden. Das "#PB_Event_SizeDesktop" funktioniert hier leider nicht.
Hat da jemand eine kleine Starthilfe für mich?
ich mache gerade mal die ersten Gehversuche in SpiderBasic.
Hier mal mein Versuchscode
Code: Alles auswählen
; Projektstart: 27.05.2020
;***********************
;{ Änderungsverlauf
;
;
;}
EnableExplicit
;{ Parametervorbereitung
Enumeration
#MainWindow
#ParameterPanel
EndEnumeration
;}
;{ Programminitialisierung und Fensteraufbau
OpenWindow(#MainWindow,#PB_Ignore,#PB_Ignore,#PB_Ignore,#PB_Ignore,"Fenster Titel HIER",#PB_Window_Background)
WindowBounds(#MainWindow,1920,#PB_Ignore,1080,#PB_Ignore) ;Funktioniert nicht im #PB_Window_Background
PanelGadget(#ParameterPanel,5,5,WindowWidth(#MainWindow) - 15 ,WindowHeight(#MainWindow) * 0.3)
AddGadgetItem(#ParameterPanel,-1,"Parameter")
CloseGadgetList()
;}
;{ Window Handling
Procedure CloseWindowEvent()
CloseWindow(EventWindow())
EndProcedure
Procedure ResizeWindowEvent()
ResizeGadget(#ParameterPanel,5,5,WindowWidth(#MainWindow) - 15,WindowHeight(#MainWindow) * 0.3)
EndProcedure
;}
;{ Arbeitsschleife
BindEvent(#PB_Event_CloseWindow,@CloseWindowEvent())
BindEvent(#PB_Event_SizeDesktop,@ResizeWindowEvent())
;}Hat da jemand eine kleine Starthilfe für mich?