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

TAChart: Fix DatapointTools to work correctly with stacked and axis-transformed area and line series.

Browse Source 
git-svn-id: trunk@53921 -
This commit is contained in:
wp 2017-01-10 23:09:56 +00:00
parent 0e6c18073a
commit 7529e42389
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tatools.pas
View File

@ -389,7 +389,6 @@ type
FGraphPos: TDoublePoint;
FIndex: Integer;
FSeries: TBasicChartSeries;
procedure SetGraphPos(const ANewPos: TDoublePoint);
public
procedure Assign(ASource: TPointRef);
@ -404,6 +403,7 @@ type
FDistanceMode: TChartDistanceMode;
FGrabRadius: Integer;
FMouseInsideOnly: Boolean;
FTarget: TNearestPointTarget;
function GetAffectedSeries: String; inline;
function GetIsSeriesAffected(AIndex: Integer): Boolean; inline;
procedure SetAffectedSeries(AValue: String); inline;
@ -416,6 +416,8 @@ type
procedure FindNearestPoint(APoint: TPoint);
property MouseInsideOnly: Boolean
read FMouseInsideOnly write FMouseInsideOnly default false;
property Target: TNearestPointTarget
read FTarget write FTarget default nptPoint;
public
constructor Create(AOwner: TComponent); override;
public
@ -458,6 +460,7 @@ type
property ActiveCursor default crSizeAll;
property EscapeCancels default true;
property KeepDistance: Boolean read FKeepDistance write FKeepDistance default false;
property Target;
property OnDrag: TDataPointDragEvent read FOnDrag write FOnDrag;
property OnDragStart: TDataPointDragEvent
read FOnDragStart write FOnDragStart;
@ -474,6 +477,7 @@ type
procedure MouseUp(APoint: TPoint); override;
published
property ActiveCursor;
property Target;
property OnPointClick: TChartToolEvent
read FOnPointClick write FOnPointClick;
end;
@ -514,6 +518,7 @@ type
procedure MouseUp(APoint: TPoint); override;
published
property ActiveCursor;
property Target;
property OnHint: TChartToolHintEvent read FOnHint write FOnHint;
property OnHintLocation: TChartToolHintLocationEvent
read FOnHintLocation write FOnHintLocation;
@ -576,6 +581,7 @@ type
property Shape: TChartCrosshairShape
read FShape write FShape default ccsCross;
property Size: Integer read FSize write FSize default -1;
property Target;
end;
TReticuleTool = class(TChartTool)
@ -1656,6 +1662,7 @@ begin
p.FPoint := APoint;
p.FRadius := GrabRadius;
p.FOptimizeX := DistanceMode <> cdmOnlyY;
p.FTarget := Target;
best.FDist := MaxInt;
for s in CustomSeries(FChart, FAffectedSeries.AsBooleans(FChart.SeriesCount)) do
if