unit AboutDlgUnit;
{-------------------------------------------------------------------------------
  About Dialog Unit
  -----------------
  The about dialog shows copyright and other information about Resource.

---------------------------------------------
reSource v2.6
Copyright (C) 1998-2001 Victor Kasenda / gruv
http://go.to/gruv
email: vickas@singnet.com.sg
---------------------------------------------

-------------------------------------------------------------------------------}


(**) interface (**)

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, ShellAPI;

type
  TAboutDlg = class(TForm)
    Label1: TLabel;
    CopyrightLabel: TLabel;
    VersionLabel: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutDlg: TAboutDlg;

(**) implementation (**)
uses CreditFormUnit, StructsUnit;

{$R *.DFM}

procedure TAboutDlg.FormShow(Sender: TObject);
begin
  VersionLabel.Caption := reSourceVerStr;
  CopyrightLabel.Caption := reSourceCopyrightStr;
end;

procedure TAboutDlg.Label2Click(Sender: TObject);
begin
  ShellExecute(0, Nil, 'http://go.to/gruv', Nil, Nil, SW_NORMAL);
end;

procedure TAboutDlg.Button1Click(Sender: TObject);
begin
  CreditsForm.ShowModal;
end;

end.