Teil 9: Panel Gadget

 

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

  If CreateGadgetList(WindowID())
    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 EventGadgetID()=1
          MessageRequester("Achtung!","Knopf 1 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 1 wurde gedrückt !")
        EndIf
        If EventGadgetID()=2
          MessageRequester("Achtung!","Knopf 2 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 2 wurde gedrückt !")
        EndIf
        If EventGadgetID()=5
          a$=GetGadgetText(4)
          AddGadgetItem(3,-1,"Ihre Eingabe :"+a$)
        EndIf

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

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

         If EventGadgetID()=10
            For a=1 To 9
            DisableGadget(a,0)
            Next
         EndIf
      
If EventGadgetID()=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