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

TAChart: Add TDataPointTool.TPointRef.AxisPos function

Browse Source 
git-svn-id: trunk@38330 -
This commit is contained in:
ask 2012-08-22 10:51:36 +00:00
parent aa894b143a
commit f5b873aa42
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/tachart/tatools.pas
View File

@ -349,6 +349,7 @@ type
procedure SetGraphPos(const ANewPos: TDoublePoint);
public
procedure Assign(ASource: TPointRef);
function AxisPos: TDoublePoint;
property GraphPos: TDoublePoint read FGraphPos;
property Index: Integer read FIndex;
property Series: TBasicChartSeries read FSeries;
@ -618,6 +619,15 @@ begin
end;
end;
function TDataPointTool.TPointRef.AxisPos: TDoublePoint;
begin
if Series = nil then
Result := GraphPos
else
with Series do
Result := DoublePoint(GraphToAxisX(GraphPos.X), GraphToAxisY(GraphPos.Y));
end;
procedure TDataPointTool.TPointRef.SetGraphPos(const ANewPos: TDoublePoint);
begin
FGraphPos := ANewPos;
@ -1767,23 +1777,20 @@ function TDataPointDistanceTool.Distance(AUnits: TChartUnits): Double;
var
p1, p2: TDoublePoint;
begin
p1 := PointStart.GraphPos;
p2 := PointEnd.GraphPos;
case AUnits of
cuPercent: exit(0); // Not implemented.
cuAxis: begin
if PointStart.Series <> nil then
with PointStart.Series do
p1 := DoublePoint(GraphToAxisX(p1.X), GraphToAxisY(p1.Y));
if PointEnd.Series <> nil then
with PointEnd.Series do
p2 := DoublePoint(GraphToAxisX(p2.X), GraphToAxisY(p2.Y));
p1 := PointStart.AxisPos;
p2 := PointEnd.AxisPos;
end;
cuGraph: begin
p1 := PointStart.GraphPos;
p2 := PointEnd.GraphPos;
end;
cuGraph: ;
cuPixel: begin
with FChart.GraphToImage(p1) do
with FChart.GraphToImage(PointStart.GraphPos) do
p1 := DoublePoint(X, Y);
with FChart.GraphToImage(p2) do
with FChart.GraphToImage(PointEnd.GraphPos) do
p2 := DoublePoint(X, Y);
end;
end;