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

TAChart: Consult BarSeries.ZeroLevel when calculating label direction

Browse Source 
git-svn-id: trunk@30587 -
This commit is contained in:
ask 2011-05-06 15:06:09 +00:00
parent c1d175456c
commit 88a88c1b2b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/taseries.pas
View File

@ -73,6 +73,7 @@ type
protected protected
procedure GetLegendItems(AItems: TChartLegendItems); override; procedure GetLegendItems(AItems: TChartLegendItems); override;
function GetSeriesColor: TColor; override; function GetSeriesColor: TColor; override;
function GetZeroLevel: Double; override;
public public
procedure Assign(ASource: TPersistent); override; procedure Assign(ASource: TPersistent); override;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -885,6 +886,11 @@ begin
Result := FBarBrush.Color; Result := FBarBrush.Color;
end; end;
function TBarSeries.GetZeroLevel: Double;
begin
Result := ZeroLevel;
end;
function TBarSeries.IsZeroLevelStored: boolean; function TBarSeries.IsZeroLevelStored: boolean;
begin begin
Result := ZeroLevel <> 0.0; Result := ZeroLevel <> 0.0;
@ -1001,6 +1007,7 @@ var
else else
Result.Y := ACoord; Result.Y := ACoord;
end; end;
var var
i, j, n2, numPrevPts: Integer; i, j, n2, numPrevPts: Integer;
a, b: TDoublePoint; a, b: TDoublePoint;