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

TAChart: Set length of FYRange and FYRangeValid for all chart source types

Browse Source
This commit is contained in:
wp_xyz 2023-12-08 01:23:28 +01:00
parent a4553697f4
commit 3e1aa29c2b
4 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/taanimatedsource.pas
View File

@ -94,6 +94,8 @@ begin
if FOrigin <> nil then begin
FXCount := Origin.XCount;
FYCount := Origin.YCount;
SetLength(FYRange, FYCount);
SetLength(FYRangeValid, FYCount);
end else begin
FXCount := MaxInt; // Allow source to be used by any series while Origin = nil
FYCount := MaxInt;

3
components/tachart/tacustomsource.pas
View File

@ -1722,8 +1722,11 @@ begin
for i := 0 to Count - 1 do
UpdateMinMax(Item[i]^.YList[yIdx], AMin, AMax);
end;
if Length(FYRange) < FYCount then SetLength(FYRange, FYCount);
if Length(FYRangeValid) < FYCount then SetLength(FYRangeValid, FYCount);
FYRange[AYIndex].FStart := AMin;
FYRange[AYIndex].FEnd := AMax;
FYRangeValid[AYIndex] := true;
end;
end;

2
components/tachart/tadbsource.pas
View File

@ -338,6 +338,8 @@ begin
FFieldYList.CommaText := FFieldY;
FYCount := FFieldYList.Count;
SetLength(FCurItem.YList, Max(FYCount - 1, 0));
SetLength(FYRange, FYCount);
SetLength(FYRangeValid, FYCount);
Reset;
end;

13
components/tachart/tasources.pas
View File

@ -979,7 +979,11 @@ begin
if FXCount < FXCountMin then
FXCount := FXCountMin;
if FYCount < FYCountMin then
SetYCount(FYCountMin);
begin
FYCount := FYCountMin;
SetLength(FYRange, FYCount);
SetLength(FYRangeValid, FYCount);
end;
end;
procedure TBuiltinListChartSource.CopyFrom(ASource: TCustomChartSource);
@ -1042,6 +1046,8 @@ begin
if FOrigin <> nil then begin
FXCount := Origin.XCount;
FYCount := Origin.YCount;
SetLength(FYRange, FYCount);
SetLength(FYRangeValid, FYCount);
ResetTransformation(Origin.Count);
if IsSorted and (not HasSameSorting(Origin)) then SortNoNotify;
end else begin
@ -1502,6 +1508,8 @@ begin
if FYCount = AValue then exit;
inherited SetYCount(AValue);
SetLength(FItem.YList, Max(YCount - 1, 0));
SetLength(FYRange, FYCount);
SetLength(FYRangeValid, FYCount);
Reset;
end;
@ -1895,8 +1903,9 @@ begin
end;
end;
FYCount := Length(FYOrder);
SetLength(FItem.YList, Max(High(FYOrder), 0));
SetLength(FYRange, FYCount);
SetLength(FYRangeValid, FYCount);
Changed(nil);
end;