网站 › 『 Sybase PowerBuilder 』 › 鼠标移动时让数据窗口中当前鼠标下的数据行改变颜色

ehxz 发表于 2007-3-6 17:10:03

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

<font size="2">步骤如下： <br/>1、定义窗口实例变量： <br/>String is_OldColor <br/>2、在数据窗口的Constructor事件中编写如下脚本： <br/>is_OldColor = This.Describe("datawindow.detail.color") <br/>3、为数据窗口定义一个自定义事件，事件名称叫什么并不重要，关键要映射pbm_MouseMove事件。然后在该自定义事件上编写如下脚本： <br/>string ls_dwoname <br/>string ls_temp <br/><br/>ls_dwoname=GetObjectAtPointer() <br/>This.Modify("row_t.text='0'") <br/>ls_temp = Mid(ls_dwoname,Pos(ls_dwoname,'~t') + 1) <br/>if integer(ls_temp) &gt; 0 then&amp; <br/>This.Modify("row_t.text='" + ls_temp + "'") <br/><br/>This.Modify("datawindow.detail.color='0~tif(getrow()=" + ls_temp + ",rgb(25,200,240)," + is_OldColor + ")'")</font>

查看完整版本: 鼠标移动时让数据窗口中当前鼠标下的数据行改变颜色