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

TAChart: Fix incorrect operation of transformations on y axis of TConstantLineSeries (related to issue #26265)

Browse Source 
git-svn-id: trunk@46916 -
This commit is contained in:
wp 2014-11-20 23:33:51 +00:00
parent 22a782c356
commit eb68cbfbf3
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/taseries.pas
View File

@ -271,6 +271,7 @@ type
function GetSeriesColor: TColor; function GetSeriesColor: TColor;
procedure SavePosToCoord(var APoint: TDoublePoint); procedure SavePosToCoord(var APoint: TDoublePoint);
procedure SetArrow(AValue: TChartArrow); procedure SetArrow(AValue: TChartArrow);
procedure SetAxisIndexX(AValue: TChartAxisIndex);
procedure SetLineStyle(AValue: TLineStyle); procedure SetLineStyle(AValue: TLineStyle);
procedure SetPen(AValue: TPen); procedure SetPen(AValue: TPen);
procedure SetPosition(AValue: Double); procedure SetPosition(AValue: Double);
@ -294,7 +295,7 @@ type
published published
property Active default true; property Active default true;
property Arrow: TChartArrow read FArrow write SetArrow; property Arrow: TChartArrow read FArrow write SetArrow;
property AxisIndexX; property AxisIndexX write SetAxisIndexX;
property LineStyle: TLineStyle property LineStyle: TLineStyle
read FLineStyle write SetLineStyle default lsHorizontal; read FLineStyle write SetLineStyle default lsHorizontal;
property Pen: TPen read FPen write SetPen; property Pen: TPen read FPen write SetPen;
@ -846,6 +847,16 @@ begin
UpdateParentChart; UpdateParentChart;
end; end;
procedure TConstantLine.SetAxisIndexX(AValue: TChartAxisIndex);
begin
inherited AxisIndexX := AValue;
AxisIndexY := AValue;
// Make sure that both axis indexes have the same value. The ConstantLineSeries
// does use only the x axis index, but transformations of the y axis outside
// this unit may require tha y axis index - which would not be correct without
// this here...
end;
procedure TConstantLine.SetLineStyle(AValue: TLineStyle); procedure TConstantLine.SetLineStyle(AValue: TLineStyle);
begin begin
if FLineStyle = AValue then exit; if FLineStyle = AValue then exit;