diff options
author | George Hazan <george.hazan@gmail.com> | 2013-03-09 11:21:50 +0000 |
---|---|---|
committer | George Hazan <george.hazan@gmail.com> | 2013-03-09 11:21:50 +0000 |
commit | c19923ea294b8143471de5c567c62b4e558b2005 (patch) | |
tree | 30dcd3b5dee0edff2527f35947bca02932b45bda /include/delphi/m_helpers.inc | |
parent | d6f51161612cf03c1aba04d0a93b963b7d486ed2 (diff) |
- 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
Diffstat (limited to 'include/delphi/m_helpers.inc')
-rw-r--r-- | include/delphi/m_helpers.inc | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index bc1668598b..8ea0da211d 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -25,6 +25,9 @@ function WindowList_Broadcast(hList: THandle; message: int; wParam: WPARAM; lPar function Utils_SaveWindowPosition(hWnd: THandle; hContact: THandle; const szModule, szNamePrefix: PAnsiChar): int_ptr;
function Utils_RestoreWindowPosition(hWnd: THandle; hContact: THandle; Flags: int; const szModule, szNamePrefix: PAnsiChar): int_ptr;
+procedure Icon_Register(hInst:HINST; const szSection:pAnsiChar; pIcons:pIconItem; iCount:size_t; prefix:PAnsiChar=nil);
+procedure Icon_RegisterT(hInst:HINST; const szSection:pWideChar; pIcons:pIconItemW; iCount:size_t; prefix:PAnsiChar=nil);
+
function mir_hashstr(const key:pAnsiChar):uint; {inline;}
function mir_hashstrW(const key:pWideChar):uint; {inline;}
function lrtrim(str:pAnsiChar):pAnsiChar; {inline}
@@ -476,6 +479,16 @@ begin CallService(MS_FONT_REGISTERW, WPARAM(pFontID), hLangpack);
end;
+procedure Icon_Register(hInst:HINST; const szSection:pAnsiChar; pIcons:pIconItem; iCount:size_t; prefix:PAnsiChar);
+begin
+ mir_Icon_Register(hInst, szSection, pIcons, iCount, prefix, hLangpack);
+end;
+
+procedure Icon_RegisterT(hInst:HINST; const szSection:pWideChar; pIcons:pIconItemW; iCount:size_t; prefix:PAnsiChar);
+begin
+ mir_Icon_RegisterT(hInst, szSection, pIcons, iCount, prefix, hLangpack);
+end;
+
procedure ColourRegister(pColorID:pColourID);
begin
CallService(MS_COLOUR_REGISTERA, WPARAM(pColorID), hLangpack);
|