Code : Tout sélectionner
max = 50
openwindow(0,0, 0, 512, 384, "", $cf0001)
creategadgetlist(windowid(0) )
treegadget(0, 0, 0, 512, 384)
addgadgetitem(0, -1, "Root", 0, 0)
for i = 1 to max
addgadgetitem(0, -1, "ITEM N°" + str(i), 0, 1)
next
n = 1
d = 1
repeat
n + d
if (n > (max - 1) ) or (n < 2): d = -d: endif
delay(50)
setactivewindow(0)
setactivegadget(0)
setgadgetstate(0, n)
until windowevent()= 16
closewindow(0)
