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

IDE carbon: fixed 0010730: Carbon IDE crashes when quitting by freeing ControlSelection later

Browse Source 
git-svn-id: trunk@13924 -
This commit is contained in:
tombo 2008-01-30 12:08:14 +00:00
parent 3a9f3361aa
commit d9d25883e8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -1193,11 +1193,9 @@ begin
if DebugBoss<>nil then DebugBoss.EndDebugging;
// free control selection
if TheControlSelection<>nil then begin
TheControlSelection.OnChange:=nil;
TheControlSelection.OnSelectionFormChanged:=nil;
FreeThenNil(TheControlSelection);
end;
FreeAndNil(ComponentListForm);
@ -1242,6 +1240,10 @@ begin
FreeThenNil(EditorOpts);
FreeThenNil(EnvironmentOptions);
FreeThenNil(IDECommandScopes);
// free control selection
if TheControlSelection<>nil then
FreeThenNil(TheControlSelection);
DebugLn('[TMainIDE.Destroy] B -> inherited Destroy... ',ClassName);
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.Destroy B ');{$ENDIF}