From b26aeb50fa628e6d45a244dd6c84b523ef794722 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
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(-)

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