PureBoard

Tach Leute,
bei jedem klick ins ListIconGadget werden zwei Zeilen ausgegeben,statt
nur eine, weiss jemand warum ?
Mit PB3.94 hatte ich solche Probleme nicht.
Ach ja- ich benutze PB 4.02.


Enumeration
#Date_0
#Zeit_0
#Listview_0
EndEnumeration
If OpenWindow(0, 100, 100, 500, 200, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
DateGadget(#Date_0, 10, 19, 100, 25, "%dd/%mm/%yyyy",0)
DateGadget(#Zeit_0,300,19,100,25,"%hh:%ii",0)
ListIconGadget(#Listview_0, 50, 50, 290, 110, "Datum", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(#Listview_0, 1, "Nachricht", 250)
;AddGadgetItem(#Listview_0, -1, ""+Chr(10)+"")
;AddGadgetItem(#Listview_0, -1, ""+Chr(10)+"")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
If GadgetID(#Listview_0)
Zeile=GetGadgetState(#Listview_0)
If Zeile=-1
SetGadgetState(#Date_0,Date()):SetGadgetState(#Zeit_0,Date())
Datum.s=FormatDate("%dd/%mm/%yyyy",GetGadgetState(#Date_0))
Zeit.s=FormatDate("%hh:%ii",GetGadgetState(#Zeit_0))
AddGadgetItem(#Listview_0,-1,Datum+"/"+Zeit+Chr(10)+"message"+Str(Zeile))

EndIf

;Debug Zeile
ElseIf GadgetID(#Date_0)

ElseIf GadgetID(#Zeit_0)

EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
EndIf

PB 4.02 ? .. so so

Deine Eventschleife ist auch falsch. Du musst auf ein Event
reagieren und nicht auf alle. Schau dir dazu EventType() an.