PureBoard

Verfasst: **25.08.2005 13:54**

Batze hat geschrieben:Ähämm, da gibts in PB FreeGadget().

Manchmal sieht man den Baum vor lauter Bäumen nicht

sobi hat geschrieben:Dankeschön schonmal! Allerdings gibt es da eine Möglichkeit, dass alle Gadgets freigegeben werden? (ohne, einzelnen eintrag?)

Schleife?

Verfasst: **25.08.2005 19:02**

@ sobi

Es sind in der zwischenzeit schon einige gute Beispiel und Ansetzpunkte eingegangen (FreeGadget, Container usw..) aber für dein spezielles Beispiel habe ich noch ein weiteres:

Code: Alles auswählen

If OpenWindow(0, 200, 200, 420, 400, #PB_Window_SystemMenu, "SubMenu Example")
    If CreateMenu(0, WindowID())
      MenuTitle("Project")
      MenuItem(1, "Text1") 
      MenuItem(2, "Text2") 
    EndIf
    CreateGadgetList(WindowID())
    TextGadget(1,55,55,30,16,"Text1")
    TextGadget(2,55,75,30,16,"Text2")
    HideGadget(1, 1): HideGadget(2, 1)   

Repeat     
    EventID.l = WaitWindowEvent()
    WindowID = EventWindowID()
    If WindowID = 0
      Select EventID
        Case #PB_Event_CloseWindow : Quit = #True
       
        Case #PB_Event_Menu
          Select EventMenuID()     
            Case 1
              HideGadget(1,0):HideGadget(2,1)
            Case 2
              HideGadget(1,1):HideGadget(2,0)
          EndSelect
        EndSelect
     EndIf
Until Quit = #True
EndIf

Ich hoffe irgendein von den Progis hier angeführten Ansätzen kannst du für deine Anwendung, in deinem Sinne und für deine Programmierlogik, verwenden.

PureBoard

gadgets freigeben