paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 15:39:49 +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
procedure GetLegendItems(AItems: TChartLegendItems); override;
function GetSeriesColor: TColor; override;
function GetZeroLevel: Double; override;
public
procedure Assign(ASource: TPersistent); override;
constructor Create(AOwner: TComponent); override;
@ -885,6 +886,11 @@ begin
Result := FBarBrush.Color;
end;
function TBarSeries.GetZeroLevel: Double;
begin
Result := ZeroLevel;
end;
function TBarSeries.IsZeroLevelStored: boolean;
begin
Result := ZeroLevel <> 0.0;
@ -1001,6 +1007,7 @@ var
else
Result.Y := ACoord;
end;
var
i, j, n2, numPrevPts: Integer;
a, b: TDoublePoint;