paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 07:16:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TPanDragTool.MinDragRadius property

Browse Source 
git-svn-id: trunk@39360 -
This commit is contained in:
ask 2012-11-24 12:06:23 +00:00
parent 46ad750715
commit 44bafe724c
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/tachart/tatools.pas
View File

@ -318,6 +318,7 @@ type
TPanDragTool = class(TBasicPanTool)
strict private
FDirections: TPanDirectionSet;
FMinDragRadius: Cardinal;
FOrigin: TPoint;
FPrev: TPoint;
strict protected
@ -332,6 +333,8 @@ type
property Directions: TPanDirectionSet
read FDirections write FDirections default PAN_DIRECTIONS_ALL;
property EscapeCancels;
property MinDragRadius: Cardinal
read FMinDragRadius write FMinDragRadius default 0;
end;
{ TPanClickTool }
@ -1406,17 +1409,23 @@ end;
procedure TPanDragTool.MouseDown(APoint: TPoint);
begin
Activate;
FOrigin := APoint;
FPrev := APoint;
Handled;
if MinDragRadius = 0 then begin
Activate;
Handled;
end;
end;
procedure TPanDragTool.MouseMove(APoint: TPoint);
var
d: TPoint;
begin
if not IsActive then exit;
if not IsActive then begin
if PointDist(FOrigin, APoint) < Sqr(MinDragRadius) then
exit;
Activate;
end;
d := FPrev - APoint;
FPrev := APoint;
@ -1431,6 +1440,7 @@ end;
procedure TPanDragTool.MouseUp(APoint: TPoint);
begin
if not IsActive then exit;
Unused(APoint);
Deactivate;
Handled;