如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?
2008-04-28 02:03
309 查看
如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?
问题描述:
如何使鼠标单击ITEM单元格(TABORDER为0)时黑色选中色变为其他颜色?
解决方案:
1、首先将DW属性中的COLUMNMOVING和MOUSESELECTION两项取消选中;
2、在DW的CLICKED事件中写代码:
//此处声明所用到的相关变量;
long ll_curcol,ll_pos,ll_cols
string ls_modstring,ls_colname,ls_color_1,ls_color_2,ls_curcol
ifrow=0thenreturn
//此处给两个颜色变量赋值;
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_curcolthen
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)
问题描述:
如何使鼠标单击ITEM单元格(TABORDER为0)时黑色选中色变为其他颜色?
解决方案:
1、首先将DW属性中的COLUMNMOVING和MOUSESELECTION两项取消选中;
2、在DW的CLICKED事件中写代码:
//此处声明所用到的相关变量;
long ll_curcol,ll_pos,ll_cols
string ls_modstring,ls_colname,ls_color_1,ls_color_2,ls_curcol
ifrow=0thenreturn
//此处给两个颜色变量赋值;
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_curcolthen
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)
相关文章推荐
- 如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?(原创)
- 如何使鼠标单击ITEM单元格时黑色选中色变为其他颜色?(原创)
- 鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
- 鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
- [转]当鼠标点击ListView下面的空白区域时,如何使ListView的原item选项仍然为选中状态
- 如何在Datawindow.net中实现让当前行选中,并且当前行以其他颜色显示
- [转]当鼠标点击ListView下面的空白区域时,如何使ListView的原item选项仍然为选中状态
- TableView中如何实现点中cell的文字变为红色,其他cell的文字是黑色
- 请教方法和例子:VS2003的datagrid控件,如何实现用鼠标拖动的方法选中任意区域的多个单元格,然后进行统一编辑??
- [转]当鼠标点击ListView下面的空白区域时,如何使ListView的原item选项仍然为选中状态
- Android中listview选中一个列表变为选中颜色,其他变为默认颜色
- JS实现页面table鼠标移动改变tr行颜色,单击tr选中复选框功能
- Flex中如何通过itemRollOverColor和itemSelectionColor样式给列图ColumnChart设置选中/未选颜色的例子
- 如何单击某行使其颜色变化并且在单击其他行后颜色恢复
- CSS+HTML实例集合二,表格行颜色间隔显示,加有鼠标移入移出高亮效果,还有单击选中高亮再单击消除高亮
- [原]界面上有几个球队名字的列表,将鼠标放到球队名字上就变为红色背景,其他球队背景颜色为白色,点击一个球队的时候就将点击的球队变为fontSize=30字体(fontSize=‘’回到默认)。
- 如何在sencha touch中将选中的item状态自动变为不选中
- 如何判断鼠标单击的单元格相对于单元格所在行的索引值
- 在用鼠标单击DBGrid标题单元格的时候总是在这个列的左侧出现一条黑色竖线,鼠标轻开后竖线消失,怎样在单击时不出现这条竖线?
- PB中如何用鼠标单击选中数据窗口中的一行?