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

TAChart: Add TDataPointDragTool.OnDragStart event

Browse Source 
git-svn-id: trunk@38786 -
This commit is contained in:
ask 2012-09-21 14:43:38 +00:00
parent d02fb67a89
commit 54f6a99a13
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tatools.pas
View File

@ -403,6 +403,7 @@ type
TDataPointDragTool = class(TDataPointTool)
strict private
FOnDrag: TDataPointDragEvent;
FOnDragStart: TDataPointDragEvent;
FOrigin: TDoublePoint;
public
constructor Create(AOwner: TComponent); override;
@ -413,6 +414,8 @@ type
published
property ActiveCursor default crSizeAll;
property OnDrag: TDataPointDragEvent read FOnDrag write FOnDrag;
property OnDragStart: TDataPointDragEvent
read FOnDragStart write FOnDragStart;
end;
{ TDataPointClickTool }
@ -1504,10 +1507,17 @@ begin
end;
procedure TDataPointDragTool.MouseDown(APoint: TPoint);
var
p: TDoublePoint;
begin
FindNearestPoint(APoint);
if FSeries = nil then exit;
FOrigin := NearestGraphPoint;
if Assigned(OnDragStart) then begin
p := FChart.ImageToGraph(APoint);
OnDragStart(Self, p);
if Toolset.FIsHandled then exit;
end;
Activate;
Handled;
end;
@ -1516,7 +1526,7 @@ procedure TDataPointDragTool.MouseMove(APoint: TPoint);
var
p: TDoublePoint;
begin
if FSeries = nil then exit;
if not IsActive or (FSeries = nil) then exit;
p := FChart.ImageToGraph(APoint);
if Assigned(OnDrag) then begin
OnDrag(Self, p);