From c19923ea294b8143471de5c567c62b4e558b2005 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Sat, 9 Mar 2013 11:21:50 +0000
Subject: - added helper for Icon_Register - hLangpack made Integer, as it
 should be - minor changes

git-svn-id: http://svn.miranda-ng.org/main/trunk@3934 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_core.inc | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'include/delphi/m_core.inc')

diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index 84c5760282..55f77b39be 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -250,6 +250,37 @@ function SetExceptionFilter(pMirandaExceptFilter:pfnExceptionFilter):pfnExceptio
                             external CoreDLL name 'SetExceptionFilter';
 
 
+///////////////////////////////////////////////////////////////////////////////
+// icons support
+
+type
+  pIconItem = ^tIconItem;
+  tIconItem = record
+    szDescr:pAnsiChar;
+    szName :pAnsiChar;
+    defIconID,
+    size   :int;
+    hIcolib:THANDLE;
+  end;
+  tagIconItem = tIconItem;
+
+  pIconItemW = ^tIconItemW;
+  tIconItemW = record
+    szDescr:pWideChar;
+    szName :pAnsiChar;
+    defIconID,
+    size   :int;
+    hIcolib:THANDLE;
+  end;
+  tagIconItemW = tIconItemW;
+
+procedure mir_Icon_Register(hInst:HINST; const szSection:pAnsiChar; pIcons:pIconItem;
+    iCount:size_t; prefix:PAnsiChar; hLangpack:int); stdcall;
+                        external CoreDLL name 'Icon_Register';
+procedure mir_Icon_RegisterT(hInst:HINST; const szSection:pWideChar; pIcons:pIconItemW;
+    iCount:size_t; prefix:PAnsiChar; hLangpack:int); stdcall;
+                        external CoreDLL name 'Icon_RegisterT';
+
 ///////////////////////////////////////////////////////////////////////////////
 // language packs support
 
-- 
cgit v1.2.3