易语言超级列表框扩展源码置行高/置行色

易语言 2019-11-04 20:01:32

易语言超级列表框扩展源码置行高/置行色

功能:
1.支持设置 行色, 选中项目颜色;
2.支持设置超婊行高;
不会再出现, 某窗口关闭后重新打开就失效的问题

由于模块是对窗口进行子类化接管, 一个窗口只允许一个超婊变色和修改行高. 大家也可以自己拿去针对自己的需求来修改。

.如果真 (是否为空 (参数_行高))
返回 (mLineHeight)
.如果真结束
.如果真 (mListbox_hwnd = 0)
返回 (0)
.如果真结束
mLineHeight = 参数_行高
winpos.hwnd = mListbox_hwnd
OldStyle = GetWindowLong (winpos.hwnd, #无法载入的常量) ' //保存窗口原样式
SetWindowLong (winpos.hwnd, #无法载入的常量, 位或 (OldStyle, #无法载入的常量)) ' //设置新样式值,增加LVS_OWNERDRAWFIXED样式,这样窗口才会收到 WM_MEASUREITEM 消息。
SendMessageWINDOWPOS (winpos.hwnd, #无法载入的常量, 0, winpos) ' //发送 WM_WINDOWPOSCHANGED 消息触发 WM_MEASUREITEM 消息
SetWindowLong (winpos.hwnd, #无法载入的常量, OldStyle) ' //恢复超级列表框样式
SendMessage (winpos.hwnd, #无法载入的常量, 0, 0) ' //重绘超级列表框
' mListbox.重画 ()
返回 (0)