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

cody: fixed clearing diagram

Browse Source 
git-svn-id: trunk@40046 -
This commit is contained in:
mattias 2013-01-30 04:09:18 +00:00
parent f4074a842f
commit ce11068e10
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/ide/codyctrls.pas
View File

@ -413,16 +413,18 @@ end;
destructor TCustomCircleDiagramControl.Destroy;
begin
BeginUpdate; // disable updates
Clear;
FreeAndNil(fCategories);
inherited Destroy;
end;
procedure TCustomCircleDiagramControl.Clear;
begin
if CategoryCount=0 then exit;
BeginUpdate;
try
while CategoryCount>0 do
Categories[0].Free;
fCategories.Delete(CategoryCount-1);
finally
EndUpdate;
end;