列表元素表头如何设置停留状态

a599662

易语言用代码如何实现 列表元素 列表表头 能像UI设计器这样  停留状态 有下划线 还没有分隔线的

dasemimi

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. .程序集变量 m_hList, 整数型
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 hWindow, 整数型
    
14. .局部变量 hAdapterHeader, 整数型
    
15. .局部变量 hAdapter, 整数型
    
16. .局部变量 i, 整数型
    
17. .局部变量 bOK, 逻辑型
    
18. .局部变量 nIndex, 整数型
    
19. .局部变量 hBkM, 整数型
    
20. 
    
21. ' 初始化炫彩资源
    
22. XInitXCGUI ({  })
    
23. 
    
24. ' 创建窗口并且显示
    
25. hWindow ＝ XWnd_Create (0, 0, 600, 500, L (“dasemimi”), 0, #xc_window_style_default)
    
26. 
    
27. m_hList ＝ XList_Create (20, 40, 500, 300, hWindow)
    
28. bOK ＝ XList_SetItemTemplateXML (m_hList, L (“XML-template\List_Item.xml”))
    
29. ' XSView_SetLineSize (m_hList, 20, 20)
    
30. 
    
31. XList_AddColumn (m_hList, 100)
    
32. XList_AddColumn (m_hList, 100)
    
33. 
    
34. hAdapterHeader ＝ XAdMap_Create ()
    
35. XList_BindAdapterHeader (m_hList, hAdapterHeader)
    
36. bOK ＝ XAdMap_AddItemText (hAdapterHeader, L (“name”), L (“aaa”))
    
37. bOK ＝ XAdMap_AddItemText (hAdapterHeader, L (“name2”), L (“bbb”))
    
38. 
    
39. hAdapter ＝ XAdTable_Create ()
    
40. XList_BindAdapter (m_hList, hAdapter)
    
41. XAdTable_AddColumn (hAdapter, L (“name”))
    
42. XAdTable_AddColumn (hAdapter, L (“name2”))
    
43. 
    
44. ' XList_SetColumnWidth (m_hList, 0, 150)
    
45. 
    
46. 
    
47. .变量循环首 (0, 19, 1, i)
    
48.     nIndex ＝ XAdTable_AddItemTextEx (hAdapter, L (“name”), L (“Litem-” ＋ 到文本 (i)))
    
49. 
    
50.     XAdTable_SetItemText (hAdapter, nIndex, 1, L (“Litem-” ＋ 到文本 (i)))
    
51. .变量循环尾 ()
    
52. 
    
53. 
    
54. 
    
55. 
    
56. hBkM ＝ XEle_GetBkManager (XList_GetHeaderHELE (m_hList))
    
57. XBkM_AddFill (hBkM, #listHeader_state_flag_item_leave, RGB (211, 211, 211), 255)
    
58. XBkM_AddFill (hBkM, #listHeader_state_flag_item_stay, RGB (128, 255, 128), 255)
    
59. XBkM_AddFill (hBkM, #listHeader_state_flag_item_down, RGB (188, 188, 188), 255)
    
60. 
    
61. 
    
62. XWnd_ShowWindow (hWindow, 5)
    
63. XRunXCGUI ()  ' 内部消息处理等等
    
64. XExitXCGUI ()  ' 释放资源
    
65. 
    

复制代码

a599662

谢谢大色的 代码   这么晚还给回答问题