paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

chmhelp: auto compile lhelp when showing all help, patch #23411

Browse Source 
git-svn-id: trunk@40593 -
This commit is contained in:
mattias 2013-03-20 09:00:29 +00:00
parent 07867f2b3a
commit 1b37181d38
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/chmhelp/packages/idehelp/lazchmhelp.pas
View File

@ -419,23 +419,25 @@ end;
procedure TChmHelpViewer.ShowAllHelp(Sender: TObject);
var
SearchPath: String; //; delimited list of directories
LHelpFilename: String;
HelpExeFileName: String;
begin
// Make sure the lhelp help viewer exists; build it if doesn't and it is lhelp
HelpExeFileName:=GetHelpExe;
if (not FileExistsUTF8(HelpExeFileName)) and
((ExtractFileNameOnly(HelpExeFileName) = 'lhelp') and (CheckBuildLHelp <> mrOK)) then begin
IDEMessageDialog(HELP_MissingLhelp, Format(
HELP_UnableToFindTheLhelpViewerPleaseCompileTheLhelpPro,
[#13, HelpExeFileName, #13, #13, #13,
SetDirSeparators('components/chmhelp/lhelp/lhelp.lpi')]),
mtError,[mbCancel]);
exit;
end;
SearchPath := GetHelpFilesPath;
// Start up server if needed
if not(fHelpConnection.ServerRunning) then
begin
LHelpFilename:=GetHelpExe;
if not FileExistsUTF8(LHelpFilename) then
begin
IDEMessageDialog(HELP_MissingLhelp, Format(
HELP_UnableToFindTheLhelpViewerPleaseCompileTheLhelpPro,
[#13, LHelpFilename, #13, #13, #13,
SetDirSeparators('components/chmhelp/lhelp/lhelp.lpi')]),
mtError,[mbCancel]);
exit;
end;
fHelpConnection.StartHelpServer(HelpLabel, LHelpFilename);
fHelpConnection.StartHelpServer(HelpLabel, HelpExeFileName);
end;
// Open all chm files after it has started
OpenAllCHMsInSearchPath(SearchPath);