From 194923c172167eb3fc33807ec8009b255f86337e Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 8 Oct 2012 09:10:06 +0000
Subject: Plugin is not adapted until someone can compile it and tell others
 how to do the same

git-svn-id: http://svn.miranda-ng.org/main/trunk@1809 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Chess4Net/ConnectingUnit.pas | 116 -----------------------------------
 1 file changed, 116 deletions(-)
 delete mode 100644 plugins/Chess4Net/ConnectingUnit.pas

(limited to 'plugins/Chess4Net/ConnectingUnit.pas')

diff --git a/plugins/Chess4Net/ConnectingUnit.pas b/plugins/Chess4Net/ConnectingUnit.pas
deleted file mode 100644
index 567f049b46..0000000000
--- a/plugins/Chess4Net/ConnectingUnit.pas
+++ /dev/null
@@ -1,116 +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 ConnectingUnit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, TntStdCtrls,
-  Forms, {Dialogs, }ExtCtrls, StdCtrls,
-  DialogUnit, ModalForm;
-
-type
-  TConnectingHandler = procedure of object;
-
-  TConnectingForm = class(TModalForm)
-    AbortButton: TTntButton;
-    ConnectingLabel: TTntLabel;
-    ConnectingImage: TImage;
-    procedure AbortButtonClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure FormShow(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-  private
-//  dlgOwner: TDialogs;
-    ConnectingHandler: TConnectingHandler;
-    shuted: boolean;
-    procedure FLocalize;
-  protected
-    function GetModalID : TModalFormID; override;
-  public
-    procedure Shut;
-    constructor Create(Owner: TForm; h: TConnectingHandler = nil); reintroduce; overload;
-//    constructor Create(dlgOwner: TDialogs; h: TConnectingHandler); reintroduce; overload;
-  end;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  LocalizerUnit;
-
-////////////////////////////////////////////////////////////////////////////////
-// TConnectiongForm
-
-procedure TConnectingForm.AbortButtonClick(Sender: TObject);
-begin
-  Close;
-end;
-
-
-procedure TConnectingForm.FormShow(Sender: TObject);
-var
-  frmOwner: TForm;
-begin
-  frmOwner := (Owner as TForm);
-  Left:= frmOwner.Left + (frmOwner.Width - Width) div 2;
-  Top:= frmOwner.Top + (frmOwner.Height - Height) div 2;
-end;
-
-constructor TConnectingForm.Create(Owner: TForm; h: TConnectingHandler = nil);
-begin
-  self.FormStyle := Owner.FormStyle;
-  inherited Create(Owner);
-  shuted := FALSE;
-  ConnectingHandler := h;
-end;
-
-
-procedure TConnectingForm.FormClose(Sender: TObject;
-  var Action: TCloseAction);
-begin
-  if not shuted then
-    begin
-      ModalResult := AbortButton.ModalResult;
-      if Assigned(ConnectingHandler) then
-        ConnectingHandler;
-    end
-  else
-    ModalResult := mrNone;
-end;
-
-
-procedure TConnectingForm.Shut;
-begin
-  shuted:= TRUE;
-  Close;
-end;
-
-function TConnectingForm.GetModalID: TModalFormID;
-begin
-  Result := mfConnecting;
-end;
-
-
-procedure TConnectingForm.FLocalize;
-begin
-  with TLocalizer.Instance do
-  begin
-    Caption := GetLabel(19);
-    ConnectingLabel.Caption := GetLabel(20);
-    AbortButton.Caption := GetLabel(21);
-  end;
-end;
-
-
-procedure TConnectingForm.FormCreate(Sender: TObject);
-begin
-  FLocalize;
-end;
-
-end.
-- 
cgit v1.2.3