Browse Source

* Fix default values (bug ID 27996)

git-svn-id: trunk@32809 -
michael 9 năm trước cách đây
mục cha
commit
1906217491
1 tập tin đã thay đổi với 5 bổ sung0 xóa
  1. 5 0
      utils/fpdoc/fpdoc.pp

+ 5 - 0
utils/fpdoc/fpdoc.pp

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