1 files changed, 0 insertions, 98 deletions
diff --git a/plugins/Chess4Net/InfoUnit.pas b/plugins/Chess4Net/InfoUnit.pas
deleted file mode 100644
index f4b349a71d..0000000000
--- a/plugins/Chess4Net/InfoUnit.pas
+++ /dev/null
@@ -1,98 +0,0 @@
-////////////////////////////////////////////////////////////////////////////////
-// All code below is exclusively owned by author of Chess4Net - Pavel Perminov
-// (packpaul@mail.ru, packpaul1@gmail.com).
-// Any changes, modifications, borrowing and adaptation are a subject for
-// explicit permition from the owner.
-
-unit InfoUnit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, 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_OVER; 
-  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.