1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-25 08:48:51 -05:00

Free manager earlier.

This commit is contained in:
Raymond 2010-03-25 16:09:38 +01:00
parent edf0d61fb8
commit fdc3df9c3b

View File

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