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