Hot Fix #172 dec params

tobya · Dec 4, 2021 · 4c34baf · 4c34baf
1 parent aa4a2b3
commit 4c34baf
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/src/MainUtils.pas b/src/MainUtils.pas
@@ -29,7 +29,7 @@ interface
   MSPOWERPOINT = 3;
 
 
-  DOCTO_VERSION = '1.6.35';  // dont use 0x - choco needs incrementing versions.
+  DOCTO_VERSION = '1.7.36';  // dont use 0x - choco needs incrementing versions.
 
 type
 
@@ -993,10 +993,12 @@ procedure TDocumentConverter.LoadConfig(Params: TStrings);
     begin
         FDoSubDirs := false;
         LogInfo('Loading files from directory but not subdirectories',CHATTY);
+        dec(iparam);
     end
     else if (id = '--STDOUT') then
     BEGIN
       OutPutIsStdOut := true;
+      dec(iparam);
     END
     else if (id = '-FX') or
             (id = '--INPUTFILEEXTENSION') then
@@ -1102,6 +1104,7 @@ procedure TDocumentConverter.LoadConfig(Params: TStrings);
             (id = '--USE-ISO19005-1') then
     begin
        FuseISO190051 := true;
+       dec(iparam);
     end
     else if (id = '-R')
          or (id = '--DELETEFILES') then

diff --git a/src/docto.dproj b/src/docto.dproj
@@ -248,13 +248,13 @@
         <VerInfo_PreRelease>false</VerInfo_PreRelease>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
         <VerInfo_AutoGenVersion>false</VerInfo_AutoGenVersion>
-        <VerInfo_Release>34</VerInfo_Release>
+        <VerInfo_Release>36</VerInfo_Release>
         <Icon_MainIcon>docto_Icon2.ico</Icon_MainIcon>
-        <VerInfo_Keys>CompanyName=Toflidium Software;FileDescription=DocTo - Convert doc files to any available format;FileVersion=1.6.34.60;InternalName=;LegalCopyright=Toby Allen;LegalTrademarks=;OriginalFilename=docto.exe;ProductName=DocTo;ProductVersion=1.6;Comments=https://github.com/tobya/DocTo;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=Toflidium Software;FileDescription=DocTo - Convert doc files to any available format;FileVersion=1.7.36.60;InternalName=;LegalCopyright=Toby Allen;LegalTrademarks=;OriginalFilename=docto.exe;ProductName=DocTo;ProductVersion=1.6;Comments=https://github.com/tobya/DocTo;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
         <DCC_ExeOutput>..\exe</DCC_ExeOutput>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <VerInfo_MinorVer>6</VerInfo_MinorVer>
+        <VerInfo_MinorVer>7</VerInfo_MinorVer>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">