string    ls_dw_band, ls_band
integer	li_pos, li_row, li_level

ls_dw_band = GetBandAtPointer()
if ls_dw_band = "" then RETURN

li_pos = Pos( ls_dw_band, "~t")
if li_pos >  0  then 
	ls_band = mid( ls_dw_band ,  1  , li_pos -  1 )
	li_row = long( Mid( ls_dw_band, li_pos +  1  , Len( ls_dw_band)))
end if

//тест события
Choose Case  ls_band
  Case "tree.level.1", "tree.level.2", "tree.level.3"	//DoubleClicked был по каталогу
     li_level = integer( Right( ls_band,  1 ))	//определяем уровень
     //тест и смена состояния каталога
     If this.IsExpanded( li_row, li_level) then
        this.Collapse( li_row, li_level)         //закрыть
     Else
        this.Expand( li_row, li_level)           //открыть
     End If
End Choose