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

TAChart: Ignore infinite series extent when calculating graph bounds

Browse Source 
git-svn-id: trunk@39071 -
This commit is contained in:
ask 2012-10-13 16:09:14 +00:00
parent a41feb139a
commit 203ffb01d9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tacustomseries.pas
View File

@ -693,9 +693,14 @@ begin
end; end;
procedure TChartSeries.GetBounds(var ABounds: TDoubleRect); procedure TChartSeries.GetBounds(var ABounds: TDoubleRect);
var
i: Integer;
begin begin
if not Active or (Count = 0) then exit; if not Active or (Count = 0) then exit;
ABounds := Extent; with Extent do
for i := Low(coords) to High(coords) do
if not IsInfinite(coords[i]) then
ABounds.coords[i] := coords[i];
end; end;
function TChartSeries.GetColor(AIndex: Integer): TColor; function TChartSeries.GetColor(AIndex: Integer): TColor;