All non-working stuff moved from trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@13071 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 63 deletions

diff --git a/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas b/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas
deleted file mode 100644
index 30cbdccec5..0000000000
--- a/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas
+++ /dev/null
@@ -1,63 +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 PluginCommonUnit;

-

-interface

-

-uses

-  ConnectorUnit,

-  ControlUnit;

-

-function CreatePluginInstance(Connector: TConnector): IMirandaPlugin;

-procedure InitializeControls;

-procedure DeinitializeControls;

-procedure ErrorDuringPluginStart;

-

-implementation

-

-uses

-  Windows, Forms, Dialogs, Graphics, SysUtils, Controls,

-  // plugin units

-  GlobalsUnit, GlobalsLocalUnit, ManagerUnit.MI, ModalForm;

-

-function CreatePluginInstance(Connector: TConnector): IMirandaPlugin;

-begin

-  Result := TManagerMIFactory.Create(Connector, ErrorDuringPluginStart);

-end;

-

-

-procedure InitializeControls;

-begin

-  MirandaPluginPath := MirandaPluginsPath + 'Chess4Net\';

-  Chess4NetPath := MirandaPluginPath;

-  if (not DirectoryExists(Chess4NetPath)) then

-    CreateDir(Chess4NetPath);

-  Chess4NetIniFilePath := Chess4NetPath;

-  Chess4NetGamesLogPath := Chess4NetPath;

-  Chess4NetIcon := TIcon.Create;

-  Chess4NetIcon.Handle := LoadIcon(hInstance, 'MAINICON');

-  pluginIcon := Chess4NetIcon;

-

-  MirandaPluginIcon := Chess4NetIcon;

-

-  InitConnectorGlobals(MSG_INVITATION, PROMPT_HEAD, MSG_DATA_SEPARATOR);

-end;

-

-

-procedure DeinitializeControls;

-begin

-  StopAllPlugins;

-  FreeAndNil(Chess4NetIcon);

-end;

-

-

-procedure ErrorDuringPluginStart;

-begin

-  TDialogs.ShowMessage('ERROR: Cannot start Chess4Net!');

-end;

-

-end.