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

TAChart: Fix memory leak in TDbChartSource.BeforeDraw

Browse Source 
git-svn-id: trunk@38735 -
This commit is contained in:
ask 2012-09-18 14:07:02 +00:00
parent 643c170bbe
commit 76446726f9
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/tadbsource.pas
View File

@ -156,7 +156,7 @@ procedure TDbChartSource.BeforeDraw;
begin
inherited BeforeDraw;
VLockedDatasets.Add(FDataLink.DataSet);
if FDataLink.Active then
if FDataLink.Active and (FBookmark = nil) then
FBookmark := FDataLink.DataSet.GetBookmark;
end;