Browse Source

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

git-svn-id: trunk@20028 -
joost 13 years ago
parent
commit
3895a0de0d
1 changed files with 4 additions and 1 deletions
  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