paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 06:49:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Publish TChartArrow.Inverted. Respect Arrow.Inverted when painting a TConstantLine series.

Browse Source 
git-svn-id: trunk@46151 -
This commit is contained in:
wp 2014-09-07 15:00:57 +00:00
parent 5bd58e3e95
commit 1d654ba391
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/taseries.pas
View File

@ -768,12 +768,18 @@ begin
lsHorizontal: begin lsHorizontal: begin
p := YGraphToImage(AxisToGraphX(Position)); p := YGraphToImage(AxisToGraphX(Position));
DrawLineHoriz(ADrawer, p); DrawLineHoriz(ADrawer, p);
Arrow.Draw(ADrawer, Point(ClipRect.Right - 1, p), 0, Pen); if Arrow.Inverted then
Arrow.Draw(ADrawer, Point(ClipRect.Left, p), 0, Pen)
else
Arrow.Draw(ADrawer, Point(ClipRect.Right - 1, p), 0, Pen);
end; end;
lsVertical: begin lsVertical: begin
p := XGraphToImage(AxisToGraphX(Position)); p := XGraphToImage(AxisToGraphX(Position));
DrawLineVert(ADrawer, p); DrawLineVert(ADrawer, p);
Arrow.Draw(ADrawer, Point(p, ClipRect.Top), -Pi / 2, Pen); if Arrow.Inverted then
Arrow.Draw(ADrawer, Point(p, ClipRect.Bottom - 1), -Pi / 2, Pen)
else
Arrow.Draw(ADrawer, Point(p, ClipRect.Top), -Pi / 2, Pen);
end; end;
end; end;
end; end;

3
components/tachart/tatypes.pas
View File

@ -224,10 +224,11 @@ type
procedure Draw( procedure Draw(
ADrawer: IChartDrawer; const AEndPos: TPoint; AAngle: Double; ADrawer: IChartDrawer; const AEndPos: TPoint; AAngle: Double;
APen: TFPCustomPen); APen: TFPCustomPen);
property Inverted: Boolean read FInverted write SetInverted;
published published
property BaseLength: TChartDistance property BaseLength: TChartDistance
read FBaseLength write SetBaseLength default 0; read FBaseLength write SetBaseLength default 0;
property Inverted: Boolean
read FInverted write SetInverted default false;
property Length: TChartDistance property Length: TChartDistance
read FLength write SetLength default DEF_ARROW_LENGTH; read FLength write SetLength default DEF_ARROW_LENGTH;
property Visible default false; property Visible default false;