[转帖]怎样让DW的列在点击时标题的边框由3D raise改为 3D lower?
1、首先定义Instance变量用于保存上次的点击对象,这样便可以恢复样式。<BR>string is_objectname<BR><BR>2、在数据窗口中利用GetObjectAtPointer函数得到当前用户点击的对象,然后改变相应的样式,具体代码如下:<BR><BR>//数据窗口Clicked事件<BR><BR>String dwobjectname<BR><BR>//得到当前点击的对象<BR>dwobjectname = this.GetObjectAtPointer()<BR><BR>//恢复上次点击对象的样式<BR>if not isnull(is_objectname) and trim(is_objectname) <> "" then<BR>dw_1.modify(is_objectname + ".border = 6")<BR>end if<BR><BR>long ll_pos<BR><BR>//分别读取对象名称与行数<BR>ll_pos = pos(dwobjectname,'~t')<BR><BR>is_objectname = left(dwobjectname,ll_pos - 1)<BR><BR>//如果用户点击文本,则返回。<BR>if right(is_objectname,2) = "_t" then return<BR><BR>string ls_row<BR><BR>ls_row = right(dwobjectname,len(dwobjectname) - ll_pos)<BR><BR>//修改点击对象当前行的样式<BR>dw_1.modify(is_objectname + ".border = '6~tIf(getrow()=" + ls_row + ",5,6)'")<BR><BR>本方法可以应用到别的风格设计上,如果用户使用别的方式切换焦点时,还必须在相应的实践中编程。
页:
[1]