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?