电脑软件管理器,一键换肤、自启动

易语言 2020-07-17 12:26:55

鼠标中键,显示\隐藏
左键单击打开(有声效)
右键单击修改
拖动软件到界面自动添加(支持多个添加)

分层_窗口.事件_位置改变 (到整数 (&窗口_位置改变))
分层_窗口.事件_尺寸改变 (到整数 (&窗口_尺寸改变))
分层_图形组.创建 (读入文件 (取运行目录 () + “\Sor\Tcb.png”), #颜色_似深紫) ' 载入控制按钮
控制钮.创建 (分层_窗口.取句柄 (), , 分层_窗口.宽度 () - 155 - 3, 3, 155, , 分层_图形组) ' 控制按钮位置
控制钮.插入按钮 (27, 28, 29, 30, , “关闭”, 1)
控制钮.插入按钮 (19, 20, 21, 22, , “最大化”, 1)
控制钮.插入按钮 (15, 16, 17, 18, , “最小化”, 1)
控制钮.插入按钮 (11, 12, 13, 14, , “菜单”, 1)
控制钮.插入按钮 (6, 7, 8, 9, , “换肤”, 1)
控制钮.事件_子钮被单击 (到整数 (&_启动窗口_控制钮_单击事件)) ' 控制按钮单击事件
分层_工具条.创建 (取窗口句柄 (), , 8, 30, 分层_窗口.宽度 () - 16, 70, 50, 50, 真)
分层_工具条.事件_按钮被单击 (到整数 (&_启动窗口_工具条_单击事件))
分层_工具条.事件_下拉事件 (到整数 (&_启动窗口_工具条_下拉事件))
分层_通用列表框.创建大图标列表 (取窗口句柄 (), , 1, 分层_工具条.顶边 () + 分层_工具条.高度 () - 10, _启动窗口.宽度 - 2, _启动窗口.高度 - 分层_工具条.顶边 () - 分层_工具条.高度 () - 18, 假, , #蓝色, 10, 72, 72, 真, 11453654) ' 创建列表框大图标
分层_通用列表框.事件_鼠标单击 (到整数 (&_启动窗口_通用列表框_单击事件))
分层_通用列表框.事件_鼠标右键放开 (到整数 (&_启动窗口_通用列表框_右键放开事件))
分层_通用列表框.置字体属性 (“微软雅黑”, #颜色_流行, , #字体风格_加粗, 真, #粉红, )
分层_通用列表框.刷新显示 ()
分层_标签.创建 (取窗口句柄 (), , 1, 分层_通用列表框.顶边 () + 分层_通用列表框.高度 () + 1, 宽度, 25, “当前时间:”, #标题对齐_居左)
分层_标签.置字体属性 (“微软雅黑”, 11433654, 15, #字体风格_加粗)