瀏覽代碼

* Fix default values (bug ID 27996)

git-svn-id: trunk@32809 -
michael 9 年之前
父節點
當前提交
1906217491
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      utils/fpdoc/fpdoc.pp

+ 5 - 0
utils/fpdoc/fpdoc.pp

@@ -369,6 +369,11 @@ begin
       FCreator.Options.BackendOptions.Add(Arg);
       FCreator.Options.BackendOptions.Add(Arg);
       end;
       end;
     end;
     end;
+  // Set defaults
+  if FCreator.Options.BackEnd='' then
+    FCreator.Options.BackEnd:='html';
+  if SelectedPackage.Output='' then
+    SelectedPackage.Output:=SelectedPackage.Name;
 end;
 end;
 
 
 Procedure TFPDocApplication.DoRun;
 Procedure TFPDocApplication.DoRun;