如何使按一下滑鼠ITEM儲存格時黑色選中色變為其他顏色?(原創)

來源:互聯網
上載者:User
儲存格|選中|原創
如何使按一下滑鼠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)


相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。