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/NonRefInterfacedObjectUnit.pas | 44 ------------------------ 1 file changed, 44 deletions(-) delete mode 100644 plugins/Chess4Net/NonRefInterfacedObjectUnit.pas (limited to 'plugins/Chess4Net/NonRefInterfacedObjectUnit.pas') diff --git a/plugins/Chess4Net/NonRefInterfacedObjectUnit.pas b/plugins/Chess4Net/NonRefInterfacedObjectUnit.pas deleted file mode 100644 index a6a32f2901..0000000000 --- a/plugins/Chess4Net/NonRefInterfacedObjectUnit.pas +++ /dev/null @@ -1,44 +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 NonRefInterfacedObjectUnit; - -interface - -type - TNonRefInterfacedObject = class(TObject, IInterface) - protected - function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; - function _AddRef: Integer; stdcall; - function _Release: Integer; stdcall; - end; - -implementation - -//////////////////////////////////////////////////////////////////////////////// -// TNonRefInterfacedObject - -function TNonRefInterfacedObject.QueryInterface(const IID: TGUID; out Obj): HResult; -begin - if GetInterface(IID, Obj) then - Result := 0 - else - Result := E_NOINTERFACE; -end; - - -function TNonRefInterfacedObject._AddRef: Integer; -begin - Result := -1; -end; - - -function TNonRefInterfacedObject._Release: Integer; -begin - Result := -1; -end; - -end. -- cgit v1.2.3