jvcllaz: Another fix for the TSmallPoint issue.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5446 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvCore/JvExControls.pas

@@ -44,7 +44,7 @@ unit JvExControls;
 interface
 
 uses
-  Classes, types, Controls, Graphics, LCLIntf, LCLType, LMessages, Forms,
+  Classes, Controls, Graphics, LCLIntf, LCLType, LMessages, types, Forms,
   JvTypes;
 
 type
@@ -52,14 +52,14 @@ type
    (dcWantAllKeys, dcWantArrows, dcWantChars, dcButton, dcHasSetSel, dcWantTab,
     dcNative); // if dcNative is in the set the native allowed keys are used and GetDlgCode is ignored
   TDlgCodes = set of TDlgCode;
-
+                 (*
  {$IFDEF WINDOWS}
   TSmallPoint = Types.TSmallPoint;
  {$ENDIF}
  {$IFDEF LINUX}
   TSmallPoint = Classes.TSmallPoint;
  {$ENDIF}
-
+                   *)
 (******************** NOT CONVERTED
 const
   dcWantMessage = dcWantAllKeys;
@@ -664,8 +664,12 @@ begin
 end;
 
 function TJvExGraphicControl.HitTest(X, Y: Integer): Boolean;
+var
+  pt: Types.TSmallPoint;
 begin
-  Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(PointToSmallPoint(Point(X, Y)))) <> 0;
+  pt.X := X;
+  pt.Y := Y;
+  Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(pt)) <> 0;
 end;
 
 function TJvExGraphicControl.HintShow(var HintInfo: THintInfo): Boolean;
@@ -849,8 +853,12 @@ begin
 end;
 
 function TJvExCustomControl.HitTest(X, Y: Integer): Boolean;
+var
+  pt: Types.TSmallPoint;
 begin
-  Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(PointToSmallPoint(Point(X, Y)))) <> 0;
+  pt.X := X;
+  pt.Y := Y;
+  Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(pt)) <> 0;
 end;
 
 function TJvExCustomControl.HintShow(var HintInfo: THintInfo): Boolean;

components/jvcllaz/run/JvCore/JvExExtCtrls.pas

@@ -153,6 +153,9 @@ type
 
 implementation
 
+uses
+  Types;
+
 //******************** NOT CONVERTED
 //CONTROL_IMPL_DEFAULT(Shape)
 
@@ -293,8 +296,12 @@ begin
 end;
 
 function TJvExSplitter.HitTest(X, Y: Integer): Boolean;
+var
+  pt: Types.TSmallPoint;
 begin
-  Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(PointToSmallPoint(Point(X, Y)))) <> 0;
+  pt.X := X;
+  pt.Y := Y;
+  Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(pt)) <> 0;
 end;
 
 function TJvExSplitter.HintShow(var HintInfo: THintInfo): Boolean;

components/jvcllaz/run/JvCore/JvJVCLUtils.pas

@@ -34,11 +34,11 @@ unit JvJVCLUtils;
 interface
 
 uses
- {$IFDEF WIN32}
-  Windows,
- {$ENDIF}
-  Classes, Graphics, Controls, ImgList,
+  {$IFDEF WIN32}
+   Windows,                 // before Types!
+  {$ENDIF}
   LCLType, LCLProc, LMessages, Types,
+  Classes, Graphics, Controls, ImgList,
   JvTypes;
 
 (******************** NOT CONVERTED