From dd23fc06aae347242013a716a01745e96f2faef1 Mon Sep 17 00:00:00 2001
From: dkolmck <dkolmck@91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07>
Date: Wed, 3 Dec 2014 09:27:30 +0000
Subject: [PATCH] * fix some declarations for x64 support

git-svn-id: https://svn.code.sf.net/p/kolmck/code@135 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
---
 KOLMHTooltip_implem.inc | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/KOLMHTooltip_implem.inc b/KOLMHTooltip_implem.inc
index 869ba02..d0ca2b1 100644
--- a/KOLMHTooltip_implem.inc
+++ b/KOLMHTooltip_implem.inc
@@ -54,12 +54,12 @@ end;
 
 function TMHToolTip.GetMargin: TRect;
 begin
-  SendMessage(fHandle, TTM_GETMARGIN, 0, DWord(@Result));
+  SendMessage(fHandle, TTM_GETMARGIN, 0, LPARAM(@Result));
 end;
 
 procedure TMHToolTip.SetMargin(const Value: TRect);
 begin
-  SendMessage(fHandle, TTM_SETMARGIN, 0, DWord(@Value));
+  SendMessage(fHandle, TTM_SETMARGIN, 0, LPARAM(@Value));
 end;
 
 function TMHToolTip.GetActivate: Boolean;
@@ -169,10 +169,10 @@ begin
     lpszText := @TextL[0];
   end;
 
-  SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, DWord(@TI));
-  SendMessage(ToolTip.handle, TTM_DELTOOL, 0, DWORD(@TI));
+  SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, LPARAM(@TI));
+  SendMessage(ToolTip.handle, TTM_DELTOOL, 0, LPARAM(@TI));
   ToolTip.Count := ToolTip.Count - 1;
-  SendMessage(T1.handle, TTM_ADDTOOL, 0, DWORD(@TI));
+  SendMessage(T1.handle, TTM_ADDTOOL, 0, LPARAM(@TI));
   T1.Count := T1.Count - 1;
 
   HasTool := True;
@@ -251,7 +251,7 @@ begin
   if HasTool then
   begin
     TI.lpszText := PKOLChar(Value);
-    SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, DWord(@TI));
+    SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, LPARAM(@TI));
   end;
 
 end;
@@ -323,7 +323,7 @@ var
 begin
   if not HasTool then
   begin
-    SendMessage(ToolTip.handle, TTM_ADDTOOL, 0, DWORD(@TI));
+    SendMessage(ToolTip.handle, TTM_ADDTOOL, 0, LPARAM(@TI));
     HasTool := True;
     ToolTip.Count := ToolTip.Count + 1;
   end
@@ -333,7 +333,7 @@ begin
     begin
       lpszText := @TextLine[0];
     end;
-    SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, DWord(@TI));
+    SendMessage(ToolTip.handle, TTM_SETTOOLINFO, 0, LPARAM(@TI));
   end;
 end;
 
@@ -377,7 +377,7 @@ begin
     uId := Parent.GetWindowHandle;
   end;
 
-  SendMessage(ToolTip.handle, TTM_DELTOOL, 0, DWORD(@TI));
+  SendMessage(ToolTip.handle, TTM_DELTOOL, 0, LPARAM(@TI));
   ToolTip.Count := ToolTip.Count - 1;
   if ToolTip.Count <= 0 then begin
     i:=Length(Manager.TTT);
@@ -423,7 +423,7 @@ begin
       uId := Parent.GetWindowHandle;
       lpszText := @TextL[0];
     end;
-    SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, DWord(@TI));
+    SendMessage(ToolTip.handle, TTM_GETTOOLINFO, 0, LPARAM(@TI));
     Result := TextL; //TI.lpszText;// := PChar(Value);
   end;
 end;