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

# revisions: 45398

Browse Source 
git-svn-id: branches/fixes_3_2@45399 -
This commit is contained in:
marco 2020-05-17 12:04:20 +00:00
parent 4eedce268c
commit 663e13d20e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dw_htmlchm.inc
View File

@ -598,6 +598,11 @@ begin
begin //split into filename and prefix
ALinkPrefix := Copy(AFilename,i+1,Length(AFilename));
SetLength(AFilename, i-1);
if copy(ALinkPrefix,1,2)='..' then // workaround for project files.
begin
ALinkPrefix := 'ms-its:' + ChangeFileExt(ExtractFileName(AFilename), '.chm') + '::/';
AFilename := ChangeFileExt(AFilename, '.xct');
end;
end
else if ALinkPrefix = '' then
begin //synthesize outdir\pgk.xct, ms-its:pkg.chm::/