paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ display helpfull message if no help files are installed

Browse Source 
git-svn-id: trunk@3596 -
This commit is contained in:
florian 2006-05-20 18:53:40 +00:00
parent d36ac1283e
commit 7e5b9ac353
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpmhelp.inc
View File

@ -23,7 +23,7 @@ begin
if Found then
Help(FileID,Ctx,false)
else
Help(0,hcContents,false);
HelpIndex('');
end;
procedure TIDEApp.HelpHelpIndex;

6
ide/wconstse.inc
View File

@ -99,7 +99,11 @@
msg_cutting = 'Cutting';
{ Help system }
msg_nohelpfilesinstalled = 'No help files installed.';
msg_nohelpfilesinstalled1 = 'To keep the size of the FPC download reasonable low, it comes without html formatted docs';
msg_nohelpfilesinstalled2 = 'which are necessary for the IDE.';
msg_nohelpfilesinstalled3 = 'To get these docs, go to http://www.freepascal.org/down/docs/docs.html and get one';
msg_nohelpfilesinstalled4 = 'of the html doc archives and unpack the enclosed contents into your FPC directory.';
msg_nohelpfilesinstalled5 = 'Add fpcdoc.html via Help|Files ... to the IDE help file system.';
msg_helpindex = 'Help index';
msg_nohelpavailabelforthistopic = 'No help available for this topic.';
msg_pagenotavailable = 'Page not available';

6
ide/whelp.pas
View File

@ -901,7 +901,11 @@ begin
if HelpFiles^.Count=0 then
begin
AddLine('');
AddLine(' '+msg_nohelpfilesinstalled)
AddLine(msg_nohelpfilesinstalled1);
AddLine(msg_nohelpfilesinstalled2);
AddLine(msg_nohelpfilesinstalled3);
AddLine(msg_nohelpfilesinstalled4);
AddLine(msg_nohelpfilesinstalled5);
end else
begin
AddLine(' '+msg_helpindex);