// 说明:修改字段或者组件对象的背景颜色,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