自绘的超级列表框支持图片组

易语言 2020-03-11 15:46:28

自绘的超级列表框支持图片组

VJ_初始化引擎 (取字节集指针 (#VJlib), #Themes, “VJSkin”, 位或 (#标志_启用DPI缩放, #标志_文本渲染_抗锯齿))
Window.创建 (0, 0, 1000, 500, A2W (“超级列表框”), , , , , , 位或 (#窗口_调整尺寸, #窗口_随意移动, #窗口_居中, #窗口_标题, #窗口_主窗口, #窗口_标题栏取消置顶, #窗口_关闭按钮, #窗口_最小化按钮))
Window.写属性 (#窗口属性_背景颜色, RGB2ARGB (#紫红))
VJ_注册控件 (“Reportform”, , #组件风格_可视, 位或 (#组件风格EX_允许TAB焦点, #组件风格EX_允许焦点)) ' //注册报表控件
_列表_图标 = 图片组_创建默认 (#图标大小_32x32)
_报表.创建 (Window.取句柄 (), , 20, 0, 700, 300, , _列表_图标, , 真, 25, 30, , , 真, 真, , &报表_事件)
_报表.锁定 (5, 30, 5, 5)
_报表.置颜色样式 (RGB2ARGB (#紫色, 200), RGB2ARGB (#藏青, 20), RGB2ARGB (#紫红, 20), -2500135, RGB2ARGB (#紫红, 100), RGB2ARGB (#紫红, 60))
_报表.置颜色 (#颜色_背景颜色, RGB2ARGB (#白色))
_报表.插入列 (, A2W (“图标”), 40, , , #对齐_居中)
_报表.插入列 (, A2W (“文件名”), 120, 图像_创建 (#图片2))
_报表.插入列 (, A2W (“目录”), 300, 图像_创建 (#图片3))
_报表.插入列 (, A2W (“文件大小”), , 图像_创建 (#图片4))
_报表.插入列 (, A2W (“创建日期”), 180, 图像_创建 (#图片5))
_报表.插入列 (, A2W (“修改日期”), 180, 图像_创建 (#图片6))
_报表.插入列 (, A2W (“访问日期”), 180, 图像_创建 (#图片7))