summaryrefslogtreecommitdiff
path: root/orig/pq/Front.pas
diff options
context:
space:
mode:
Diffstat (limited to 'orig/pq/Front.pas')
-rw-r--r--orig/pq/Front.pas47
1 files changed, 47 insertions, 0 deletions
diff --git a/orig/pq/Front.pas b/orig/pq/Front.pas
new file mode 100644
index 0000000..fb04ac9
--- /dev/null
+++ b/orig/pq/Front.pas
@@ -0,0 +1,47 @@
+unit Front;
+{ copyright (c)2002 Eric Fredricksen all rights reserved }
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, ExtCtrls;
+
+type
+ TFrontForm = class(TForm)
+ Panel1: TPanel;
+ Button1: TButton;
+ Button2: TButton;
+ OpenDialog1: TOpenDialog;
+ Button4: TButton;
+ Label2: TLabel;
+ Button3: TButton;
+ Panel2: TPanel;
+ Logo: TImage;
+ Label3: TLabel;
+ HomeLink: TLabel;
+ Label1: TLabel;
+ procedure HomeLinkClick(Sender: TObject);
+ procedure LogoClick(Sender: TObject);
+ end;
+
+var
+ FrontForm: TFrontForm;
+
+implementation
+
+uses ShellAPI, Main, Info;
+
+{$R *.dfm}
+
+procedure TFrontForm.HomeLinkClick(Sender: TObject);
+begin
+ ShellExecute(GetDesktopWindow(), 'open', 'http://progressquest.com/', nil, '', SW_SHOW);
+end;
+
+procedure TFrontForm.LogoClick(Sender: TObject);
+begin
+ ShellExecute(GetDesktopWindow(), 'open', 'http://progressquest.com/', nil, '', SW_SHOW);
+end;
+
+end.