鼠标移到数据窗口上时所在行字段改变颜色（或其它属性）

//1.1鼠标移到数据窗口上时所在行字段改变颜色（或其它属性）
//在窗口设置实例变量
string is_header,is_detail
boolean ib_color

 

//1.2鼠标移到数据窗口上时所在行字段改变颜色（或其它属性）
//在窗口设置open事件中取数据窗口header和detail的高度用于下一步计算
is_header = dw_datamon.Object.DataWindow.header.height
is_detail = dw_datamon.Object.DataWindow.detail.height

 

 

 

//1.3鼠标移到数据窗口上时所在行字段改变颜色（或其它属性）
//在窗口设置mousemove事件

int li_currentno,li_rowno  

//用FirstRowOnPage取出的当前数窗显示的第一行行号变量须定义为字符型
string ls_firstrow        

 

 //如ib_color为假，则修改字段颜色表达式（假定改为红色。注意：表达式中0和if必须用tab键分隔）并将ib_color设为true     
IF Not ib_color THEN
       dw_datamon.object.userid.color = "0 if(CurrentRow() = GetRow(),rgb(255,0,0), rgb(0,0,0) )"
  ib_color = true
    END IF           

 

 //取数据窗口当前显示行中光标所在行
li_currentno = (ypos + integer(is_header)) / integer(is_detail)     

 

//取数据窗口当前显示行第一行的实际行号
ls_firstrow = dw_datamon.Object.DataWindow.FirstRowOnPage         

 

//计算光标所在行的实际行号（即记录号）
li_rowno = integer(ls_firstrow) + li_currentno - 1                

 

//将该行设为当前行，使字段根据条件进行变色
dw_datamon.SetRow(li_rowno)                                      

//1.4鼠标移到数据窗口上时所在行字段改变颜色（或其它属性）
//在窗口将字段改回原来颜色  

//在窗口mousemove事件将字段改回原来颜色(假设为黑)，
dw_datamon.object.userid.color = rgb(0,0,0) 

 

//并将ib_color设为false
ib_color = false