浏览代码

* Do not show a useless dash in the help message of custom fpmake options

git-svn-id: trunk@20028 -
joost 14 年之前
父节点
当前提交
3895a0de0d
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      packages/fpmkunit/src/fpmkunit.pp

+ 4 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -3651,7 +3651,10 @@ procedure TCustomInstaller.Usage(const FMT: String; Args: array of const);
 
   Procedure LogArgOption(const C,LC,Msg : String);
   begin
-    Log(vlInfo,Format(' -%s --%-20s %s',[C,LC+'='+SValue,MSG]));
+    if trim(c)='' then
+      Log(vlInfo,Format('    --%-20s %s',[LC+'='+SValue,MSG]))
+    else
+      Log(vlInfo,Format(' -%s --%-20s %s',[C,LC+'='+SValue,MSG]));
   end;
 
 var