diff options
| author | George Hazan <george.hazan@gmail.com> | 2013-04-12 21:28:12 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2013-04-12 21:28:12 +0000 |
| commit | 91eb23f044911477f615e7e25e1425b667c3f1fa (patch) | |
| tree | 783ff1dbb6ef98f9a7a7979bff8f9383caee9aa4 /include/delphi/m_helpers.inc | |
| parent | 627687a2d798a8fa4ecbe4578c75d93bf97f6da5 (diff) | |
pascal sources sync
git-svn-id: http://svn.miranda-ng.org/main/trunk@4435 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi/m_helpers.inc')
| -rw-r--r-- | include/delphi/m_helpers.inc | 56 |
1 files changed, 53 insertions, 3 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index b7dcd80bdd..345bcc107a 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -43,7 +43,16 @@ function Langpack_Register:int_ptr; function ProtoBroadcastAck(const szModule: PAnsiChar; hContact: THandle; type_: int; result_: int; hProcess: THandle; lParam: LPARAM): int_ptr;
function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
-function LoadSkinnedIcon(id: int): THandle;
+function Srmm_AddIcon (sid: PStatusIconData):int_ptr;
+procedure Srmm_RemoveIcon(sid: PStatusIconData);
+procedure Srmm_ModifyIcon(hContact:THANDLE; sid:PStatusIconData);
+function Srmm_GetNthIcon(hContact:THANDLE; index:int):pStatusIconData;
+
+function LoadSkinnedIcon (id: int): HICON;
+function LoadSkinnedIconHandle(id: int): THandle;
+function LoadSkinnedIconBig (id: int): HICON;
+function LoadSkinnedIconName (id: int): PAnsiChar;
+
function LoadSkinnedProtoIcon(const szProto: PAnsiChar; status: int): THandle;
function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr;
function SkinPlaySound (const name: PAnsiChar): int_ptr;
@@ -367,11 +376,52 @@ begin Result := CreateServiceFunction(szStr, @serviceProc);
end;
+function Srmm_AddIcon(sid: PStatusIconData):int_ptr;
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ result:=CallService(MS_MSG_ADDICON, hLangpack, LPARAM(sid));
+end;
+
+procedure Srmm_RemoveIcon(sid: PStatusIconData);
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ CallService(MS_MSG_REMOVEICON, 0, LPARAM(sid));
+end;
+
+procedure Srmm_ModifyIcon(hContact:THANDLE; sid:PStatusIconData);
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ CallService(MS_MSG_GETNTHICON, hContact, LPARAM(sid));
+end;
+
+function Srmm_GetNthIcon(hContact:THANDLE; index:int):PStatusIconData;
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ result:=PStatusIconData(CallService(MS_MSG_GETNTHICON, hContact, index));
+end;
+
+function LoadSkinnedIcon(id: int): HICON;
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ Result := HICON(CallService(MS_SKIN_LOADICON, id, 0));
+end;
+
+function LoadSkinnedIconHandle(id: int): THandle;
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ Result := THANDLE(CallService(MS_SKIN_LOADICON, id, 1));
+end;
+
+function LoadSkinnedIconBig(id: int): HICON;
+ {$IFDEF AllowInline}inline;{$ENDIF}
+begin
+ Result := HICON(CallService(MS_SKIN_LOADICON, id, 2));
+end;
-function LoadSkinnedIcon(id: int): THandle;
+function LoadSkinnedIconName(id: int): PAnsiChar;
{$IFDEF AllowInline}inline;{$ENDIF}
begin
- Result := CallService(MS_SKIN_LOADICON, id, 0);
+ Result := PAnsiChar(CallService(MS_SKIN_LOADICON, id, 3));
end;
function LoadSkinnedProtoIcon(const szProto: PAnsiChar; status: int): THandle;
|