求助checklist勾选项加颜色怎么不成功？

iaauto

试着修改了listview重绘的例子，现在效果不是很好
问题1：第一次运行第一项没有勾选，但是显示成了红色
问题2：勾选后有时会变成红色，有时不会变成红色

1. import win.ui;
   
2. /*DSG{{*/
   
3. var winform = win.form(text="aardio form";right=759;bottom=469)
   
4. winform.add(
   
5. button={cls="button";text="button";left=283;top=319;right=426;bottom=399;z=1};
   
6. checklist={cls="checklist";left=215;top=91;right=532;bottom=259;edge=1;items={};z=2}
   
7. )
   
8. /*}}*/
   
9. winform.checklist.items = { "测试项目";"测试项目2";"测试项目3" }
   
10. 
    
11. winform.checklist.onnotify = function(id,code,ptr){
    
12.         if( code == 0xFFFFFFF4/*_NM_CUSTOMDRAW*/ ){
    
13.                 var lvcd = winform.checklist.getNotifyCustomDraw(code,ptr);
    
14.                 if( lvcd.nmcd.dwDrawStage == 0x10001/*_CDDS_ITEMPREPAINT*/)
    
15.                         return 0x20/*_CDRF_NOTIFYSUBITEMDRAW*/
    
16.                 elseif( lvcd.nmcd.dwDrawStage == 1/*_CDDS_PREPAINT*/ ){
    
17.                         return 0x20/*_CDRF_NOTIFYITEMDRAW*/;
    
18.                 }
    
19.                 elseif( lvcd.nmcd.dwDrawStage == ( 0x10001/*_CDDS_ITEMPREPAINT*/ | 0x20000/*_CDDS_SUBITEM*/) ){
    
20.                         lvcd.clrText = winform.checklist.getChecked(lvcd.nmcd.dwItemSpec) ? gdi.RGB(255,0,0) : gdi.RGB(0,0,0);
    
21.                         lvcd.update()
    
22.                         return 0/*_CDRF_DODEFAULT*/
    
23.                 }
    
24.         }
    
25. }
    
26. 
    
27. winform.show()
    
28. win.loopMessage();

复制代码

popdes

1. lvcd.clrText = winform.checklist.getChecked(lvcd.nmcd.dwItemSpec+1) ? gdi.RGB(255,0,0) : gdi.RGB(0,0,0);

复制代码

加1就可以了。。。。。。。。。。。。。。。

iaauto

popdes 发表于 2018-8-6 16:33
加1就可以了。。。。。。。。。。。。。。。

谢谢，解决了，原来是索引的的问题