关闭

鼠标移动时让数据窗口中当前鼠标下的数据行改变颜色

477人阅读 评论(0) 收藏 举报

编程步骤如下:
1、定义窗口实例变量:
String is_OldColor
2、在数据窗口的Constructor事件中编写如下脚本:
is_OldColor = This.Describe("datawindow.detail.color")
3、为数据窗口定义一个自定义事件,事件名称叫什么并不重要,关键要映射pbm_MouseMove事件。然后在该自定义事件上编写如下脚本:
string ls_dwoname
string ls_temp

ls_dwoname=GetObjectAtPointer()
This.Modify("row_t.text='0'")
ls_temp = Mid(ls_dwoname,Pos(ls_dwoname,'~t') + 1)
if integer(ls_temp) > 0 then&
This.Modify("row_t.text='" + ls_temp + "'")

This.Modify("datawindow.detail.color='0~tif(getrow()=" + ls_temp + ",rgb(25,200,240)," + is_OldColor + ")'")

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:57156次
    • 积分:962
    • 等级:
    • 排名:千里之外
    • 原创:39篇
    • 转载:18篇
    • 译文:0篇
    • 评论:2条
    最新评论