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

ide: don't crash on exit

Browse Source 
git-svn-id: trunk@21723 -
This commit is contained in:
paul 2009-09-16 00:56:51 +00:00
parent e2693b1724
commit e4a4a76f06
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/helpmanager.pas
View File

@ -738,6 +738,9 @@ procedure TIDEHelpManager.RegisterIDEHelpDatabases;
DirItem:=THelpDBISourceDirectory.Create(FPDocNode,
'$(FPCSrcDir)/packages/fcl-base/src','*.pp;*.pas',false);
HTMLHelp.RegisterItem(DirItem);
FPDocNode:=THelpNode.CreateURL(HTMLHelp,
'FCL - Free Pascal Component Library Units',
'file://index.html');
DirItem:=THelpDBISourceDirectory.Create(FPDocNode,
'$(FPCSrcDir)/packages/fcl-base/src/inc','*.pp;*.pas',false);
HTMLHelp.RegisterItem(DirItem);
@ -820,9 +823,7 @@ begin
FreeThenNil(FHTMLProviders);
FreeThenNil(CodeHelpBoss);
FPCMessagesHelpDB:=nil;
FreeThenNil(HelpDatabases);
FreeThenNil(HelpViewers);
HelpIntfs.HelpManager:=nil;
FreeLCLHelpSystem;
FreeThenNil(HelpOpts);
FreeThenNil(FMainHelpDBPath);
FreeThenNil(FRTLHelpDBPath);