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

TAChart: Add TConstantLine.AxisIndexX property

Browse Source 
git-svn-id: trunk@31821 -
This commit is contained in:
ask 2011-07-29 07:15:59 +00:00
parent 022a7d20b5
commit c61219fe79
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/taseries.pas
View File

@ -273,6 +273,7 @@ type
published
property Active default true;
property Arrow: TChartArrow read FArrow write SetArrow;
property AxisIndexX;
property LineStyle: TLineStyle
read FLineStyle write SetLineStyle default lsHorizontal;
property Pen: TPen read FPen write SetPen;
@ -621,18 +622,20 @@ procedure TConstantLine.Draw(ADrawer: IChartDrawer);
var
p: Integer;
begin
if Pen.Style = psClear then exit;
ADrawer.SetBrushParams(bsClear, clTAColor);
ADrawer.Pen := FPen;
with ParentChart do
case LineStyle of
lsHorizontal: begin
p := YGraphToImage(FPosition);
p := YGraphToImage(AxisToGraphX(FPosition));
DrawLineHoriz(ADrawer, p);
Arrow.Draw(ADrawer, Point(ClipRect.Right - 1, p), 0);
end;
lsVertical: begin
p := XGraphToImage(FPosition);
p := XGraphToImage(AxisToGraphX(FPosition));
DrawLineVert(ADrawer, p);
Arrow.Draw(ADrawer, Point(p, ClipRect.Top), -Pi / 2);
end;