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

TAChart: Fix auto-scaling transformation with empty or infinite data

Browse Source 
git-svn-id: trunk@35829 -
This commit is contained in:
ask 2012-03-08 17:34:34 +00:00
parent c8185bd4e5
commit 59405826bd
1 changed files with 5 additions and 4 deletions

9
components/tachart/tatransformations.pas
View File

@ -677,6 +677,7 @@ begin
with TAutoScaleTransformData(FDrawData) do begin
FMin := SafeInfinity;
FMax := NegInfinity;
FOffset := 0.0;
FScale := 1.0;
end;
end;
@ -724,6 +725,8 @@ end;
procedure TAutoScaleAxisTransform.UpdateBounds(var AMin, AMax: Double);
begin
// Auto-scale is only defined for finite bounds.
if IsInfinite(AMin) or IsInfinite(AMax) then exit;
with TAutoScaleTransformData(FDrawData) do begin
UpdateMinMax(AMin, FMin, FMax);
UpdateMinMax(AMax, FMin, FMax);
@ -733,10 +736,8 @@ begin
FScale := (MaxValue - MinValue) / (FMax - FMin);
FOffset := MinValue - FMin * FScale;
end;
if not IsInfinite(AMin) then
AMin := MinValue;
if not IsInfinite(AMax) then
AMax := MaxValue;
AMin := MinValue;
AMax := MaxValue;
end;
{ TCumulNormDistrAxisTransform }