paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:40:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use data point index limits FLoBound and FUoBound instead of 0 and Count-1 in data point labeling routines. Issue #34819. Patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@60059 -
This commit is contained in:
wp 2019-01-12 06:27:54 +00:00
parent 17bcdd3a7f
commit 677076e5e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tacustomseries.pas
View File

@ -1256,7 +1256,7 @@ begin
lfont.Assign(Marks.LabelFont); lfont.Assign(Marks.LabelFont);
ParentChart.DisableRedrawing; ParentChart.DisableRedrawing;
for i := 0 to Count - 1 do begin for i := FLoBound to FUpBound do begin
if IsNan(Source[i]^.Point) then continue; if IsNan(Source[i]^.Point) then continue;
g := GetLabelDataPoint(i); g := GetLabelDataPoint(i);
for si := 0 to Source.YCount - 1 do begin for si := 0 to Source.YCount - 1 do begin
@ -1756,7 +1756,7 @@ begin
with FChart do with FChart do
zero := IfThen(IsRotated, XGraphToImage(GetZeroLevel), YGraphToImage(GetZeroLevel)); zero := IfThen(IsRotated, XGraphToImage(GetZeroLevel), YGraphToImage(GetZeroLevel));
for i := 0 to Count - 1 do begin for i := FLoBound to FUpBound do begin
labelText := FormattedMark(i); labelText := FormattedMark(i);
if labelText = '' then Continue; if labelText = '' then Continue;