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

TAChart: Fix uninitialized variables FLoBound and FUpBound used by TBasicPointSeries. Patch by Marcin Wiazowski. Issue #34935

Browse Source 
git-svn-id: trunk@60163 -
This commit is contained in:
wp 2019-01-24 00:14:49 +00:00
parent 59e51e3587
commit 1e95857ce7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tacustomseries.pas
View File

@ -308,6 +308,7 @@ type
protected protected
procedure AfterAdd; override; procedure AfterAdd; override;
procedure SourceChanged(ASender: TObject); override;
procedure UpdateMargins(ADrawer: IChartDrawer; var AMargins: TRect); override; procedure UpdateMargins(ADrawer: IChartDrawer; var AMargins: TRect); override;
property MarkPositionCentered: Boolean property MarkPositionCentered: Boolean
@ -1143,6 +1144,8 @@ begin
FErrorBars[0] := TChartErrorBar.Create(FChart); FErrorBars[0] := TChartErrorBar.Create(FChart);
FErrorBars[1] := TChartErrorBar.Create(FChart); FErrorBars[1] := TChartErrorBar.Create(FChart);
FOptimizeX := true; FOptimizeX := true;
FLoBound := 0;
FUpBound := Count - 1;
ToolTargets := [nptPoint, nptYList]; ToolTargets := [nptPoint, nptYList];
end; end;
@ -1770,6 +1773,13 @@ begin
UpdateGraphPoints(AIndex, FLoBound, FUpBound, ACumulative); UpdateGraphPoints(AIndex, FLoBound, FUpBound, ACumulative);
end; end;
procedure TBasicPointSeries.SourceChanged(ASender: TObject);
begin
FLoBound := 0;
FUpBound := Count - 1;
inherited;
end;
procedure TBasicPointSeries.UpdateMargins( procedure TBasicPointSeries.UpdateMargins(
ADrawer: IChartDrawer; var AMargins: TRect); ADrawer: IChartDrawer; var AMargins: TRect);
var var