string aObj[] //массив названий объектов в datawindow
...
str1 = this.Describe("DataWindow.Objects")
pfc_n_cst_string n_cst_string //объект вытащен из PFC
n_cst_string.of_parsetoarray(str1, '~t', aObj)
...
//---поиск надписи, соответствующей колонке icol
iTCol =  0 
iwidth = integer(this.describe(sCol+".width"))
for i= lowerBound(aObj) to upperBound(aObj)
	str1 = this.Describe(aObj[i]+".type")
	sVisible = this.Describe(aObj[i]+".visible")
	if str1 = "text" and sVisible="1" then
		j=integer(this.describe(aObj[i]+".x"))
		if j<=(ix +iWidth/ 2 ) and j>iTCol then //сравнение с серединой колонки
			sTCol = aObj[i]
			iTCol = j
		end if
	end if
next
...