Преглед на файлове

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

git-svn-id: trunk@20028 -
joost преди 13 години
родител
ревизия
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);
   Procedure LogArgOption(const C,LC,Msg : String);
   begin
   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;
   end;
 
 
 var
 var