string s_object, s_col_name
string ls_object
integer li_len

// Text name = Column name + "_t" (column: id_number; text: id_number_t)

IF Left(This.GetBandAtPointer(),  7 ) = "header~t" THEN
	ls_object = This.GetObjectAtPointer()
	li_len = len(ls_object)
	ls_object = Left(ls_object, li_len -  2 )
	IF Right(ls_object,  1 ) = "h" THEN
		//No border
		This.Modify(ls_object + ".border = '0'")
		RETURN
	END IF
END IF

IF Left(This.GetBandAtPointer(),  7 ) = "header~t" THEN
	s_object = This.GetObjectAtPointer()
	s_object = Left(s_object, Pos(s_object, "~t") -  1 )
	s_col_name = Left(s_object, Len(s_object) -  2 )
	//3d lowered border
	This.Modify(s_object + ".border = '5'")
	IF This.tag = s_col_name + "A" THEN
		This.SetSort(s_col_name + " D ")
		This.tag = s_col_name + "D"
	ELSE
		This.SetSort(s_col_name + " A ")
		This.tag = s_col_name + "A"
	END IF
	This.Sort()
	//3d raised border
	This.Modify(s_object + ".border = '6'")
END IF