unit aboutdialog;
{*
 * EMPRIP - aboutdialog Show about box with copyright and licence info
 * Windows CD Audio extraction and MP3 Encoder
 * (C) 2003 Matthew J. Smith, Librarysmith Software
 * Based on AKRIP (http://akrip.sourceforge.net) cddb and audio extraction library
 * and the LAME projects (http://wwww.mp3dev.org) LAME_ENC.DLL.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published
 * by the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 *}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls,global,shellapi;

type
  Tabout = class(TForm)
    logo: TImage;
    hyperlink: TLabel;
    OK: TButton;
    outline: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    back: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    linkgpl: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    linklesser: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    linklibrary: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label17: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure hyperlinkClick(Sender: TObject);
    procedure Label14Click(Sender: TObject);
    procedure Label22Click(Sender: TObject);
    procedure linkgplClick(Sender: TObject);
    procedure linklesserClick(Sender: TObject);
    procedure linklibraryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about: Tabout;

procedure showabout;


implementation

uses displaylicencedialog,empripmain;

{$R *.DFM}

procedure showabout;
begin
about := Tabout.Create(Application);
  try
    about.Showmodal;
    finally
    about.free;
    end;
end;
procedure Tabout.FormCreate(Sender: TObject);

begin
sizeform(self,'About this Program');
doublebuffered:=true;
Myloadbitmap(logo,'LOGO');
outline.top:=0;
outline.left:=0;
outline.width:=width;
outline.height:=height;
end;
procedure Tabout.hyperlinkClick(Sender: TObject);
begin
ShellExecute (0, nil, 'http://www.librarysmith.co.uk/emprip', nil, nil, SW_SHOWNORMAL);
end;

procedure Tabout.Label14Click(Sender: TObject);
begin
ShellExecute (0, nil, 'http://akrip.sourceforge.net', nil, nil, SW_SHOWNORMAL);

end;

procedure Tabout.Label22Click(Sender: TObject);
begin
ShellExecute (0, nil, 'http://www.mp3dev.org', nil, nil, SW_SHOWNORMAL);
end;

procedure Tabout.linkgplClick(Sender: TObject);
begin
showlicence('GPL','EMPRIP Licence Conditions');
end;

procedure Tabout.linklesserClick(Sender: TObject);
begin
showlicence('GPLESSER','AKRIP Licence Conditions');
end;

procedure Tabout.linklibraryClick(Sender: TObject);
begin
showlicence('GPLIBRARY','L.A.M.E. Licence Conditions');
end;

end.