paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 23:17:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Workaround for bug #16035/bug #16254

Browse Source 
git-svn-id: trunk@24593 -
This commit is contained in:
ask 2010-04-12 07:09:39 +00:00
parent ef7d9b0948
commit 471a3d050a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tagraph.pas
View File

@ -983,9 +983,11 @@ procedure TChart.GetChildren(AProc: TGetChildProc; ARoot: TComponent);
var
i: Integer;
begin
// FIXME: This is a workaround for issue #16035
if FSeries = nil then exit;
for i := 0 to SeriesCount - 1 do
if Series[i].Owner = ARoot then
AProc(Series[i]);
if Series[i].Owner = ARoot then
AProc(Series[i]);
end;
function TChart.GetSeriesCount: Integer;