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

TAChart: Fix crash in stacked bar series due to dd3322cfc0

Browse Source
This commit is contained in:
wp_xyz 2023-12-03 23:17:21 +01:00
parent 68acca089e
commit ebd45b7c62
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tacustomsource.pas
View File

@ -1429,10 +1429,14 @@ begin
FCumulativeExtentIsValid := false;
FXListExtentIsValid := false;
FYListExtentIsValid := false;
SetLength(FYRangeValid, YCount);
SetLength(FYRange, YCount);
for i := 0 to High(FYRange) do
FYRangeValid[i] := false;
if YCount <> MaxInt then
begin
SetLength(FYRangeValid, YCount);
SetLength(FYRange, YCount);
for i := 0 to High(FYRange) do
FYRangeValid[i] := false;
end else
SetLength(FYRangeValid, 0);
end;
function TCustomChartSource.IsErrorBarDataStored(AIndex: Integer): Boolean;
@ -1699,7 +1703,7 @@ procedure TCustomChartSource.YRange(AYIndex: Integer; var AMin, AMax: Double);
var
i, yIdx: Integer;
begin
if FYRangeValid[AYIndex] then
if (AYIndex < Length(FYRangeValid)) and FYRangeValid[AYIndex] then
begin
AMin := FYRange[AYIndex].FStart;
AMax := FYRange[AYIndex].FEnd;