EXDUI简单WeChat Group界面

易语言 2020-03-08 20:38:39

EXDUI简单WeChat Group界面

.判断开始 (消息标识 = 78) ' #WM_NOTIFY
CopyMemory (取数据_通用型 (列表数据), 附加消息2, 20)
.如果真 (列表数据.hObjFrom = 组件标识)
.判断开始 (列表数据.nCode = #NM_CALCSIZE)
__set (列表数据.lParam, 4, 50)
是否拦截 = 1
返回 (真)
.判断 (列表数据.nCode = #NM_CUSTOMDRAW)
CopyMemory (取数据_通用型 (表项数据), 列表数据.lParam, 40)
.判断开始 (位与 (表项数据.dwState, #状态_选择) = #状态_选择)
_canvas_fillrect (表项数据.hCanvas, 背景颜色 [3], 表项数据.left, 表项数据.top, 表项数据.right, 表项数据.bottom)
_canvas_fillrect (表项数据.hCanvas, 背景颜色 [4], 表项数据.left, 表项数据.top + 5, 3, 表项数据.bottom - 5)
.判断 (位与 (表项数据.dwState, #状态_点燃) = #状态_点燃)
_canvas_fillrect (表项数据.hCanvas, 背景颜色 [2], 表项数据.left, 表项数据.top, 表项数据.right, 表项数据.bottom)
.默认
_canvas_fillrect (表项数据.hCanvas, 背景颜色 [1], 表项数据.left, 表项数据.top, 表项数据.right, 表项数据.bottom)
.判断结束
_canvas_drawtext (表项数据.hCanvas, 表项字体, RGB2ARGB (13159113), 取指针_字节集型 (表项标题 [表项数据.iItem]), -1, 位或 (#DT_CENTER, #DT_VCENTER), 表项数据.left + 10, 表项数据.top, 表项数据.right, 表项数据.bottom)
是否拦截 = 1
返回 (真)
.判断 (列表数据.nCode = #LVN_ITEMCHANGED)
.如果真 (列表数据.lParam ≠ 0)
Ex_ObjShow (集导航页面 [列表数据.lParam], 假)
.如果真结束
Ex_ObjShow (集导航页面 [列表数据.wParam], 真)