ListIconGadget Anzahl ändern.
Verfasst: 29.06.2013 11:37
Ich möchte gerne wie in einer Exceltabelle einige Metadaten der Einträge ändern, in meinem einfachen Beispiel geht es um Plus/Minus um eine Wert der angewählten Datei zu verändern.
Ist es Möglich das direkt in dem Feld "Anzahl" zu machen, also wie in Excel per Eingabe der Anzahl?
Danke für einen Tip
Ist es Möglich das direkt in dem Feld "Anzahl" zu machen, also wie in Excel per Eingabe der Anzahl?
Danke für einen Tip
Code: Alles auswählen
If OpenWindow(0, 100, 100, 500, 400, " Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0, 5, 5, 490, 350, "Dateiname", 200, #PB_ListIcon_GridLines |#PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(0, 1, "Grösse", 150)
AddGadgetColumn(0, 2, "Anzahl", 50)
ButtonGadget(1, 5, 360, 200, 20, "Plus")
ButtonGadget(2, 250, 360, 200, 20, "Minus")
Directory$ = "C:\Windows"
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
AddGadgetItem(0, -1, DirectoryEntryName(0) +Chr(10)+ Str(DirectoryEntrySize(0)))
EndIf
Wend
FinishDirectory(0)
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
a.i = a+1
SetGadgetItemText(0, GetGadgetState(0) ,Str(a),2)
Case 2
a.i = a-1
SetGadgetItemText(0, GetGadgetState(0),Str(a),2)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
