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

TAChart: Add comment to explain usage of x axis in TConstantLineSeries.Draw.

Browse Source 
git-svn-id: trunk@46905 -
This commit is contained in:
wp 2014-11-20 16:12:41 +00:00
parent 5885982aca
commit fb8000de63
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/taseries.pas
View File

@ -767,6 +767,12 @@ begin
case LineStyle of case LineStyle of
lsHorizontal: begin lsHorizontal: begin
p := YGraphToImage(AxisToGraphX(Position)); p := YGraphToImage(AxisToGraphX(Position));
// The "X" here is correct:
// The constant line series needs only a single axis, which is its
// "x axis" - the user will set the axis index to that of the y axis
// for the case of a horizontal line. Therefore, AxisToGraph must get
// the transformation from the line's x axis (even if it is the y axis
// of the chart!).
DrawLineHoriz(ADrawer, p); DrawLineHoriz(ADrawer, p);
if Arrow.Inverted then if Arrow.Inverted then
Arrow.Draw(ADrawer, Point(ClipRect.Left, p), 0, Pen) Arrow.Draw(ADrawer, Point(ClipRect.Left, p), 0, Pen)