From 194923c172167eb3fc33807ec8009b255f86337e Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
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/ControlUnit.pas | 177 -----------------------------------
 1 file changed, 177 deletions(-)
 delete mode 100644 plugins/Chess4Net/MI/ControlUnit.pas

(limited to 'plugins/Chess4Net/MI/ControlUnit.pas')

diff --git a/plugins/Chess4Net/MI/ControlUnit.pas b/plugins/Chess4Net/MI/ControlUnit.pas
deleted file mode 100644
index 5a2743ca3c..0000000000
--- a/plugins/Chess4Net/MI/ControlUnit.pas
+++ /dev/null
@@ -1,177 +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 ControlUnit;
-
-interface
-
-uses
-  Graphics,
-  SysUtils, //Classes,
-  m_globaldefs, m_api,
-  ConnectorUnit;
-
-type
-  IMirandaPlugin = interface(IConnectorable) // Implementatation class must be non-referenced
-    ['{CE794050-DBA2-4D2E-867E-59A873DF7304}']
-    procedure Start;
-    procedure Stop;
-  end;
-
-const
-  PLUGIN_NAME: string = 'MirandaPlugin';
-  PLUGIN_MENU_NAME: string = 'Miranda&Plugin';
-
-var
-  _PluginInfo: PPLUGININFO = @PLUGININFO;
-  guidPlugin, miidPlugin: TGUID;
-
-  MirandaPluginsPath, MirandaPluginPath: string;
-
-  MirandaPluginIcon: TIcon = nil;
-  MirandaPluginMenuPosition: integer = $7FFFFFFF;
-
-//  gShowPluginOptions: TProcedure = nil;
-//  gShowWrongSDKVersion: TProcedure = nil;
-  gCreatePluginInstance: function(Connector: TConnector): IMirandaPlugin = nil;
-  gInitializeControls: TProcedure = nil;
-  gDeinitializeControls: TProcedure = nil;
-//  gStartOnWrongMsgProtocol: function: boolean = nil;
-  gErrorDuringPluginStart: TProcedure = nil;
-
-function MirandaPluginInfo(mirandaVersion: DWORD): PPLUGININFO; cdecl;
-function MirandaPluginInfoEx(mirandaVersion: DWORD): PPLUGININFO; cdecl;
-function MirandaPluginInterfaces: PGUID; cdecl;
-function Load(link: PPLUGINLINK): int; cdecl;
-function Unload: int; cdecl;
-
-function MakeMirandaPluginVersion(a, b, c, d: byte): int;
-
-exports
-  MirandaPluginInfo, MirandaPluginInfoEx, MirandaPluginInterfaces, Load, Unload;
-
-implementation
-
-uses
-  Dialogs, Controls, Forms,
-  PluginCommonUnit;
-
-var
-  PluginInterfaces: array[0..1] of TGUID;
-  g_hMenuCommand: THandle;
-
-function MirandaPluginInfo(mirandaVersion: DWORD): PPLUGININFO; cdecl;
-begin
-  PLUGININFO.cbSize := sizeof(TPLUGININFO);
-  PLUGININFO.isTransient := 0;
-  PLUGININFO.replacesDefaultModule := 0;
-
-  Result := @PLUGININFO;
-end;
-
-
-function MirandaPluginInfoEx(mirandaVersion: DWORD): PPLUGININFO; cdecl;
-begin
-  MirandaPluginInfo(mirandaVersion); // Initialize PLUGININFO
-
-  Move(PLUGININFO, PLUGININFOEX, sizeof(TPLUGININFO));
-  PLUGININFOEX.cbSize := sizeof(TPLUGININFOEX);
-  PLUGININFOEX.uuid := guidPlugin;
-
-  Result := @PLUGININFOEX;
-end;
-
-
-function MirandaPluginInterfaces: PGUID; cdecl;
-begin
-  PluginInterfaces[0] := miidPlugin;
-  PluginInterfaces[1] := MIID_LAST;
-
-  Result := @PluginInterfaces;
-end;
-
-
-function Start(wParam: WPARAM; lParam_: LPARAM): Integer; cdecl;
-var
-  Connector: TConnector;
-  pluginInstance: IMirandaPlugin;
-begin
-  Connector := nil;
-  Pointer(pluginInstance) := nil;
-
-  try
-    Connector := TConnector.Create(wParam);
-    pluginInstance := gCreatePluginInstance(Connector);
-    Connector.SetPlugin(pluginInstance);
-    pluginInstance.Start;
-    Pointer(pluginInstance) := nil;
-    Result := 0;
-  except
-    if (Assigned(gErrorDuringPluginStart)) then
-      gErrorDuringPluginStart;
-    if (Assigned(Connector)) then
-      Connector.SetPlugin(nil);
-    if (Assigned(pluginInstance)) then
-    begin
-      pluginInstance.Stop;
-      Pointer(pluginInstance) := nil;
-    end;
-    Result := -1;
-  end;
-end;
-
-
-function Load(link: PPLUGINLINK): int; cdecl;
-var
-  mi: TCListMenuItem;
-  prt: TPROTOCOLDESCRIPTOR;
-begin
-  if Assigned(gInitializeControls) then
-    gInitializeControls;
-
-  PLUGINLINK := Pointer(link);
-  g_hMenuCommand := pluginLink^.CreateServiceFunction(PChar(PLUGIN_NAME + '/MenuCommand'), @Start);
-  FillChar(mi, sizeof(mi), 0);
-  mi.cbSize := sizeof(mi);
-  mi.position := MirandaPluginMenuPosition;
-  mi.flags := 0; // ?
-//  mi.hIcon := LoadSkinnedIcon(SKINICON_OTHER_MIRANDA); // загрузка родной иконки
-//  mi.hIcon := LoadIcon(hInstance, 'MAINICON'); // загрузка иконки из ресурса
-  if Assigned(MirandaPluginIcon) then
-    mi.hIcon := MirandaPluginIcon.Handle;
-  mi.pszName := PChar(PLUGIN_MENU_NAME);
-  mi.pszService := PChar(PLUGIN_NAME + '/MenuCommand');
-  CallService(MS_CLIST_ADDCONTACTMENUITEM, 0, LPARAM(@mi));
-
-  // регистрация фильтра сообщений
-  prt.cbSize := sizeof(prt);
-  prt.szName := PChar(PLUGIN_NAME);
-  prt.type_ := PROTOTYPE_FILTER;
-  CallService(MS_PROTO_REGISTERMODULE, 0, LPARAM(@prt));
-
-  Result := 0;
-end;
-
-
-function Unload: int; cdecl;
-begin
-  if Assigned(gDeinitializeControls) then
-    gDeinitializeControls;
-  pluginLink^.DestroyServiceFunction(g_hMenuCommand);
-  g_hMenuCommand := 0;
-  Result := 0;
-end;
-
-
-function MakeMirandaPluginVersion(a, b, c, d: byte): int;
-begin
-  Result := PLUGIN_MAKE_VERSION(a,b,c,d);
-end;
-
-initialization
-  MirandaPluginsPath := ExtractFileDir(Application.ExeName) + '\Plugins\';
-
-end.
-- 
cgit v1.2.3