moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 18:22:25 -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
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');