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

TAChart: Fix TDataPointMarksClickTool crashing when series is empty.

Browse Source
This commit is contained in:
wp_xyz 2022-11-28 19:14:48 +01:00
parent 84f716a2ff
commit bb65b8022c
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/tatools.pas
View File

@ -2027,10 +2027,10 @@ begin
for i := 0 to FChart.SeriesCount-1 do for i := 0 to FChart.SeriesCount-1 do
begin begin
if not (FChart.Series[i] is TBasicChartSeries) then if not (FChart.Series[i] is TBasicPointSeries) then
continue; continue;
ser := TBasicPointSeries(FChart.Series[i]); ser := TBasicPointSeries(FChart.Series[i]);
if ser.Active and ser.IsPointInLabel(FChart.Drawer, APoint, FPointIndex, FYIndex) then if ser.Active and (ser.Count > 0) and ser.IsPointInLabel(FChart.Drawer, APoint, FPointIndex, FYIndex) then
begin begin
FSeries := ser; FSeries := ser;
FXIndex := 0; // to do: fix X index FXIndex := 0; // to do: fix X index