动态修改dw中的组件属性

//  说明：修改字段或者组件对象的背景颜色，Text颜色

// --代码如下

string ls_q_col[], ls_z_col[], ls_s_col[], ls_modStr_q, ls_modStr_z

int  i

//  初始化
for i = 1 to 33
 ls_q_col[i] = 'q' + string(i)
 ls_z_col[i] = 't' + string(i)
 ls_s_col[i] = 's' + string(i)
 
 ls_modStr_q = ls_q_col[i] + ".Brush.Color='0~tif(" + ls_s_col[i] + "=1,rgb(255,0,0), rgb(192,192,192))'"
 ls_modStr_z = ls_z_col[i] + ".Color='0~tif(" + ls_s_col[i] + "=1,rgb(255,255,255), rgb(0,0,0))'"

 this.Modify(ls_modStr_q)
 this.Modify(ls_modStr_z)
next

 

//  数据窗口的分割，类似 execl
this.Object.DataWindow.HorizontalScrollSplit = this.object.r_1.Width
this.Object.DataWindow.HorizontalScrollPosition2 = this.object.r_1.Width