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$) EndIfIf 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
|
|
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: |
|
|
|