|
发表于 2017-4-12 22:55:59
|
显示全部楼层
- .版本 2
- .程序集 程序集1
- .程序集变量 m_hList, 整数型
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 hWindow, 整数型
- .局部变量 hAdapterHeader, 整数型
- .局部变量 hAdapter, 整数型
- .局部变量 i, 整数型
- .局部变量 bOK, 逻辑型
- .局部变量 nIndex, 整数型
- .局部变量 hBkM, 整数型
- ' 初始化炫彩资源
- XInitXCGUI ({ })
- ' 创建窗口并且显示
- hWindow = XWnd_Create (0, 0, 600, 500, L (“dasemimi”), 0, #xc_window_style_default)
- m_hList = XList_Create (20, 40, 500, 300, hWindow)
- bOK = XList_SetItemTemplateXML (m_hList, L (“XML-template\List_Item.xml”))
- ' XSView_SetLineSize (m_hList, 20, 20)
- XList_AddColumn (m_hList, 100)
- XList_AddColumn (m_hList, 100)
- hAdapterHeader = XAdMap_Create ()
- XList_BindAdapterHeader (m_hList, hAdapterHeader)
- bOK = XAdMap_AddItemText (hAdapterHeader, L (“name”), L (“aaa”))
- bOK = XAdMap_AddItemText (hAdapterHeader, L (“name2”), L (“bbb”))
- hAdapter = XAdTable_Create ()
- XList_BindAdapter (m_hList, hAdapter)
- XAdTable_AddColumn (hAdapter, L (“name”))
- XAdTable_AddColumn (hAdapter, L (“name2”))
- ' XList_SetColumnWidth (m_hList, 0, 150)
- .变量循环首 (0, 19, 1, i)
- nIndex = XAdTable_AddItemTextEx (hAdapter, L (“name”), L (“Litem-” + 到文本 (i)))
- XAdTable_SetItemText (hAdapter, nIndex, 1, L (“Litem-” + 到文本 (i)))
- .变量循环尾 ()
- hBkM = XEle_GetBkManager (XList_GetHeaderHELE (m_hList))
- XBkM_AddFill (hBkM, #listHeader_state_flag_item_leave, RGB (211, 211, 211), 255)
- XBkM_AddFill (hBkM, #listHeader_state_flag_item_stay, RGB (128, 255, 128), 255)
- XBkM_AddFill (hBkM, #listHeader_state_flag_item_down, RGB (188, 188, 188), 255)
- XWnd_ShowWindow (hWindow, 5)
- XRunXCGUI () ' 内部消息处理等等
- XExitXCGUI () ' 释放资源
复制代码
|
|