Ex_Dui、Gdiplus自绘音乐播放器界面

易语言 2020-07-17 10:58:50

Ex_Dui、Gdiplus自绘音乐播放器界面

标签_主标题.创建 (窗口句柄, #客户区左边 + 165, #客户区顶边 + 35, 宽度 - #客户区右边 - 175, 25, “欢迎使用永恒听音!”, RGB2ARGB (#白色), , , , , , , 16, 1, #文本对齐_右对齐, , #文本效果_描边, RGB2ARGB (#白色, 30))
标签_时间.创建 (窗口句柄, #客户区左边 + 215, #客户区顶边 + 65, 宽度 - #客户区右边 - 225, 32, “0000:00”, RGB2ARGB (#白色), , , , , , , 26, 1, #文本对齐_右对齐, , #文本效果_描边, RGB2ARGB (#白色, 20), )
标签_时间.可否停留焦点 (真)
标签_时间.鼠标指针 (#鼠标指针_手型, 假)
标签_音量.创建 (窗口句柄, #客户区左边 + 200, #客户区顶边 + 100, 宽度 - #客户区右边 - 210, 25, “双声道 音量:70%”, RGB2ARGB (#白色), , , , , , , 14, 1, #文本对齐_右对齐, , #文本效果_描边, RGB2ARGB (#白色, 20))
滑块条_音量.创建 (窗口句柄, #客户区左边 + 230, #客户区顶边 + 135, 宽度 - #客户区右边 - 240, 20, 0, 100, -1, , #滑块条_水平, 真)
滑块条_音量.事件_位置被改变 (&事件_滑块条移动事件)
按钮_音量.创建 (窗口句柄, #客户区左边 + 200, #客户区顶边 + 130, 26, 26)
按钮_音量.挂接事件 (#事件_左键单击, &事件_控制按钮单击)
滑块条_音量.位置 (70, 真)
滑块条_进度.创建 (窗口句柄, #客户区左边 + 15, #客户区顶边 + 185, 宽度 - #客户区右边 - 30, 20, 0, 1000, 0, 0)
滑块条_进度.显示进度滑条 (真)
滑块条_进度.事件_位置被改变 (&事件_滑块条移动事件)
滑块条_进度.滑块禁止 (真)
rcf = 滑块条_进度.滑块矩形 (真)
滑块条_光晕.创建 (窗口句柄, 滑块条_进度.左边 () + rcf.left + 7, 滑块条_进度.顶边 () + rcf.top + 7, 假, 真)
滑块条_光晕.禁止 (真) ' 因为没有穿透,所以临时这么弄下