paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-23 19:01:39 +02: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; FActive: Boolean;
FChart: TChart; FChart: TChart;
FDepth: TChartDistance; FDepth: TChartDistance;
FDragOrigin: TPoint;
FShadow: TChartShadow; FShadow: TChartShadow;
FTransparency: TChartTransparency; FTransparency: TChartTransparency;
FZPosition: TChartDistance; FZPosition: TChartDistance;
@ -89,6 +90,7 @@ type
property Active: Boolean read FActive write SetActive default true; property Active: Boolean read FActive write SetActive default true;
property Depth: TChartDistance read FDepth write SetDepth default 0; property Depth: TChartDistance read FDepth write SetDepth default 0;
property DragOrigin: TPoint read FDragOrigin write FDragOrigin;
property ParentChart: TChart read FChart; property ParentChart: TChart read FChart;
property Shadow: TChartShadow read FShadow write SetShadow; property Shadow: TChartShadow read FShadow write SetShadow;
property Transparency: TChartTransparency property Transparency: TChartTransparency

1
components/tachart/tatools.pas
View File

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