自绘皮肤模块测试程序例程

皮肤_置窗口透明度 (取窗口句柄 (), 220)
==从2.7版开始，全局皮肤 不再以“类”的形式表现。除此之外，命令与原来的版本完全兼容。==
' ------创建图形边框---------
边框图 ＝ 读入文件 (取运行目录 () ＋ “\tp\兰边框.png”)
工具条边框.创建 (边框图, 边框图, , , , 3)
钮边框.创建 (读入文件 (取运行目录 () ＋ “\tp\通常框.png”), 边框图, , , 3, 3) ' --天兰发光边框
外形边框.创建 (读入文件 (取运行目录 () ＋ “\tp\外形框1.png”), , , , , 3) ' ---外形框边框,实质上不仅是边框,还是背景.
外形边框2.创建 (读入文件 (取运行目录 () ＋ “\tp\外形框2.png”), , , , , ) ' ---外形框边框,实质上不仅是边框,还是背景.
' --------------- 设置一个全局皮肤
置皮肤 (, #底图, , 5353041, #背景图_左上角对齐)
置控件皮肤 (真, 0, 假) ' --第2个参数不为空，让windows通用组件也具有透明皮肤的能力
皮肤_描绘热点边框 (假)


报表列表框.置数据 (1, 2, “第二列”, #小图_2)
报表列表框.置数据 (1, 3, “第三列”)
报表列表框.置数据 (1, 4, “第四列”)
报表列表框.置数据 (2, 2, “第二列”)
报表列表框.置数据 (2, 3, “第三列”)
报表列表框.置数据 (2, 4, “第四列”)
报表列表框.置表项颜色 (2, , #紫色, #白色) ' 整行
报表列表框.置表列颜色 (1, #橙黄) ' 整列
报表列表框.置表项颜色 (2, 1, #红色, #黄色) ' 单个单元格
报表列表框.置表项颜色 (3, , , #浅灰)
报表列表框.置表头颜色 (#天蓝)
报表列表框.置表格线颜色 (#藏蓝)
报表列表框.置事件_鼠标右键放开 (到整数 (&报表列表_右键放开))
输出调试文本 (“**********超级列表框用时**********”)
输出调试文本 (到文本 (取启动时间 () － t) ＋ “毫秒”)
输出调试文本 (“【注意：这是 提取文件图标（） 命令引起的慢，并非模块自身慢的问题！】”)
' －－－－对易语言控件的处理
加入控件 (曲线图控件1.取窗口句柄 ())
' 加入控件 (外形框1.取窗口句柄 (), #品红, 取默认底色 (), 滑块条1.位置) ' 因为外形框是容器类控件， 这个命令同时把它处理为 面板。
加入控件 (饼形图控件1.取窗口句柄 ())