PureBoard

Code: Alles auswählen

EnableExplicit

Enumeration ; Fenster
  #frmMain
EndEnumeration

Enumeration ; Gadgets
  #Container1
  #Container2
  #Container3
  #Container4
  #Button1
  #Button2
  #Button3
  #Button4
  #ButtonContainer1
  #ButtonContainer2
  #ButtonContainer3
  #ButtonContainer4
  #ButtonContainer41
  
  #StatusBar_1
  #Velindoslink
  
EndEnumeration

OpenWindow(#frmMain, #PB_Ignore, #PB_Ignore, 496, 562, "Container TEST", #PB_Window_SystemMenu |#PB_Window_MinimizeGadget| #PB_Window_Invisible)
If CreateStatusBar(#StatusBar_1, WindowID(#frmMain))
  ButtonGadget(#ButtonContainer41, 3, 3, 16, 16, "?")
HyperLinkGadget(#Velindoslink, 25, 5, 130, StatusBarHeight(#StatusBar_1), "www.purebasic.com", RGB(255,0,0), #PB_HyperLink_Underline)
  AddStatusBarField(492)
EndIf
StatusBarText(#StatusBar_1,0,"Hier steht mein Statusbartext ",#PB_StatusBar_Right|#PB_StatusBar_BorderLess )


ContainerGadget(#Container1, 0, 0, 640, 380)
ButtonGadget(#Button1, 10, 10, 80, 30, "Button1")

CloseGadgetList()
ContainerGadget(#Container2, 0, 0, 640, 380)
ButtonGadget(#Button2, 20, 20, 80, 30, "Button2")
CloseGadgetList()
ContainerGadget(#Container3, 0, 0, 640, 380)
ButtonGadget(#Button3, 30, 30, 80, 30, "Button3")
CloseGadgetList()
ContainerGadget(#Container4, 0, 0, 640, 380)
ButtonGadget(#Button4, 40, 40, 80, 30, "Button4")
CloseGadgetList()

ButtonGadget(#ButtonContainer1, 20, 400, 100, 30, "Zeig Container 1")
ButtonGadget(#ButtonContainer2, 140, 400, 100, 30, "Zeig Container 2")
ButtonGadget(#ButtonContainer3, 260, 400, 100, 30, "Zeig Container 3")
ButtonGadget(#ButtonContainer4, 380, 400, 100, 30, "Zeig Container 4")

HideGadget(#Container2, #True)
HideGadget(#Container3, #True)
HideGadget(#Container4, #True)

HideWindow(#frmMain, #False)

SetParent_(GadgetID(#Velindoslink), StatusBarID(#StatusBar_1))
SetParent_(GadgetID(#ButtonContainer41), StatusBarID(#StatusBar_1))


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button1
          Debug "Button1 in Container 1"
        Case #Button2
          Debug "Button2 in Container 2"
        Case #Button3
          Debug "Button3 in Container 3"         
        Case #Button4
          Debug "Button4 in Container 4"         
          
        Case #ButtonContainer1
          HideGadget(#Container1, #False)
          HideGadget(#Container2, #True)
          HideGadget(#Container3, #True)
          HideGadget(#Container4, #True)
          
        Case #ButtonContainer2
          HideGadget(#Container1, #True)
          HideGadget(#Container2, #False)
          HideGadget(#Container3, #True) 
          HideGadget(#Container4, #True)
          
        Case #ButtonContainer3
          HideGadget(#Container1, #True)
          HideGadget(#Container2, #True)
          HideGadget(#Container3, #False) 
          HideGadget(#Container4, #True)
          
        Case #ButtonContainer4
          HideGadget(#Container1, #True)
          HideGadget(#Container2, #True)
          HideGadget(#Container3, #True)
          HideGadget(#Container4, #False)           
          
          
        Case #ButtonContainer41
          Debug "auselöst!"
          HideGadget(#Container1, #True)
          HideGadget(#Container2, #True)
          HideGadget(#Container3, #True)
          HideGadget(#Container4, #False)           
          
                  
        Case #Velindoslink
          RunProgram(GetGadgetText(#Velindoslink))
          
      EndSelect
  EndSelect
ForEver

Code: Alles auswählen

[...]
ContainerGadget(#myContainer, 3, 3, 16, 16)
ButtonGadget(#ButtonContainer41, 0, 0, 16, 16, "?")
CloseGadgetList()
[...]
SetParent_(GadgetID(#myContainer), StatusBarID(#StatusBar_1))