From 14a6aa4c488bcd2d49103cbee1424b2769d77ce0 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 12 Aug 2016 14:05:45 +0200 Subject: Initial import --- orig/pq/Front.pas | 47 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 orig/pq/Front.pas (limited to 'orig/pq/Front.pas') 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. -- cgit v1.2.3