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

IDE: register HTML help for LCL

Browse Source 
git-svn-id: trunk@40244 -
This commit is contained in:
mattias 2013-02-10 12:57:01 +00:00
parent ac8852935f
commit 4d6489da76
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ide/idehelpmanager.pas
View File

@ -178,13 +178,15 @@ type
// messages // messages
procedure mnuEditMessageHelpClick(Sender: TObject); procedure mnuEditMessageHelpClick(Sender: TObject);
private private
FFCLHelpDB: THelpDatabase;
FFCLHelpDBPath: THelpBaseURLObject; FFCLHelpDBPath: THelpBaseURLObject;
FHTMLProviders: TLIHProviders;
FLCLHelpDB: THelpDatabase;
FLCLHelpDBPath: THelpBaseURLObject;
FMainHelpDB: THelpDatabase; FMainHelpDB: THelpDatabase;
FMainHelpDBPath: THelpBasePathObject; FMainHelpDBPath: THelpBasePathObject;
FRTLHelpDB: THelpDatabase; FRTLHelpDB: THelpDatabase;
FFCLHelpDB: THelpDatabase;
FRTLHelpDBPath: THelpBaseURLObject; FRTLHelpDBPath: THelpBaseURLObject;
FHTMLProviders: TLIHProviders;
procedure RegisterIDEHelpDatabases; procedure RegisterIDEHelpDatabases;
procedure RegisterDefaultIDEHelpViewers; procedure RegisterDefaultIDEHelpViewers;
procedure FindDefaultBrowser(var DefaultBrowser, Params: string); procedure FindDefaultBrowser(var DefaultBrowser, Params: string);
@ -226,6 +228,8 @@ type
property FCLHelpDBPath: THelpBaseURLObject read FFCLHelpDBPath; property FCLHelpDBPath: THelpBaseURLObject read FFCLHelpDBPath;
property MainHelpDB: THelpDatabase read FMainHelpDB; property MainHelpDB: THelpDatabase read FMainHelpDB;
property MainHelpDBPath: THelpBasePathObject read FMainHelpDBPath; property MainHelpDBPath: THelpBasePathObject read FMainHelpDBPath;
property LCLHelpDB: THelpDatabase read FLCLHelpDB;
property LCLHelpDBPath: THelpBaseURLObject read FLCLHelpDBPath;
property RTLHelpDB: THelpDatabase read FRTLHelpDB; property RTLHelpDB: THelpDatabase read FRTLHelpDB;
property RTLHelpDBPath: THelpBaseURLObject read FRTLHelpDBPath; property RTLHelpDBPath: THelpBaseURLObject read FRTLHelpDBPath;
end; end;
@ -1218,6 +1222,29 @@ procedure TIDEHelpManager.RegisterIDEHelpDatabases;
HTMLHelp.RegisterItem(DirItem); HTMLHelp.RegisterItem(DirItem);
end; end;
procedure CreateLCLHelpDB;
var
HTMLHelp: TFPDocHTMLHelpDatabase;
FPDocNode: THelpNode;
DirItem: THelpDBISourceDirectory;
begin
FLCLHelpDB:=HelpDatabases.CreateHelpDatabase(lihcLCLUnits,
TFPDocHTMLHelpDatabase,true);
HTMLHelp:=FRTLHelpDB as TFPDocHTMLHelpDatabase;
HTMLHelp.DefaultBaseURL:=lihLCLURL;
FLCLHelpDBPath:=THelpBaseURLObject.Create;
HTMLHelp.BasePathObject:=FLCLHelpDBPath;
// FPDoc nodes for units in the RTL
FPDocNode:=THelpNode.CreateURL(HTMLHelp,
'LCL - Lazarus Component Library Units',
'file://index.html');
HTMLHelp.TOCNode:=THelpNode.Create(HTMLHelp,FPDocNode);// once as TOC
DirItem:=THelpDBISourceDirectory.Create(FPDocNode,'$(LazarusDir)/lcl',
'*.pp;*.pas',true);// and once as normal page
HTMLHelp.RegisterItem(DirItem);
end;
procedure CreateFPCKeywordsHelpDB; procedure CreateFPCKeywordsHelpDB;
begin begin
{$IFDEF EnableSimpleFPCKeyWordHelpDB} {$IFDEF EnableSimpleFPCKeyWordHelpDB}
@ -1230,6 +1257,7 @@ begin
CreateMainIDEHelpDB; CreateMainIDEHelpDB;
CreateRTLHelpDB; CreateRTLHelpDB;
CreateFCLHelpDB; CreateFCLHelpDB;
CreateLCLHelpDB;
CreateFPCMessagesHelpDB; CreateFPCMessagesHelpDB;
CreateFPCKeywordsHelpDB; CreateFPCKeywordsHelpDB;
end; end;
@ -1285,6 +1313,7 @@ begin
FreeThenNil(FMainHelpDBPath); FreeThenNil(FMainHelpDBPath);
FreeThenNil(FRTLHelpDBPath); FreeThenNil(FRTLHelpDBPath);
FreeThenNil(FFCLHelpDBPath); FreeThenNil(FFCLHelpDBPath);
FreeThenNil(FLCLHelpDBPath);
HelpBoss:=nil; HelpBoss:=nil;
LazarusHelp:=nil; LazarusHelp:=nil;
inherited Destroy; inherited Destroy;