From a0f6fd68a56068a20e7186e2dd2d7daccfbce4aa Mon Sep 17 00:00:00 2001
From: Pavel Perminov <packpaul@mail.ru>
Date: Wed, 26 Sep 2012 19:02:53 +0000
Subject: Chess4Net_MI 2010.0 release (106 rev. truncated adjusted copy)

git-svn-id: http://svn.miranda-ng.org/main/trunk@1666 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Chess4Net/ConnectingUnit.pas | 110 +++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 plugins/Chess4Net/ConnectingUnit.pas

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

diff --git a/plugins/Chess4Net/ConnectingUnit.pas b/plugins/Chess4Net/ConnectingUnit.pas
new file mode 100644
index 0000000000..9b7bae3c05
--- /dev/null
+++ b/plugins/Chess4Net/ConnectingUnit.pas
@@ -0,0 +1,110 @@
+unit ConnectingUnit;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, 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