怎样使鼠标单击ITEM单位格时玄色选中色变为其他颜色？（原创）
发布时间：2018-08-17 18:29:25 所属栏目：电商 来源：站长网
导读：怎样使鼠标单击ITEM单位格时玄色选中色变为其他颜色？ 题目描写： 怎样使鼠标单击ITEM单位格（TAB ORDER为0）时玄色选中色变为其他颜色？ 办理方案： 1、起首将DW属性中的COLUMN MOVING 和MOUSE SELECTION两项打消选中； 2、在DW的CLICKED变乱中写代码： /
|
怎样使鼠标单击ITEM单位格时玄色选中色变为其他颜色？ 题目描写： 怎样使鼠标单击ITEM单位格（TAB ORDER为0）时玄色选中色变为其他颜色？ 办理方案： 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) （编辑：河北网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
