Code: Alles auswählen
#WindowWidth = 390
#WindowHeight = 290
If OpenWindow(0, 100, 120, #WindowWidth, #WindowHeight, #PB_Window_MinimizeGadget, "Armeelistensystem")
If CreateGadgetList(WindowID())
CreateStatusBar(#99, WindowID())
AddStatusBarField(380)
Top = 10
GadgetHeight = 24
PanelGadget(#3, 20, Top, #WindowWidth-50, #WindowHeight-Top-60)
AddGadgetItem(3, 0, "Klap")
ButtonGadget(#6, 170, 10, 70, GadgetHeight, "Hinzufügen")
ButtonGadget(#5, 250, 10, 70, GadgetHeight, "Entfernen")
ListViewGadget(#4, 6, 10, 150, 148)
AddGadgetItem(4, -1, "Objekt 4")
;[...]
AddGadgetItem(4, -1, "Objekt 5")
ListViewGadget(#7, 170, 40, 150, 118)
AddGadgetItem(3, 0, "Magische Gegenstände")
ButtonGadget(#9, 190, 10, 70, GadgetHeight, "Hinzufügen")
ButtonGadget(#5, 260, 10, 70, GadgetHeight, "Entfernen")
ListViewGadget(#2, 6, 10, 180, 148)
AddGadgetItem(2, -1, "Objekt 1")
;[...]
AddGadgetItem(2, -1, "Objekt 2")
ListViewGadget(#7, 190, 40, 140, 118)
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()
Case 5;Entfernen hier auch am besten das ausgewählte
RemoveGadgetItem(7, 0)
StatusBarText(99, 0, " - "+GetGadgetItemText(7, 1, 1), 0);Hier hätte ich die Frage was bei dem GetGadgetItemText die beiden letzten Werte sind und wie ich dort den Namen des ausgewählten Objekts bekomme.
Case 6;Hinzufügen
AddGadgetItem(7, -1, ""+GetGadgetItemText(2, 1, 0))
StatusBarText(99, 0, " + "+GetGadgetItemText(4, 1, 1), 0)
Case 9;Hnzufügen
AddGadgetItem(7, -1, ""+GetGadgetItemText(2, 2, 0))
StatusBarText(99, 0, " + "+GetGadgetItemText(2, 1, 1), 0)
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
End
Das wäre mein Code bis jetzt gekürzt.