From 194923c172167eb3fc33807ec8009b255f86337e Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy 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/MI/PluginCommonUnit.pas | 63 ------------------------------- 1 file changed, 63 deletions(-) delete mode 100644 plugins/Chess4Net/MI/PluginCommonUnit.pas (limited to 'plugins/Chess4Net/MI/PluginCommonUnit.pas') diff --git a/plugins/Chess4Net/MI/PluginCommonUnit.pas b/plugins/Chess4Net/MI/PluginCommonUnit.pas deleted file mode 100644 index 30cbdccec5..0000000000 --- a/plugins/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. -- cgit v1.2.3