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

TAChart: Fix RandomChartSource crashing if PointsNumber is 1.

Browse Source 
git-svn-id: trunk@56490 -
This commit is contained in:
wp 2017-11-24 21:52:39 +00:00
parent c4f8616371
commit 59e3f04835
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tasources.pas
View File

@ -803,7 +803,7 @@ begin
end; end;
while FCurIndex < AIndex do begin while FCurIndex < AIndex do begin
FCurIndex += 1; FCurIndex += 1;
if XMax <= XMin then begin if (XMax <= XMin) or (Count = 1) then begin
FCurItem.X := XMin; FCurItem.X := XMin;
for i := 0 to XCount - 2 do FCurItem.XList[i] := XMin; for i := 0 to XCount - 2 do FCurItem.XList[i] := XMin;
end else begin end else begin