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

TAChart: Less hints and warnings

Browse Source 
(cherry picked from commit 3f78502c54)
This commit is contained in:
wp_xyz 2021-08-05 11:01:29 +02:00
parent 5564480779
commit 59e495a8f4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tadatatools.pas
View File

@ -235,6 +235,7 @@ begin
p1 := FChart.GraphToImage(PointStart.GraphPos); p1 := FChart.GraphToImage(PointStart.GraphPos);
p2 := FChart.GraphToImage(PointEnd.GraphPos); p2 := FChart.GraphToImage(PointEnd.GraphPos);
case MeasureMode of case MeasureMode of
cdmXY: ;
cdmOnlyX: p2.Y := p1.Y; cdmOnlyX: p2.Y := p1.Y;
cdmOnlyY: p2.X := p1.X; cdmOnlyY: p2.X := p1.X;
end; end;