Răsfoiți Sursa

# revisions: 45398

git-svn-id: branches/fixes_3_2@45399 -
marco 5 ani în urmă
părinte
comite
663e13d20e
1 a modificat fișierele cu 5 adăugiri și 0 ștergeri
  1. 5 0
      utils/fpdoc/dw_htmlchm.inc

+ 5 - 0
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::/