paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 19:51:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add DragOrigin to basic series (point where DatapointDragTool starts to operate).

Browse Source 
git-svn-id: trunk@54015 -
This commit is contained in:
wp 2017-01-27 22:47:00 +00:00
parent 5884ef95c3
commit df344043fb
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tagraph.pas
View File

@ -47,6 +47,7 @@ type
FActive: Boolean;
FChart: TChart;
FDepth: TChartDistance;
FDragOrigin: TPoint;
FShadow: TChartShadow;
FTransparency: TChartTransparency;
FZPosition: TChartDistance;
@ -89,6 +90,7 @@ type
property Active: Boolean read FActive write SetActive default true;
property Depth: TChartDistance read FDepth write SetDepth default 0;
property DragOrigin: TPoint read FDragOrigin write FDragOrigin;
property ParentChart: TChart read FChart;
property Shadow: TChartShadow read FShadow write SetShadow;
property Transparency: TChartTransparency

1
components/tachart/tatools.pas
View File

@ -1728,6 +1728,7 @@ begin
FindNearestPoint(APoint);
if FSeries = nil then exit;
FOrigin := NearestGraphPoint;
FSeries.DragOrigin := APoint;
p := FChart.ImageToGraph(APoint);
FDistance := p - FOrigin;
if Assigned(OnDragStart) then begin