Ex_Dui-3.0主题包移植Win10包含所有基础组件

' 全局_鼠标指针 ＝ LoadImageFromBin (读入文件 (“cursor.cur”), #IMAGE_CURSOR)
全局_鼠标指针_按下 ＝ LoadImageFromBin (读入文件 (“cursor_down.cur”), #IMAGE_CURSOR)
g_hWnd ＝ 窗口_创建 (, #Str_Ex_DirectUI, , , 800, 600, 真)
skn.挂接窗口 (, g_hWnd, #呃呃呃, , 读入文件 (“bg2.jpg”), , , 204, , , , , 0, )
btn.创建 (g_hWnd, 270, 50, 80, 26, “Test”, , , , , , , )
check.创建 (g_hWnd, 270, 90, 80, 26, “Test”)
radio.创建 (g_hWnd, 270, 130, 80, 26, “Test”)
edit.创建 (g_hWnd, 50, 50, 200, 100, , , , , , , 真, 位或 (#滚动条_纵向, #滚动条_横向), , 真, #文本对齐_居中, , , , , )
edit.接受拖放 (真)
edit.事件_收到拖放文件 (&事件_收到拖放文件)
combobox.创建 (g_hWnd, 50, 160, 200, 26, “asd”, , { “真饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿饿”, “2”, “3”, “1”, “4”, “啊”, “的”, “啊” }, , 假, , )
imgbox.创建 (g_hWnd, 50, 200, 200, 150, 读入文件 (“2000.gif”), 真)
imgbox.透明度 (153)
imglst.创建 (16, 16)
listview.创建 (g_hWnd, 450, 50, 310, 300, #列表类型_列表, 假, 真, 假, 真, , imglst, RGB2ARGB (0, 204))
listview.插入列 (, “文件名”, 280)
listview.插入列 (, “文件尺寸”, 105, #文本对齐_右对齐)
listview.锁定位置 (假, 假, 真, 假)
填充列表 ()
lnkmgr.创建 (g_hWnd)
lnkmgr.透明度 (153)
web.创建 (lnkmgr.取窗口句柄 (), 50, 370, 700, 200)
web.写超文本 (#Str_HTML)
web.挂接事件 (#WebEvent_NewWindow3, &事件_即将打开新窗口3)
web.挂接事件 (#WebEvent_DocumentComplete, &事件_网页文档加载完毕)
lnkmgr.刷新显示 ()
submenu ＝ 全局_默认菜单
menu.插入条目 (“我有子菜单”, 读入文件 (“menu_switch.png”), , submenu.取指针 (), , )
menu.插入条目 (“”, , , #菜单类型_分割条)
menu.插入条目 (“检查更新(&U)”, )
menu.插入条目 (“作者微博(&V)”, 读入文件 (“MainPanelVasIcon.png”), , , , 到整数 (&菜单回调_微博))
menu.插入条目 (“退出程序(&X)”, 读入文件 (“menu_exit.png”), , , , 到整数 (&菜单回调_退出))
menu.置宽度 (130)
skn.事件_托盘事件 (&事件_托盘事件)
skn.置托盘图标 (, #Str_Ex_DirectUI)
skn.置进入特效 (#特效_进入_渐显)

.判断循环首 (文件名 ≠ “”)
SHGetFileInfo (目录 ＋ 文件名, 128, hFile, 348, 257)
i ＝ listview.插入表项 (, 文件名, imglst.加入图片_图标句柄 (hFile.hIcon), , 取随机数 (0, 3), RGB2ARGB (取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)), 255), RGB2ARGB (取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)), 取随机数 (0, 0)), 假)
listview.置标题 (i, 2, 数值到格式文本 (取文件尺寸 (目录 ＋ 文件名) ÷ 1024, 0, 真) ＋ “ Kb”, , 假)
DestroyIcon (hFile.hIcon)
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
listview.重画 ()