mirror of
https://bitbucket.org/grumdrig/pq.git
synced 2026-09-29 08:44:00 -06:00
Eric Fredricksen
9a85adf823
ProgressQuest v6.3 ------------------ This directory represents an ex post facto rendering of pq6 in its various versions in svn, so that changes will be trackable thataway. The version as of this moment in svn is 6.3 (I didn't add this file in PQ 6.0, but after that you can use this README to trace the checkin history using svn.)
48 lines
1.0 KiB
ObjectPascal
48 lines
1.0 KiB
ObjectPascal
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.
|