svn.miranda.im is moving to a new home!

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@7 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb

1 files changed, 51 insertions, 0 deletions

diff --git a/delphi/Awkward/include/m_tipper.inc b/delphi/Awkward/include/m_tipper.inc
new file mode 100644
index 0000000..d9fea82
--- /dev/null
+++ b/delphi/Awkward/include/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}