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.