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/ControlUnit.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/ControlUnit.pas')
| -rw-r--r-- | plugins/!NotAdopted/Chess4Net/MI/ControlUnit.pas | 177 |
1 files changed, 177 insertions, 0 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/MI/ControlUnit.pas b/plugins/!NotAdopted/Chess4Net/MI/ControlUnit.pas new file mode 100644 index 0000000000..5a2743ca3c --- /dev/null +++ b/plugins/!NotAdopted/Chess4Net/MI/ControlUnit.pas @@ -0,0 +1,177 @@ +////////////////////////////////////////////////////////////////////////////////
+// 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.
|