forum.clarionlife.net

Код: Выделить всё

setcursor(CURSOR:Wait)
if ~LOC:TreeExpandAll
  do TSF3:ExpandAll
  LOC:TreeExpandAll = 1
end  
i# = TSF3:CurrentChoice
loop
  i# += 1
  get(Queue:SingleFileTree,i#)
  if errorcode()=30                     ! Конец очереди, начинаем с первой записи
    i# = 0
    cycle
  end
  if i#=TSF3:CurrentChoice              ! Прошли круг и ничего не нашли
    break
  end
  if instring(clip(upper(LOC:SearchString)),upper(Queue:SingleFileTree.TSF3:Display),1,1)
    break
  end  
end  
setcursor()
if i#<>TSF3:CurrentChoice
  select(?FileTree,i#)
  post(EVENT:NewSelection,?FileTree)
else  
  select(?FileTree,i#)
end