unit jbnoalbums;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  TransparentPanel, StdCtrls, bitmapactionbutton,global;

type
  TJukeboxnoalbums = class(TForm)
    panel: TTransparentPanel;
    lab: TLabel;
    add: TBitmapActionButton;
    quit: TBitmapActionButton;
    procedure FormCreate(Sender: TObject);
    procedure quitClick(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Jukeboxnoalbums: TJukeboxnoalbums;

implementation
uses main, jukeboxform, empripmain;
{$R *.DFM}



procedure TJukeboxnoalbums.FormCreate(Sender: TObject);

begin
panel.sourcebitmap:=bg;
width:=screen.width;
height:=screen.height;
panel.left:=(width div 2) - panel.width div 2;
panel.top:=(height div 2) - panel.height div 2;
lab.font.color:=FONTCOL;
add.font.color:=FONTCOL;
quit.font.color:=FONTCOL;
end;

procedure TJukeboxnoalbums.quitClick(Sender: TObject);
begin
writeini;
exitwindowsex(EWX_POWEROFF or EWX_SHUTDOWN,0);
application.terminate;
close;
end;

procedure TJukeboxnoalbums.addClick(Sender: TObject);
begin
close;
if assigned(ripmain)=false then application.createform(tripmain,ripmain);

rip_go;
end;

procedure TJukeboxnoalbums.FormPaint(Sender: TObject);
begin
canvas.draw(0,0,bg);
end;

end.