moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-28 12:02:15 -05:00
Code Issues Releases Wiki Activity

Free manager earlier.

Browse Source
This commit is contained in:
Raymond 2010-03-25 16:09:38 +01:00
parent edf0d61fb8
commit fdc3df9c3b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Projects/SAMufasaGUI/testunit.pas
View File

@ -1683,8 +1683,9 @@ begin
if not DeleteTab(i,true) then if not DeleteTab(i,true) then
begin; begin;
CloseAction := caNone; CloseAction := caNone;
exit exit;
end; end;
FreeAndNil(ExtManager);
end; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
@ -1754,6 +1755,8 @@ begin
TMufasaTab(Tabs[i]).Free; TMufasaTab(Tabs[i]).Free;
for i := 0 to high(RecentFileItems) do for i := 0 to high(RecentFileItems) do
RecentFileItems[i].Free; RecentFileItems[i].Free;
if ExtManager <> nil then
ExtManager.free;
Tabs.free; Tabs.free;
Selector.Free; Selector.Free;
Picker.Free; Picker.Free;
@ -1762,7 +1765,6 @@ begin
SetLength(DebugStream, 0); SetLength(DebugStream, 0);
RecentFiles.Free; RecentFiles.Free;
DebugCriticalSection.Free; DebugCriticalSection.Free;
ExtManager.free;
{$ifdef MSWindows} {$ifdef MSWindows}
if not UnRegisterHotkey(Self.Handle,0) then if not UnRegisterHotkey(Self.Handle,0) then
mDebugLn('Unable to unregister ctrl + alt + s as global hotkey'); mDebugLn('Unable to unregister ctrl + alt + s as global hotkey');