Version 1.1 - support for TX802, for DX7II "big" or "all" formats

BobanSpasic · Nov 16, 2023 · 370996e · 370996e
1 parent 7004d1c
commit 370996e
Show file tree

Hide file tree

Showing 13 changed files with 2,012 additions and 269 deletions.
diff --git a/MDX_PerfConv.lpi b/MDX_PerfConv.lpi
@@ -17,7 +17,7 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
-      <RevisionNr Value="2"/>
+      <MinorVersionNr Value="1"/>
       <StringTable FileDescription="Performance converter from DX7II, TX7, DX5 to MiniDexed" LegalCopyright="Boban Spasic" ProductName="MDX Performance Converter"/>
     </VersionInfo>
     <BuildModes>
@@ -109,9 +109,14 @@
         <IsPartOfProject Value="True"/>
       </Unit>
       <Unit>
-        <Filename Value="untTX802Fraeser.pas"/>
+        <Filename Value="units\untTX802Performance.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="units\unttx802performancebank.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="untTX802PerformanceBank"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

diff --git a/MDX_PerfConv.lpr b/MDX_PerfConv.lpr
@@ -25,7 +25,7 @@
   untDispatcher,
   untConverter,
   untDXUtils,
-  untTX802Fraeser;
+  untTX802PerformanceBank;
 
 
 type
@@ -259,6 +259,11 @@   TMDX_PerfConv = class(TCustomApplication)
           DispatchCheck(fVoiceA1, fVoiceB1, fPerf, iNumbering);
         end
         else
+        if FileExists(fVoiceA1) and FileExists(fVoiceB1) then
+        begin
+          DispatchCheck(fVoiceA1, fVoiceB1, iNumbering);
+        end
+        else
         if FileExists(fVoiceA1) then
         begin
           DispatchCheck(fVoiceA1, iNumbering);