pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Another fix for the TSmallPoint issue.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5446 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-07 16:51:48 +00:00
parent eb75a1cbfb
commit 6085e8b9b7
3 changed files with 25 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/jvcllaz/run/JvCore/JvExControls.pas
View File

@ -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;

9
components/jvcllaz/run/JvCore/JvExExtCtrls.pas
View File

@ -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;

8
components/jvcllaz/run/JvCore/JvJVCLUtils.pas
View File

@ -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