فهرست منبع

# revisions: 45399

git-svn-id: tags/release_3_2_0@45400 -
marco 5 سال پیش
والد
کامیت
a943608b65
1فایلهای تغییر یافته به همراه5 افزوده شده و 0 حذف شده
  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
     begin  //split into filename and prefix
     ALinkPrefix := Copy(AFilename,i+1,Length(AFilename));
     ALinkPrefix := Copy(AFilename,i+1,Length(AFilename));
     SetLength(AFilename, i-1);
     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
     end
   else if ALinkPrefix = '' then
   else if ALinkPrefix = '' then
     begin  //synthesize outdir\pgk.xct, ms-its:pkg.chm::/
     begin  //synthesize outdir\pgk.xct, ms-its:pkg.chm::/