|
楼主 |
发表于 2015-10-23 19:58:57
|
显示全部楼层
本帖最后由 tmplinshi 于 2015-10-24 00:20 编辑
感谢!
- ; 炫彩版本: 1.8.9.1
- XC_BUTTON_TYPE_CLOSE := 3
- m_hWindow := xcgui.XWnd_Create(0, 0, 300, 200, "炫彩界面库窗口")
- xcgui.XBtn_SetType( xcgui.XBtn_Create(5, 3, 60, 20, "close", m_hWindow), XC_BUTTON_TYPE_CLOSE )
- hComboBox := xcgui.XComboBox_Create(20, 40, 120, 20, m_hWindow)
- xcgui.XComboBox_EnableEdit(hComboBox, False)
- xcgui.XComboBox_SetItemTemplateXML(hComboBox, "ComboBox-test.xml")
- xcgui.XRichEdit_SetText(hComboBox, "蓝色")
- hAdapter := xcgui.XAdapterTable_Create()
- xcgui.XComboBox_BindApapter(hComboBox, hAdapter)
- xcgui.XAdapterTable_AddColumn(hAdapter, "name")
- For idx, _text in ["红色", "蓝色", "黄色"]
- xcgui.XAdapterTable_AddItemText(hAdapter, _text)
- xcgui.XEle_RegEventC1(hComboBox, XE_COMBOBOX_POPUP_LIST:=72, "cb.OnComboBoxPopupList")
- xcgui.XWnd_ShowWindow(m_hWindow)
- xcgui.XRunXCGUI()
- xcgui.XExitXCGUI()
- Return
- class cb {
- OnComboBoxPopupList(hWindow, hListBox) {
- xcgui.XEle_RegEventC2(hListBox, XE_LISTBOX_TEMP_CREATE_END:=82, "cb.OnListBoxTemplateCreateEnd")
- }
- OnListBoxTemplateCreateEnd(hListBox, pItem) {
- static colors := [0x1010F9, 0xFC051E, 0x05DEF9]
- iItem := NumGet(pItem+0, 16, "Int")
- hEle := xcgui.XListBox_GetTemplateObject(hListBox, iItem, 10)
- xcgui.XEle_AddBkFill(hEle, colors[iItem+1])
- }
- }
复制代码 |
|