* Arreglado un pequeño errorcillo: En las opciones Crear AVI y `Rep…

…roducir INP`, si se cancela el seleccionar un archivo .inp entonces la ventana principal se quedaba desactivada y dejaba de funcionar.
Chixpy · May 28, 2018 · be74ee4 · be74ee4
1 parent 3eaec05
commit be74ee4
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/LNSCompFE.wiki b/LNSCompFE.wiki
diff --git a/Source/Forms/ufrLNSCompFE.pas b/Source/Forms/ufrLNSCompFE.pas
@@ -49,6 +49,8 @@ interface
   krsCSVSep = ',';
 
   krsParamCrearINPFmt = '%0:s -afs -throttle -speed 1 -rec %0:s.inp';
+  krsParamReprINPFmt = '%0:s -afs -throttle -speed 1 -input_directory "%1:s"'
+    +' -pb "%2:s" -inpview 1 -inplayout standard';
   krsParamCrearAVIFmt = '%0:s -noafs -fs 0 -nothrottle -input_directory "%1:s"'
     + ' -pb "%2:s" -exit_after_playback -aviwrite "%3:s"';
 
@@ -743,15 +745,15 @@ procedure TfrmLNSCompFE.ReproducirINP;
   if Juego = '' then
     Exit;
 
-  Enabled := False;
-
   SetDlgInitialDir(OpenINP, INPFolder);
   OpenINP.Filter := 'Partidas de ' + Juego + '|' + Juego +
     '*.inp|Todos lo ficheros INP |*.inp|Todos lo ficheros|*.*';
 
   if not OpenINP.Execute then
     Exit;
 
+  Enabled := False;
+
   MAMEFolder := ExtractFileDir(MAMEExe);
   CurrFolder := GetCurrentDirUTF8;
 
@@ -762,10 +764,8 @@ procedure TfrmLNSCompFE.ReproducirINP;
 
   // El directorio del fichero INP tiene que estar definido por
   //   -input_directory ya que -pb no acepta rutas
-  ExecuteProcess(MAMEExe, Juego + ' -input_directory inp -afs -throttle' +
-    ' -speed 1 -input_directory "' + ExtractFileDir(OpenINP.FileName) +
-    '" -pb "' + ExtractFileName(OpenINP.FileName) +
-    '" -inpview 1 -inplayout standard');
+  ExecuteProcess(MAMEExe, Format(krsParamReprINPFmt, [Juego,
+    ExtractFileDir(OpenINP.FileName), ExtractFileName(OpenINP.FileName)]));
 
   NVRAMRestore;
 
@@ -785,15 +785,15 @@ procedure TfrmLNSCompFE.CrearAVI;
   if Juego = '' then
     Exit;
 
-  Enabled := False;
-
   SetDlgInitialDir(OpenINP, INPFolder);
   OpenINP.Filter := 'Partidas de ' + Juego + '|' + Juego +
     '*.inp|Todos lo ficheros INP |*.inp|Todos lo ficheros|*.*';
 
   if not OpenINP.Execute then
     Exit;
 
+  Enabled := False;
+
   MAMEFolder := ExtractFileDir(MAMEExe);
   CurrFolder := GetCurrentDirUTF8;
 

diff --git a/Source/LNSCompFE.lpi b/Source/LNSCompFE.lpi
@@ -23,7 +23,7 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
-      <BuildNr Value="6"/>
+      <BuildNr Value="7"/>
       <StringTable Comments="FrontEnd para usar con (Wolf)MAME para grabar INP limpiando NVRAM, DIFF y HI" FileDescription="FrontEnd para las competiciones de Las Noches Skyperas" InternalName="LNSCompFE" LegalCopyright="(C) 2017-2018 Chixpy" OriginalFilename="LNSCompFE.exe" ProductName="LNSCompFE" ProductVersion="0.0.0.0"/>
     </VersionInfo>
     <BuildModes Count="2">

diff --git a/Source/LNSCompFE.res b/Source/LNSCompFE.res