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

lcl: check helpmanager and comment how to init help system

Browse Source 
git-svn-id: trunk@37990 -
This commit is contained in:
mattias 2012-07-21 20:22:38 +00:00
parent 6e6558677d
commit 3040b07cc2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/helpintfs.pas
View File

@ -232,6 +232,7 @@ type
var var
HelpManager: THelpManager = nil;// set by the IDE HelpManager: THelpManager = nil;// set by the IDE
// LCL applications can call CreateLCLHelpSystem in unit LazHelpIntf
//============================================================================== //==============================================================================
{ Showing help (how it works): { Showing help (how it works):
@ -348,6 +349,10 @@ end;
function ShowHelpForKeyword(HelpDatabaseID: THelpDatabaseID; function ShowHelpForKeyword(HelpDatabaseID: THelpDatabaseID;
const HelpKeyword: string; var ErrMsg: string): TShowHelpResult; const HelpKeyword: string; var ErrMsg: string): TShowHelpResult;
begin begin
if HelpManager=nil then begin
ErrMsg:='HelpManager=nil';
exit(shrHelpNotFound);
end;
Result:=HelpManager.ShowHelpForQuery( Result:=HelpManager.ShowHelpForQuery(
THelpQueryKeyword.Create(HelpDatabaseID,HelpKeyword), THelpQueryKeyword.Create(HelpDatabaseID,HelpKeyword),
true,ErrMsg); true,ErrMsg);