From 65e002b63efdb00571d0ba4ec1a73b14e1d7d3a0 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 4 Jul 2012 20:10:29 +0000
Subject: Pascal headers moved to include\delphi directory (with small updates)
 removed deprecated m_mwclc.h file and link on it in AutoShutdown plugin

git-svn-id: http://svn.miranda-ng.org/main/trunk@763 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_tipper.inc | 51 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 include/delphi/m_tipper.inc

(limited to 'include/delphi/m_tipper.inc')

diff --git a/include/delphi/m_tipper.inc b/include/delphi/m_tipper.inc
new file mode 100644
index 0000000000..d9fea8208d
--- /dev/null
+++ b/include/delphi/m_tipper.inc
@@ -0,0 +1,51 @@
+{
+ Tipper API
+ note: Tipper is internally unicode and requires unicows.dll to function
+ correctly on 95/98/ME so you'll find a lot of wchar_t stuff in here
+
+ translation function type
+ use hContact, module and setting to read your db value(s) and put the resulting
+ string into buff return buff if the translation was successful, or return 0 for failure
+}
+{$IFNDEF M_TIPPER}
+{$DEFINE M_TIPPER}
+type
+  TranslateFunc = function (hContact:THANDLE;module:PAnsiChar;setting_or_prefix:PAnsiChar;
+       buff:pWideChar;bufflen:int):pWideChar; cdecl;
+
+type
+  PDBVTranslation = ^TDBVTranslation;
+  TDBVTranslation = record
+    tfunc:TranslateFunc; // address of your translation function (see typedef above)
+    name :pWideChar;     // make sure this is unique, and DO NOT translate it
+    id   :dword;         // will be overwritten by Tipper - do not use
+  end;
+
+{
+  add a translation to tipper
+  wParam not used
+  lParam = pointer to PDBVTranslation
+}
+const
+  MS_TIPPER_ADDTRANSLATION:PAnsiChar = 'Tipper/AddTranslation';
+
+{
+  Show tooltip
+  wParam - optional (PAnsiChar) text for text-only tips
+  lParam - (PCLCINFOTIP) infoTip
+}
+  MS_TIPPER_SHOWTIP:PAnsiChar = 'mToolTip/ShowTip';
+
+{
+  unicode extension to the basic functionality
+  wParam - optional (pWideChar) text for text-only tips
+  lParam - (PCLCINFOTIP) infoTip
+}
+  MS_TIPPER_SHOWTIPW:PAnsiChar = 'mToolTip/ShowTipW';
+
+{
+  wParam=lParam=0;
+}
+  MS_TIPPER_HIDETIP:PAnsiChar = 'mToolTip/HideTip';
+
+{$ENDIF}
-- 
cgit v1.2.3