Container als Globals
Verfasst: 21.11.2017 12:09
Hallo Leute,
habe gerade meine Container Schaltung auf Globals umgestellt und stehe irgendwie auf der Leitung, die Schalted nicht mehr!
Jemand einen Tip?
Gruss ... Velindos
habe gerade meine Container Schaltung auf Globals umgestellt und stehe irgendwie auf der Leitung, die Schalted nicht mehr!
Code: Alles auswählen
EnableExplicit
;- Const
Enumeration
EndEnumeration
;- Global
Global Main
Global Container_01
Global Container_02
Global Container_03
Global Container_04
Global Container_05
Global Container_06
Global StatusBar
Global Btn_Im_Container_01
Global Btn_Im_Container_02
Global Btn_Im_Container_03
Global Btn_Im_Container_04
Global Btn_Im_Container_05
Global Btn_Im_Container_06
Global Btn_Container_1
Global Btn_Container_2
Global Btn_Container_3
Global Btn_Container_4
Global Btn_Container_5
Global Btn_Container_6
Global FensterTitel$ = "Container Window"
Global flags
Global ContainerZeiger
Global ContainerMode
Global MyWindowFenster_X = 667
Global MyWindowFenster_Y = 732
Global MyButton_X = (MyWindowFenster_X/6) ;111
Global MyButton_Y = 20
;
Procedure ShowContainer(index)
Debug "Index= " + index
; ???????????????????????????????????????????????
For ContainerZeiger = Container_01 To Container_06
HideGadget(ContainerZeiger, #True)
Next
HideGadget(index, #False)
ContainerMode = index
EndProcedure
Procedure Main_Window()
;{ Window
flags = #PB_Window_SystemMenu |#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_Invisible
Main = OpenWindow(#PB_Any,#PB_Ignore,#PB_Ignore,MyWindowFenster_X,MyWindowFenster_Y,FensterTitel$,flags)
; Begrenzung auf die vorgebene Grösse
WindowBounds(Main,MyWindowFenster_X,MyWindowFenster_Y,MyWindowFenster_X,MyWindowFenster_Y)
;}
;{ StatusBar
StatusBar = CreateStatusBar(#PB_Any, WindowID(Main))
; StatusBar 0
AddStatusBarField(MyWindowFenster_X)
;}
;{ [01] Container
Container_01 = ContainerGadget(#PB_Any,0,0,MyWindowFenster_X,MyWindowFenster_Y-StatusBarHeight(StatusBar)-(MyButton_Y*2))
Btn_Im_Container_01 = ButtonGadget(#PB_Any,(MyButton_X*0),(MyButton_Y*3), MyButton_X, MyButton_Y, "Container_01")
CloseGadgetList()
;}
;{ [02] Container
Container_02 = ContainerGadget(#PB_Any,0,0,MyWindowFenster_X,MyWindowFenster_Y-StatusBarHeight(StatusBar)-(MyButton_Y*2))
Btn_Im_Container_02 = ButtonGadget(#PB_Any,(MyButton_X*1),(MyButton_Y*3), MyButton_X, MyButton_Y, "Container_02")
CloseGadgetList()
;}
;{ [03] Container
Container_03 = ContainerGadget(#PB_Any,0,0,MyWindowFenster_X,MyWindowFenster_Y-StatusBarHeight(StatusBar)-(MyButton_Y*2))
Btn_Im_Container_03 = ButtonGadget(#PB_Any,(MyButton_X*2),(MyButton_Y*3), MyButton_X, MyButton_Y, "Container_03")
CloseGadgetList()
;}
;{ [04] Container
Container_04 = ContainerGadget(#PB_Any,0,0,MyWindowFenster_X,MyWindowFenster_Y-StatusBarHeight(StatusBar)-(MyButton_Y*2))
Btn_Im_Container_04 = ButtonGadget(#PB_Any,(MyButton_X*3),(MyButton_Y*3), MyButton_X, MyButton_Y, "Container_04")
CloseGadgetList()
;}
;{ [05] Container
Container_05 = ContainerGadget(#PB_Any,0,0,MyWindowFenster_X,MyWindowFenster_Y-StatusBarHeight(StatusBar)-(MyButton_Y*2))
Btn_Im_Container_05 = ButtonGadget(#PB_Any,(MyButton_X*4),(MyButton_Y*3), MyButton_X, MyButton_Y, "Container_05")
CloseGadgetList()
;}
;{ [06] Container
Container_06 = ContainerGadget(#PB_Any,0,0,MyWindowFenster_X,MyWindowFenster_Y-StatusBarHeight(StatusBar)-(MyButton_Y*2))
Btn_Im_Container_06 = ButtonGadget(#PB_Any, (MyButton_X*5),(MyButton_Y*3), MyButton_X, MyButton_Y, "Container_06")
CloseGadgetList()
;}
;{ Fix_Btn
Btn_Container_1 = ButtonGadget(#PB_Any ,(MyButton_X*0),MyWindowFenster_Y-MyButton_Y-StatusBarHeight(StatusBar), MyButton_X, MyButton_Y,"Container 1")
Btn_Container_2 = ButtonGadget(#PB_Any, (MyButton_X*1),MyWindowFenster_Y-MyButton_Y-StatusBarHeight(StatusBar), MyButton_X, MyButton_Y,"Container 2")
Btn_Container_3 = ButtonGadget(#PB_Any, (MyButton_X*2),MyWindowFenster_Y-MyButton_Y-StatusBarHeight(StatusBar), MyButton_X, MyButton_Y,"Container 3")
Btn_Container_4 = ButtonGadget(#PB_Any, (MyButton_X*3),MyWindowFenster_Y-MyButton_Y-StatusBarHeight(StatusBar), MyButton_X, MyButton_Y,"Container 4")
Btn_Container_5 = ButtonGadget(#PB_Any, (MyButton_X*4),MyWindowFenster_Y-MyButton_Y-StatusBarHeight(StatusBar), MyButton_X, MyButton_Y,"Container 5")
Btn_Container_6 = ButtonGadget(#PB_Any, (MyButton_X*5),MyWindowFenster_Y-MyButton_Y-StatusBarHeight(StatusBar), MyButton_X, MyButton_Y,"Container 6")
;}
;{ Container ON
HideWindow(Main, #False)
;}
EndProcedure
Procedure Main_Events(EEventID,WWindowNr)
Static Key.l
Select EEventID
;{ SELECT
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
; GADGET
Select EventGadget()
; LEER
Case Btn_Im_Container_01, Btn_Im_Container_02, Btn_Im_Container_03, Btn_Im_Container_04, Btn_Im_Container_05, Btn_Im_Container_06
MessageRequester("Info", "Container Btn = "+Str(ContainerMode),#PB_MessageRequester_Ok)
Case Btn_Container_1
ShowContainer(Container_01)
Case Btn_Container_2
ShowContainer(Container_02)
Case Btn_Container_3
ShowContainer(Container_03)
Case Btn_Container_4
ShowContainer(Container_04)
Case Btn_Container_5
ShowContainer(Container_05)
Case Btn_Container_6
ShowContainer(Container_06)
EndSelect
Case #PB_Event_Timer
; TIMER
Select EventTimer()
; LEER
EndSelect
Case #PB_Event_Menu
; MENUE
Select EventMenu()
; LEER
EndSelect
Case #WM_KEYUP
; TASTEN
Key.l = EventwParam()
; Debug "#KEYUP: " + Str(EventwParam())
Select KEY
Case 13
; LEER
Case 27
End
EndSelect
;}
EndSelect
EndProcedure
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;-- R U N
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Main_Window()
ShowContainer(Container_01)
;}
;- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;-- REPEAT
Define EventID,WindowNr,Key.l
; REPEAT
Repeat
EventID = WaitWindowEvent()
WindowNr = EventWindow()
Select WindowNr
;{ PRESENT
Case Main
Main_Events(EventID,WindowNr)
;}
EndSelect
ForEver
;}
Gruss ... Velindos