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

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

<!--bb --><!--bb --><!--bb --><!--b -->

网友：hhcf Email: [e-mail]

//首先在数据窗口所在窗口中定义如下实例变量：
string is_header,is_detail
boolean ib_color

//在窗口open事件中取数据窗口header和detail的高度用于下一步计算：
is_header = dw_1.Object.DataWindow.header.height
is_detail = dw_1.Object.DataWindow.detail.height

//为数窗定义一个mousemove用户事件并编写如下脚本：
int li_currentno,li_rowno

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

//如ib_color为假，则修改字段颜色表达式（假定改为红色。注意：表达式中0和if必须用tab键分隔）并将ib_color设为true：
IF Not ib_color THEN
dw_1.object.columnname.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_1.Object.DataWindow.FirstRowOnPage

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

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

//在窗口mousemove事件将字段改回原来颜色(假设为黑)，并将ib_color设为false：
dw_1.object.columnname.color = rgb(0,0,0)
...
ib_color = false

//采用这种方法，可以对数据窗口字段的其它属性进行类似修改。

//已在pb6.0测试通过。请指正！