From a0f6fd68a56068a20e7186e2dd2d7daccfbce4aa Mon Sep 17 00:00:00 2001
From: Pavel Perminov <packpaul@mail.ru>
Date: Wed, 26 Sep 2012 19:02:53 +0000
Subject: Chess4Net_MI 2010.0 release (106 rev. truncated adjusted copy)

git-svn-id: http://svn.miranda-ng.org/main/trunk@1666 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Chess4Net/MI/ControlUnit.pas | 171 +++++++++++++++++++++++++++++++++++
 1 file changed, 171 insertions(+)
 create 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
new file mode 100644
index 0000000000..f9f8694e86
--- /dev/null
+++ b/plugins/Chess4Net/MI/ControlUnit.pas
@@ -0,0 +1,171 @@
+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