Delphi 音乐播放器,支持桌面歌词、换肤、换颜色、歌词自动下载,Win7下支持小窗口预览,有些功能未完全完成,就如调整音量(懒得搞,但是可以听了,只写了一次性播放列表没得循环的)。支持酷狗、QQ的动感歌词,以动感方式显示自己的实现方法,工程是使用Delphi XE2开发,原本是用delphi7后因为要支持win7下面的那个小窗口模式的,所以改为delphi xe2了。
主界面:
自己使用GDI+做了个png图片的控件根据皮肤的xml配置文件动态生成上去的,一部分代码:
type
TImageState = (isNormal, isActive, isDown, isDisable);
TGDIImageButton = class(TGraphicControl)
private
(*鼠标进入*)
FOnMouseEnter : TNotifyEvent;
(*鼠标离开*)
FOnMouseLeave : TNotifyEvent;
(*当前状态*)
FState : TImageState;
(*状态图标数量*)
FImgCount: Integer;
(*自动调整大小*)
FAutoSize: Boolean;
(*按钮是否按下状态*)
FDownState: Boolean;
(*图片文件名称*)
FFileName: string;
(*GDI图片对象*)
FGDIImage: TGPImage;
(*标题*)
FCaption: string;
(*是否显示标题*)
FShowCaption: Boolean;
(*对齐方式*)
FAlignment : TAl