玩listview自绘之内置进度条

popdes

有时候listview中可能需要一个进度条显示, 于是我们可以根据listview自绘中操作列值进行设置,演示代码如下:

1. import win.ui;
   
2. /*DSG{{*/
   
3. var winform = win.form(text="listview中添加进度条演示";right=945;bottom=474)
   
4. winform.add(
   
5. button={cls="button";text="(点击这里随机更新一次第二行的进度值)";left=0;top=392;right=944;bottom=472;font=LOGFONT(h=-21);z=2};
   
6. 流程编辑框={cls="listview";left=0;top=0;right=946;bottom=384;edge=1;font=LOGFONT(name='FontAwesome';h=-19);fullRow=1;vscroll=1;z=1}
   
7. )
   
8. /*}}*/
   
9. 
   
10. import win.fontAwesome;
    
11. import win.graphics;
    
12. import win.imageList;
    
13. var imagelist = win.imageList(5,34);
    
14. winform.流程编辑框.setImageList( imagelist,1/*_LVSIL_SMALL*/ );
    
15. winform.流程编辑框.insertColumn("",30,,0x2/*_LVCFMT_CENTER*/)
    
16. winform.流程编辑框.insertColumn("中断",80,,0x2/*_LVCFMT_CENTER*/)
    
17. winform.流程编辑框.insertColumn("备注",300,,0x0/*_LVCFMT_LEFT*/)
    
18. winform.流程编辑框.insertColumn("功能",100,,0x0/*_LVCFMT_LEFT*/)
    
19. winform.流程编辑框.insertColumn("参数",300,,0x0/*_LVCFMT_LEFT*/)
    
20. winform.流程编辑框.insertColumn("",30,,0x2/*_LVCFMT_CENTER*/)
    
21. winform.流程编辑框.insertColumn("",1,,0x2/*_LVCFMT_CENTER*/)
    
22. //自适应列宽度
    
23. winform.流程编辑框.adjust = function(cx,cy){
    
24.     winform.流程编辑框.fillParent(5/*列序号*/);
    
25. }
    
26. 
    
27. 
    
28. winform.流程编辑框.addItem( {
    
29.         text={'\uF00c';'\uF1db';30;"直线运动";'{["速度"]=1000;["模式"]="相对运动";["距离"]="2380";["是否等待"]="否";}';'\uF01a'}
    
30. } )
    
31. winform.流程编辑框.addItem( {
    
32.         text={'\uF00d';'\uF05e';100;"直线运动";'{["速度"]=300;["模式"]="连续运动";["是否等待"]="是";}';'\uF01a'}
    
33. } )
    
34. winform.流程编辑框.addItem( {
    
35.         text={'\uF00c';'\uF1db';200;"调用子程序";'{["调用子程序"]="连续读传感器";["是否等待"]="是";}';'\uF01a'}
    
36. } )
    
37. winform.流程编辑框.addItem( {
    
38.         text={'\uF00c';'\uF1db';50;"调用子程序";'{["调用子程序"]="回字形对准算法";["是否等待"]="是";}';'\uF01a'}
    
39. } )
    
40. winform.流程编辑框.addItem( {
    
41.         text={'\uF00c';'\uF1db';150;"直线运动";'{["速度"]=1000;["模式"]="相对运动";["距离"]="2380";["是否等待"]="否";}';'\uF01a'}
    
42. } )
    
43. winform.流程编辑框.addItem( {
    
44.         text={'\uF00c';'\uF1db';120;"直线运动";'{["速度"]=1000;["模式"]="相对运动";["距离"]="2380";["是否等待"]="否";}';'\uF01a'}
    
45. } )
    
46. winform.流程编辑框.addItem( {
    
47.         text={'\uF00d';'\uF05e';10;"直线运动";'{["速度"]=300;["模式"]="连续运动";["是否等待"]="是";}';'\uF01a'}
    
48. } )
    
49. winform.流程编辑框.addItem( {
    
50.         text={'\uF00c';'\uF1db';70;"调用子程序";'{["调用子程序"]="连续读传感器";["是否等待"]="是";}';'\uF01a'}
    
51. } )
    
52. winform.流程编辑框.addItem( {
    
53.         text={'\uF00c';'\uF1db';260;"调用子程序";'{["调用子程序"]="回字形对准算法";["是否等待"]="是";}';'\uF01a'}
    
54. } )
    
55. winform.流程编辑框.addItem( {
    
56.         text={'\uF00c';'\uF1db';130;"直线运动";'{["速度"]=1000;["模式"]="相对运动";["距离"]="2380";["是否等待"]="否";}';'\uF01a'}
    
57. } )
    
58. 
    
59. //自绘
    
60. winform.流程编辑框.onnotify = function(id,code,ptr){
    
61.         if( code == 0xFFFFFFF4/*_NM_CUSTOMDRAW*/ ){
    
62.                 var lvcd = winform.流程编辑框.getNotifyCustomDraw(code,ptr);
    
63.                 if( lvcd.nmcd.dwDrawStage == 0x10001/*_CDDS_ITEMPREPAINT*/)
    
64.                         return 0x20/*_CDRF_NOTIFYSUBITEMDRAW*/
    
65.                 elseif( lvcd.nmcd.dwDrawStage == 1/*_CDDS_PREPAINT*/ ){
    
66.                         return 0x20/*_CDRF_NOTIFYITEMDRAW*/;
    
67.                 }
    
68.                 elseif( lvcd.nmcd.dwDrawStage == ( 0x10001/*_CDDS_ITEMPREPAINT*/ | 0x20000/*_CDDS_SUBITEM*/) ){
    
69.                         //注意这里 iSubItem 的索引自0开始( 其他函数通常自1开始 )
    
70.                         
    
71.                         var cvs = win.graphics.canvas(); // 创建一个画布
    
72.                     cvs.fromHDC(lvcd.nmcd.hdc); // 传入 hDC
    
73.                     var nItem = lvcd.nmcd.dwItemSpec+1;
    
74.                     var nSubItem = lvcd.iSubItem;
    
75.                     var rc = owner.getItemRect(nItem,nSubItem);
    
76.                     if(nSubItem == 3){
    
77.                            
    
78.                             var RetRc = ::RECT(rc.left+1,rc.top+6,rc.right-tonumber(owner.getItemText(nItem,3)),rc.bottom-6);
    
79.                             cvs.brush.color = 0x00ff00;
    
80.                             cvs.fillRect(RetRc)
    
81.                                    
    
82.                     }
    
83.                     cvs.pen.color = 0xebebeb; // 定义画笔的颜色
    
84.                     cvs.drawEdge(rc);
    
85.                         
    
86.                     lvcd.update()
    
87.                     cvs.destroy();
    
88.                     
    
89.                     return 0/*_CDRF_DODEFAULT*/
    
90.                 }
    
91.         }
    
92. }
    
93. //演示更新进度
    
94. winform.button.oncommand = function(id,event){
    
95.         winform.流程编辑框.setItemText(tostring(math.random(10,280)),2,3);
    
96. }
    
97. 
    
98. winform.show()
    
99. win.loopMessage();

复制代码

JacenHe

感谢分享，这都看不出来是系统的listview控件了，很好的例子！

dsp2138

Jacen.He 发表于 2018-4-29 03:57
感谢分享，这都看不出来是系统的listview控件了，很好的例子！

Jacen，代码复制到编辑器里很多时候变这样了。
我这win10系统

JacenHe

dsp2138 发表于 2018-4-29 10:40
Jacen，代码复制到编辑器里很多时候变这样了。
我这win10系统

编辑器已经把有问题的空格标红提示了，遇到这种替换一下吧。
复制的时候，不要点discuz论坛的那个【复制代码】按钮，直接自己复制我试了没这个问题。

大家在论坛发代码的时候，也可以直接在aardio编辑器里右键点代码，点“复制全部到HTML” ，然后粘贴到论坛就没这个问题了。