diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2012-10-08 09:10:06 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2012-10-08 09:10:06 +0000 |
| commit | 194923c172167eb3fc33807ec8009b255f86337e (patch) | |
| tree | 1effc97a1bd872cc3a5eac7a361250cf283e0efd /plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas | |
| parent | b2943645fed61d0c0cfee1225654e5ff44fd96f8 (diff) | |
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
Diffstat (limited to 'plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas')
| -rw-r--r-- | plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas b/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas new file mode 100644 index 0000000000..30cbdccec5 --- /dev/null +++ b/plugins/!NotAdopted/Chess4Net/MI/PluginCommonUnit.pas @@ -0,0 +1,63 @@ +////////////////////////////////////////////////////////////////////////////////
+// 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.
|