paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 21:50:16 +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@60070 -
This commit is contained in:
wp 2019-01-13 00:38:45 +00:00
parent 6d5b031556
commit 9d2ff37d62
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);
ld := GetLabelDirection(i); ld := GetLabelDirection(i);
@ -1741,7 +1741,7 @@ begin
if MarkPositions = lmpInsideCenter then exit; if MarkPositions = lmpInsideCenter then exit;
zero := GetZeroLevel; zero := GetZeroLevel;
for i := 0 to Count - 1 do begin for i := FLoBound to FUpBound do begin
gp := GetGraphPoint(i); gp := GetGraphPoint(i);
if not ParentChart.IsPointInViewPort(gp) then continue; if not ParentChart.IsPointInViewPort(gp) then continue;
labelText := FormattedMark(i); labelText := FormattedMark(i);