67 lines
1.6 KiB
Plaintext
67 lines
1.6 KiB
Plaintext
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.
|