Changeset 17 for trunk/Messg.pas

Timestamp:

Jan 8, 2017, 11:21:02 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.

File:

• trunk/Messg.pas (modified) (2 diffs)

trunk/Messg.pas

@@ -92 +92 @@
   else
   begin
-    if integer(Msg.LParamHi) >= Top + TitleHeight then
+    if integer((Msg.LParam shr 16) and $ffff) >= Top + TitleHeight then
       Msg.result := HTCLIENT
     else
@@ -100 +100 @@
         begin
           ControlBounds := Controls[i].BoundsRect;
-          if (integer(Msg.LParamLo) >= Left + ControlBounds.Left) and
-            (integer(Msg.LParamLo) < Left + ControlBounds.Right) and
-            (integer(Msg.LParamHi) >= Top + ControlBounds.Top) and
-            (integer(Msg.LParamHi) < Top + ControlBounds.Bottom) then
+          if (integer(Msg.LParam and $ffff) >= Left + ControlBounds.Left) and
+            (integer(Msg.LParam and $ffff) < Left + ControlBounds.Right) and
+            (integer((Msg.LParam shr 16 ) and $ffff) >= Top + ControlBounds.Top) and
+            (integer((Msg.LParam shr 16) and $ffff) < Top + ControlBounds.Bottom) then
           begin
             Msg.result := HTCLIENT;