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.