unit cover; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ToolWin, ComCtrls,loadjpegorbmp, StdCtrls,global; type Tcoverform = class(TForm) cdimage: TImage; procedure FormActivate(Sender: TObject); procedure cdimageClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var coverform: Tcoverform; cur,max,curpos : integer; procedure covershow(path : string; refresh_cover : boolean); implementation uses main, jukeboxform; {$R *.DFM} procedure covershow(path : string; refresh_cover : boolean); var o : tbitmap; begin; try //mainform.hide; coverform.Left:=screen.Monitors[config.monitor].BoundsRect.left; coverform.WindowState:=wsMaximized; try o:=tbitmap.create(); loadjpegbmp(path,o); coverform.cdimage.picture.bitmap.assign(o); o.free; finally; end; coverform.BringToFront; if coverform.visible=false then coverform.show; except; end; end; procedure refresh_cov; var spp : string; o : tbitmap; begin; spp:=album[cur].artist+'__'+album[cur].album; try loadjpegbmp(config.path+spp,o); coverform.cdimage.picture.bitmap.assign(o); o.free; except; end; coverform.setfocus; end; procedure Tcoverform.FormActivate(Sender: TObject); begin cur:=mainform.albumlist.itemindex+1; max:=albumcount; end; procedure Tcoverform.cdimageClick(Sender: TObject); begin if (jukebox<>nil) then if jukebox.visible=false then mainform.show; if jukebox=nil then mainform.show; mainform.showcover.checked:=false; coverform.close; end; end.