From 59b6fb0fe20c274743fbd1b9742be94b1e5134a4 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 22 Jul 2015 17:53:20 +0000 Subject: - extra icons services converted into functions; - more Kill* functions exported; git-svn-id: http://svn.miranda-ng.org/main/trunk@14635 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_extraicons.inc | 34 ---------------------------------- 1 file changed, 34 deletions(-) (limited to 'include/delphi') diff --git a/include/delphi/m_extraicons.inc b/include/delphi/m_extraicons.inc index 577585f953..e247599761 100644 --- a/include/delphi/m_extraicons.inc +++ b/include/delphi/m_extraicons.inc @@ -81,38 +81,4 @@ type onClickParam:LPARAM; end; -const -// Register an extra icon -// wParam = (EXTRAICON_INFO *) Extra icon info -// lParam = 0 -// Return: (HANDLE) id of extra icon on success, 0 on error - MS_EXTRAICON_REGISTER:PAnsiChar = 'ExtraIcon/Register'; - -type - TEXTRAICON = record - cbSize :int; - hExtraIcon:THANDLE; // Value returned by MS_EXTRAICON_REGISTER - hContact :TMCONTACT; // Contact to set the extra icon - // The icon to be set. This depends on the type of the extra icon: - case boolean of - false:(hImage :THANDLE); // Value returned by MS_CLIST_EXTRA_ADD_ICON (if EXTRAICON_TYPE_CALLBACK) - // or the icolib icon handle (if EXTRAICON_TYPE_ICOLIB) - true :(icoName:PAnsiChar); // Name of the icon registered with icolib (if EXTRAICON_TYPE_ICOLIB) - end; - -const -{ - Set an extra icon icon - wParam = (EXTRAICON *) Extra icon - Return: 0 on success -} - MS_EXTRAICON_SET_ICON:PAnsiChar = 'ExtraIcon/SetIcon'; - -{ - Set an extra icon by icolib icon's name - wParam = (EXTRAICON *) Extra icon - Return: 0 on success -} - MS_EXTRAICON_SET_ICON_BY_NAME:PAnsiChar = 'ExtraIcon/SetIconByName'; - {$ENDIF} -- cgit v1.2.3