Procházet zdrojové kódy

# revisions: 45399

git-svn-id: tags/release_3_2_0@45400 -
marco před 5 roky
rodič
revize
a943608b65
1 změnil soubory, kde provedl 5 přidání a 0 odebrání
  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::/