鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
来源:互联网 发布:使命召唤14优化差 编辑:程序博客网 时间:2024/05/01 00:51
1、首先将DW属性中的Column Moving 和Mouse Selection 两项取消选中;
2、在 DW 的Clicked 事件中写代码:
//此处声明所用到的相关变量;
long ll_curcol,ll_pos,ll_cols
string ls_modstring,ls_colname,ls_color_1,ls_color_2,ls_curcol
if row = 0 then return
//此处给两个颜色变量赋值;
ls_color_1 = string(rgb(255,255,255))
ls_color_2 = string(15780518) //此处设置选中单元格为SKY天蓝色
//此处获取当前列号和总列数;
//ll_curcol=dw_1.getcolumn()
ls_curcol = left(dw_1.GetObjectAtPointer(),pos(dw_1.GetObjectAtPointer(),"~t") - 1)
ll_cols = long(dw_1.Object.DataWindow.Column.Count)
//此处将所有列的BACKGROUND的 MODE属性设为不透明;(注:下面两句其实可以放到FORM的OPEN事件或DW的CONSTRUCTOR里面执行,可以提高效率;)
dw_1.setredraw(false)
for ll_pos = 1 to ll_cols
ls_colname = dw_1.Describe("#"+string(ll_pos)+".Name")
dw_1.Modify(ls_colname+".Background.Mode='0'")
next
//此处将所操作列的Background.Color属性设为带IF判断的表达式,而除此之外的各列的背景表达式均设为恒值;
for ll_pos = 1 to ll_cols
ls_colname = dw_1.Describe("#"+string(ll_pos)+".Name")
//if ll_pos<> ll_curcol then
if ls_colname <> ls_curcol then
ls_modstring = ls_colname+".Background.Color='"+ls_color_1+"'"
else
ls_modstring = ls_colname+".Background.Color='"+ls_color_1+" ~t if (getrow()=currentrow(),"+ls_color_2+","+ls_color_1+")'"
end if
//此处执行背景颜色修改;
dw_1.Modify(ls_modstring)
next
//刷新显示新的背景颜色;
dw_1.setredraw(true)
本文来自CSDN博客,转载请标明出处:http://www.blogjava.net/keweibo/articles/328136.html
- 鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
- 鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
- 如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?(原创)
- 如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?(原创)
- 如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?
- JS实现鼠标单击单元格时 单元格里的Check为选中
- Android中listview选中一个列表变为选中颜色,其他变为默认颜色
- 当鼠标放到submit按钮上时使鼠标变为单击文字链接时的图标
- 场景中创建N(两个以上)个物体,鼠标可以选中任何物体,当鼠标选中为非地面时,选中的物体变为红色,之前选中的物体恢复为之前的颜色,鼠标点击到地面时,让之前选中的那个物体移动的当前点击的位置
- js鼠标单击改变行的颜色
- DEV 改变选中Treelist单元格的颜色
- 单击任意单元格则选中本行的复选框代码
- QTableWidget设置单击某个单元格时选中整行
- GridView鼠标单击选中行
- datagridview 中单击一个单元格即选中单元格所在的一行
- DataGrid双击选中单元格该为单击
- 鼠标单击变换图形颜色
- ListView拖动时背景变为黑色的问题
- 20101011
- vc学习之服务器客户机通信
- 2010.10.11~故事几则
- Tomcat连接池报错:DBCP object created by the following code was never closed
- UI中支持中文输入法
- 鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
- XSLT 简介
- java 继承不能覆盖 static 方法
- 在Sharepoint里使用了MasterPage的页面里面导入CSS文件的方法
- Oracle设计规范!
- C Programming Language Standard
- sqlserver在触发器中执行动态sql用到inserted(deleted)表
- 宇根论
- get web url content length