From b26aeb50fa628e6d45a244dd6c84b523ef794722 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Sat, 14 Jun 2014 19:02:18 +0000 Subject: update git-svn-id: http://svn.miranda-ng.org/main/trunk@9485 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_message.inc | 14 +++++++++++--- include/delphi/m_popup.inc | 6 ++++-- 2 files changed, 15 insertions(+), 5 deletions(-) (limited to 'include') diff --git a/include/delphi/m_message.inc b/include/delphi/m_message.inc index 95f0959b40..e5c9c34afb 100644 --- a/include/delphi/m_message.inc +++ b/include/delphi/m_message.inc @@ -120,9 +120,17 @@ const } MS_MSG_GETWINDOWDATA:PAnsiChar = 'MessageAPI/GetWindowData'; -{ wparam=(THANDLE)hContact - lparam=(PWideChar)ptszMessageText - Sets a status line text for the appropriate contact +type + PStatusTextData = ^TStatusTextData; + TStatusTextData = record + cbSize :int; + hIcon :HICON; + tszText:array [0..99] of WideChar; + end; + +{ wparam=(TMCONTACT)hContact + lparam=PStatusTextData or NIL to clear statusbar + Sets a statusbar line text for the appropriate contact } MS_MSG_SETSTATUSTEXT:PAnsiChar = 'MessageAPI/SetStatusText'; diff --git a/include/delphi/m_popup.inc b/include/delphi/m_popup.inc index 9953787ac0..961f98c063 100644 --- a/include/delphi/m_popup.inc +++ b/include/delphi/m_popup.inc @@ -245,7 +245,9 @@ You may pass additional creation flags via lParam: lParam = value of type defined by wParam } +// CPT_TEXT = 1; // lParam = (AnsiChar *)text CPT_TEXTW = 2; // lParam = (WCHAR *)text +// CPT_TITLE = 3; // lParam = (AnsiChar *)title CPT_TITLEW = 4; // lParam = (WCHAR *)title CPT_DATAW = 7; // lParam = (POPUPDATAW *)data CPT_DATA2 = 8; // lParam = (POPUPDATA2 *)data @@ -303,7 +305,7 @@ lParam = (void*)pWindowProc; returns: 0 = Popup allowed, 1 = Popup filtered out } - ME_Popup_FILTER:PAnsiChar = 'Popup/Filter'; + ME_POPUP_FILTER:PAnsiChar = 'Popup/Filter'; { Popup/RegisterActions Registers your action in popup action list @@ -422,7 +424,7 @@ type flags:dword; // miranda bindings - lchContact:THANDLE; + lchContact:TMCONTACT; lchEvent :THANDLE; // style -- cgit v1.2.3