Teil 9: Panel Gadget

 

 
    
If OpenWindow(0,100,100,500,400,"Fenster 1",#PB_Window_SystemMenu)

  If CreateGadgetList(WindowID(0))
    ButtonGadget(1,20,20,100,20,"Knopf 1")
    ButtonGadget(2,20,80,100,20,"Knopf 2")

    ListViewGadget(3,150,20,330,80)
    StringGadget(4,20,120,360,20,"")
    ButtonGadget(5,400,120,80,20,"Übernehmen")
    ProgressBarGadget(6,20,160,360,20,1,100000)
    ButtonGadget(7,400,160,80,20,"Start")
    ButtonGadget(8,20,200,200,20,"Gadgets aufdecken")
    ButtonGadget(9,280,200,200,20,"Gadgets verstecken")

    ButtonGadget(10,20,240,200,20,"Gadgets aktivieren")
    ButtonGadget(11,280,240,200,20,"Gadgets deaktivieren"
)

    PanelGadget(12,20,280,460,100)
      AddGadgetItem(12,0,"Schaltfläche 0")
        StringGadget(13,20,20,200,20,"Text Schalfläche 0",#PB_String_ReadOnly)
      AddGadgetItem(12,1,"Schaltfläche 1")
       
StringGadget(14,20,20,200,20,"Text Schalfläche 1",#PB_String_ReadOnly)
     
AddGadgetItem(12,2,"Schaltfläche 2")
       
StringGadget(15,20,20,200,20,"Text Schalfläche 2",#PB_String_ReadOnly)
     
AddGadgetItem(12,3,"Schaltfläche 3")
       
StringGadget(16,20,20,200,20,"Text Schalfläche 3",#PB_String_ReadOnly)
     
AddGadgetItem(12,4,"Schaltfläche 4")
       
StringGadget(17,20,20,200,20,"Text Schalfläche 4",#PB_String_ReadOnly
)

  EndIf

  Repeat
    EventID = WaitWindowEvent()
      If EventID = #PB_Event_CloseWindow 
        Quit = 1
      EndIf
      If EventID = #PB_Event_Gadget
        If EventGadget()=1
          MessageRequester("Achtung!","Knopf 1 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 1 wurde gedrückt !")
        EndIf
        If EventGadget()=2
          MessageRequester("Achtung!","Knopf 2 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 2 wurde gedrückt !")
        EndIf
        If EventGadget()=5
          a$=GetGadgetText(4)
          AddGadgetItem(3,-1,"Ihre Eingabe :"+a$)
        EndIf

          If EventGadget()=7
            For a=1 To 100000
           SetGadgetState(6,a)
            Next
          EndIf

          If EventGadget()=8
            For a=1 To 7
           HideGadget(a,0)
            Next
          EndIf
          If EventGadget()=9
            For a=1 To 7
           HideGadget(a,1)
            Next
      
EndIf

         If EventGadget()=10
            For a=1 To 9
            DisableGadget(a,0)
            Next
         EndIf
      
If EventGadget()=11
         
For a=1 To 9
            
DisableGadget(a,1)
         
Next
      
EndIf


     
EndIf
 
Until Quit=1
EndIf
End

 

Nun soll dem Fenster noch ein PanelGadget hinzugefügt werden. Dies geschieht über den Befehl PanelGadget mit den Parametern: Nummer des Gadgets, x-Position,Y-Position, Breite, Tiefe

Um eine Schaltfläche hinzuzufügen wird der Befehl AddGadgetItem mit den folgenden Parametern benutzt: Nummer des Gadgets (auf dem die Schaltfläche hinzugefügt werden soll), Position, Titel der Schaltfläche. Danach folgen alle Gadgets, die auf diesem "Panel" angezeigt werden sollen. In unserem Falle jeweils ein StringGadget.

Erst danach wird die zweite Schaltfläche definiert.....

 

Resultat:

 

 

ENDE