Ex_DUI学习简单音乐播放器界面

易语言 2020-03-07 20:41:01

Ex_DUI学习简单音乐播放器界面

Ex_Init (GetModuleHandle (0), 位或 (#EXGF_MENU_ALL, #EXGF_RENDER_METHOD_D2D, #EXGF_DPI_ENABLE), 0, 0, 取指针_字节集型 (#默认主题), 取字节集长度 (#默认主题), 0, 0) ' #EXGF_OBJECT_SHOWRECTBORDER
注册图形按钮 ()
注册滑块条 ()
集迷你窗口 = Ex_WndCreate (0, 0, 0, 0, 0, 500, 150, 0, 0)
.如果真 (集迷你窗口 ≠ 0)
集迷你皮肤 = Ex_DUIBindWindow (集迷你窗口, 0, 位或 (#EWS_ESCEXIT, #EWS_CENTERWINDOW, #EWS_MAINWINDOW, #EWS_MOVEABLE, #EWS_NOCAPTIONTOPMOST))
.如果真 (集迷你皮肤 ≠ 0)
' 窗口底图黑色蒙版
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 0, -1, 1, 1, 497, 147, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetRadius (组件标识, 4, 4, 4, 4, 真)
Ex_ObjSetColor (组件标识, #COLOR_EX_BACKGROUND, RGB2ARGB (#黑色, 100), 真)
' 专辑封面
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 0, -1, 33, 4, 141, 141, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetBackgroundImage (组件标识, 取指针_字节集型 (#图片专辑唱片), 取字节集长度 (#图片专辑唱片), 0, 0, #BIR_DEFALUT, 0, 0, 255, 真)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 0, -1, 4, 4, 141, 141, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetBackgroundImage (组件标识, 取指针_字节集型 (#图片专辑头像), 取字节集长度 (#图片专辑头像), 0, 0, #BIR_DEFALUT, 0, 0, 255, 真)
' 歌词
缓存字节集 = A2W (“秋天里的落叶挥手同树道别”)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 取指针_字节集型 (缓存字节集), -1, 192, 6, 260, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
缓存字节集 = A2W (“微软雅黑”)
Ex_ObjSetFontFromFamily (组件标识, 取指针_字节集型 (缓存字节集), 15, 1, 真)
Ex_ObjSetColor (组件标识, #COLOR_EX_TEXT_NORMAL, RGB2ARGB (#黑色), 真)
缓存字节集 = A2W (“秋天里的落叶挥手同树道别”)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 取指针_字节集型 (缓存字节集), -1, 190, 4, 260, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
缓存字节集 = A2W (“微软雅黑”)
Ex_ObjSetFontFromFamily (组件标识, 取指针_字节集型 (缓存字节集), 15, 1, 真)
Ex_ObjSetColor (组件标识, #COLOR_EX_TEXT_NORMAL, RGB2ARGB (#白色), 真)
' 歌曲信息
缓存字节集 = A2W (“于果 - 侧脸”)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 取指针_字节集型 (缓存字节集), -1, 191, 30, 260, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
缓存字节集 = A2W (“微软雅黑”)
Ex_ObjSetFontFromFamily (组件标识, 取指针_字节集型 (缓存字节集), 12, 1, 真)
Ex_ObjSetColor (组件标识, #COLOR_EX_TEXT_NORMAL, RGB2ARGB (#黑色), 真)
缓存字节集 = A2W (“于果 - 侧脸”)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 取指针_字节集型 (缓存字节集), -1, 190, 29, 260, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
缓存字节集 = A2W (“微软雅黑”)
Ex_ObjSetFontFromFamily (组件标识, 取指针_字节集型 (缓存字节集), 12, 1, 真)
Ex_ObjSetColor (组件标识, #COLOR_EX_TEXT_NORMAL, RGB2ARGB (#深灰), 真)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_滑块条, 0, -1, 190, 55, 300, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetLong (组件标识, 3, 100)
Ex_ObjSetLong (组件标识, 4, 180)
缓存字节集 = A2W (“02:35”)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 取指针_字节集型 (缓存字节集), -1, 410, 29, 50, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetColor (组件标识, #COLOR_EX_TEXT_NORMAL, RGB2ARGB (2523621), 真)
缓存字节集 = A2W (“05:26”)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_STATIC, 取指针_字节集型 (缓存字节集), -1, 450, 29, 50, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetColor (组件标识, #COLOR_EX_TEXT_NORMAL, RGB2ARGB (9605778), 真)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_滑块条, 0, -1, 390, 95, 100, 20, 集迷你皮肤, 0, -1, 0, 0, 0)
Ex_ObjSetLong (组件标识, 3, 50)
组件标识 = Ex_ObjCreateEx (-1, #ATOM_图形按钮, 0, -1, 190, 80, 50, 57, 集迷你皮肤, 0, -1, 0, 0, 0)
置图形按钮背景 (组件标识, #图片播放正常, { }, { })
组件标识 = Ex_ObjCreateEx (-1, #ATOM_图形按钮, 0, -1, 250, 85, 39, 50, 集迷你皮肤, 0, -1, 0, 0, 0)
置图形按钮背景 (组件标识, #图片上一首正常, { }, { })
组件标识 = Ex_ObjCreateEx (-1, #ATOM_图形按钮, 0, -1, 300, 85, 39, 50, 集迷你皮肤, 0, -1, 0, 0, 0)
置图形按钮背景 (组件标识, #图片下一首正常, { }, { })
组件标识 = Ex_ObjCreateEx (-1, #ATOM_图形按钮, 0, -1, 370, 98, 17, 14, 集迷你皮肤, 0, -1, 0, 0, 0)
置图形按钮背景 (组件标识, #图片声音正常, { }, { })
Ex_ObjSetBackgroundImage (集迷你皮肤, 取指针_字节集型 (#图片默认背景), 取字节集长度 (#图片默认背景), 0, 0, #BIR_DEFALUT, 0, #BIF_DISABLESCALE, 255, 真)
Ex_DUISetLong (集迷你皮肤, #EWL_BLUR, 80)
Ex_DUIShowWindow (集迷你皮肤, 1, 0, 0, 0)
Ex_WndMsgLoop ()