1 files changed, 92 insertions, 0 deletions
diff --git a/plugins/Chess4Net/InfoUnit.pas b/plugins/Chess4Net/InfoUnit.pas
new file mode 100644
index 0000000000..66dfdc222d
--- /dev/null
+++ b/plugins/Chess4Net/InfoUnit.pas
@@ -0,0 +1,92 @@
+unit InfoUnit;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ShellAPI;
+
+type
+  TInfoForm = class(TForm)
+    OkButton: TButton;
+    PluginNameLabel: TLabel;
+    PlayingViaLabel: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    URLLabel: TLabel;
+    EMailLabel: TLabel;
+    procedure OkButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure EMailLabelClick(Sender: TObject);
+    procedure URLLabelClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+  end;
+
+procedure ShowInfo;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  GlobalsLocalUnit, ModalForm;
+
+var
+  infoForm: TInfoForm = nil;
+
+procedure ShowInfo;
+begin
+  if (not Assigned(infoForm)) then
+  begin
+    infoForm := TInfoForm.Create(nil);
+    if (TDialogs.HasStayOnTopOwners) then
+      infoForm.FormStyle := fsStayOnTop;
+{$IFDEF SKYPE}
+    infoForm.Icon := Chess4NetIcon;
+    infoForm.Caption := DIALOG_CAPTION;      
+{$ELSE} // MI, TRILLIAN, AND_RQ, QIP
+    infoForm.Icon := pluginIcon;
+    infoForm.Caption := PLUGIN_NAME;
+{$ENDIF}
+  end;
+  if not infoForm.Showing then
+    infoForm.Show
+  else
+    infoForm.SetFocus;
+end;
+
+procedure TInfoForm.OkButtonClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TInfoForm.FormCreate(Sender: TObject);
+begin
+  PlayingViaLabel.Caption := PLUGIN_PLAYING_VIA; 
+  PluginNameLabel.Caption := PLUGIN_INFO_NAME;
+  URLLabel.Caption := PLUGIN_URL;
+  EMailLabel.Caption := PLUGIN_EMAIL;
+end;
+
+procedure TInfoForm.URLLabelClick(Sender: TObject);
+begin
+  ShellExecute(Handle, nil, PChar(URLLabel.Caption), nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TInfoForm.EMailLabelClick(Sender: TObject);
+var
+  shellStr: string;
+begin
+  shellStr := 'mailto:' + EMailLabel.Caption;
+  ShellExecute(Handle, nil, PChar(shellStr), nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TInfoForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  infoForm := nil;
+  Action := caFree;
+end;
+
+end.