diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-17 12:04:52 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-17 12:04:52 +0000 |
commit | 9e7207fc700f9ee7d2d9270cb4e6c03f092db9ef (patch) | |
tree | 8b5eb97946cd06133234802c7c91aa8254e856a4 | |
parent | d8c6bddb4a20a1a5be5c35ecff0ff7d852de42f4 (diff) | |
parent | 959b38764a86bd784ba36e7b875a51ca73fe82e5 (diff) | |
download | fpc-9e7207fc700f9ee7d2d9270cb4e6c03f092db9ef.tar.gz |
# revisions: 45399
git-svn-id: https://svn.freepascal.org/svn/fpc/tags/release_3_2_0@45400 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | utils/fpdoc/dw_htmlchm.inc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/utils/fpdoc/dw_htmlchm.inc b/utils/fpdoc/dw_htmlchm.inc index e634bfeb26..b0cd1ca922 100644 --- a/utils/fpdoc/dw_htmlchm.inc +++ b/utils/fpdoc/dw_htmlchm.inc @@ -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::/ |