summaryrefslogtreecommitdiff
path: root/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas')
-rw-r--r--plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas63
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.