objs='datawindow~t'+idw.dynamic describe("Datawindow.objects")+'~t'

do while objs<>''
  	pos=pos(objs,'~t')
  	obj=left(objs,pos - 1)
	
	// Michael 11/05/2010 -------------------------
	ls_obj_type = idw.Dynamic Describe(obj + ".Type")
	
	lb_type_found = FALSE
	FOR li_i = 1 TO UpperBound(ls_type_array)
		IF ls_type_array[li_i] = ls_obj_type THEN 
			lb_type_found = TRUE
			EXIT
		END IF
	NEXT
	
	// Add new item into the ddlb_filter /////////////////////////////////////////////////////////////////////
	IF lb_type_found = FALSE AND as_type = 'ALL' THEN 		
		CHOOSE CASE ls_obj_type
				CASE 'datawindow'
						li_pic_index = 1
				CASE 'text'
						 li_pic_index = 6
				CASE 'column'
						 li_pic_index = 2
				CASE 'compute'
						 li_pic_index = 3
				CASE 'rectangle'
						 li_pic_index = 7
				 CASE 'roundrectangle'
						 li_pic_index = 8
				CASE 'line'
						 li_pic_index = 4
				CASE 'oval'
						 li_pic_index = 9
				CASE 'groupbox'
						 li_pic_index = 11
				CASE 'picture', 'bitmap'
						 li_pic_index = 12
				CASE 'button', 'picturebutton'
						 li_pic_index = 5
				CASE ELSE
					 li_pic_index = 13		
		END CHOOSE
		
		tab_1.page_1.ddplb_filter.InsertItem(ls_obj_type, li_pic_index, li_j)
		ls_type_array[li_j] = ls_obj_type
		li_j ++
	END IF ////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		
  	objs=mid(objs,pos+1)
  	IF as_type = 'ALL' OR as_type = ls_obj_type OR li_pic_index = 13 THEN of_insertObject (root,obj)
loop