¡Oops! Import/Export soft data frames logic was messed up.

* GPL info moved to the  end of files.
* Published properties with default value.
* ETKMagCut: Videogame titles are not saved between sessions.

ETKMagCut/ETKMagCut.lps

@@ -12,18 +12,17 @@
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="70"/>
+        <UsageCount Value="71"/>
       </Unit>
       <Unit>
         <Filename Value="src\forms\ufrMain.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="frmETKMagazineCutter"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="36"/>
         <CursorPos X="40" Y="102"/>
-        <UsageCount Value="70"/>
+        <UsageCount Value="71"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -36,7 +35,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="18"/>
         <CursorPos X="3" Y="36"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Frames\ufCHXFrame.pas"/>
@@ -47,7 +46,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="51"/>
         <CursorPos X="29" Y="61"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Frames\ufCHXFileList.pas"/>
@@ -58,22 +57,22 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="38"/>
         <CursorPos X="5" Y="70"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Misc\uVersionSupport.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="45"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Units\uCHXStrUtils.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="58"/>
         <CursorPos X="10" Y="77"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="src\frames\ufEMCMain.pas"/>
@@ -84,7 +83,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="303"/>
         <CursorPos X="69" Y="326"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -93,39 +92,40 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos Y="30"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Units\uCHXRscStr.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="57" Y="21"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Units\uCHXConst.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="15"/>
         <CursorPos Y="50"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Units\uCHXImageUtils.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="70"/>
       </Unit>
       <Unit>
         <Filename Value="src\frames\ufEMCImagePropEditor.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="fmEMCImagePropEditor"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Frame"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="122"/>
-        <CursorPos X="47" Y="139"/>
-        <UsageCount Value="64"/>
+        <TopLine Value="357"/>
+        <CursorPos X="58" Y="365"/>
+        <UsageCount Value="65"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -138,7 +138,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="289"/>
         <CursorPos X="35" Y="308"/>
-        <UsageCount Value="63"/>
+        <UsageCount Value="64"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Frames\ufCHXBGRAImgViewer.pas"/>
@@ -149,30 +149,31 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="105"/>
         <CursorPos Y="120"/>
-        <UsageCount Value="59"/>
+        <UsageCount Value="60"/>
       </Unit>
       <Unit>
         <Filename Value="..\CHXPas\Abstract\uaCHXConfig.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="19"/>
         <CursorPos X="3" Y="34"/>
-        <UsageCount Value="43"/>
+        <UsageCount Value="44"/>
       </Unit>
       <Unit>
         <Filename Value="src\classes\ucEMCConfig.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="3"/>
-        <CursorPos X="18" Y="106"/>
-        <UsageCount Value="41"/>
+        <TopLine Value="116"/>
+        <CursorPos X="76" Y="148"/>
+        <UsageCount Value="42"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>
         <Filename Value="src\units\uEMCConst.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="13" Y="31"/>
-        <UsageCount Value="41"/>
+        <UsageCount Value="42"/>
       </Unit>
     </Units>
     <RunParams>

ETKMagCut/src/classes/ucEMCConfig.pas

@@ -37,7 +37,6 @@ interface
   krsLanguagesKey = 'Languages';
   krsTypesKey = 'Types';
   krsSystemsKey = 'Systems';
-  krsVideogamesKey = 'Videogames';
 
   krsFoldersSection = 'Folders';
   krsBaseOutFolderKey = 'BaseOutFolder';
@@ -53,7 +52,6 @@   cEMCConfig = class(caCHXConfig)
     FSections: TStringList;
     FSystems: TStringList;
     FTypes: TStringList;
-    FVideogames: TStringList;
     procedure SetBaseOutFolder(AValue: string);
 
   public
@@ -73,7 +71,6 @@   cEMCConfig = class(caCHXConfig)
     property Languages: TStringList read FLanguages;
     property Types: TStringList read FTypes;
     property Systems: TStringList read FSystems;
-    property Videogames: TStringList read FVideogames;
   end;
 
 implementation
@@ -95,7 +92,6 @@ procedure cEMCConfig.LoadFromIni(aIniFile: TMemIniFile);
   Languages.CommaText := aIniFile.ReadString(krsListsSection, krsLanguagesKey, Languages.CommaText);
   Types.CommaText := aIniFile.ReadString(krsListsSection, krsTypesKey, Types.CommaText);
   Systems.CommaText := aIniFile.ReadString(krsListsSection, krsSystemsKey, Systems.CommaText);
-  Videogames.CommaText := aIniFile.ReadString(krsListsSection, krsVideogamesKey, Videogames.CommaText);
 end;
 
 procedure cEMCConfig.ResetDefaultConfig;
@@ -107,7 +103,6 @@ procedure cEMCConfig.ResetDefaultConfig;
   Languages.Clear;
   Types.Clear;
   Systems.Clear;
-  Videogames.Clear;
 end;
 
 constructor cEMCConfig.Create(aOwner: TComponent);
@@ -127,9 +122,6 @@ constructor cEMCConfig.Create(aOwner: TComponent);
   FSystems := TStringList.Create;
   Systems.Sorted := True;
   Systems.Duplicates := dupIgnore;
-  FVideogames := TStringList.Create;
-  Videogames.Sorted := True;
-  Videogames.Duplicates := dupIgnore;
 
   inherited Create(aOwner);
 end;
@@ -141,7 +133,6 @@ destructor cEMCConfig.Destroy;
   FreeAndNil(FLanguages);
   FreeAndNil(FTypes);
   FreeAndNil(FSystems);
-  FreeAndNil(FVideogames);
 
   inherited Destroy;
 end;
@@ -155,7 +146,6 @@ procedure cEMCConfig.SaveToIni(aIniFile: TMemIniFile);
   aIniFile.WriteString(krsListsSection, krsLanguagesKey, Languages.CommaText);
   aIniFile.WriteString(krsListsSection, krsTypesKey, Types.CommaText);
   aIniFile.WriteString(krsListsSection, krsSystemsKey, Systems.CommaText);
-  aIniFile.WriteString(krsListsSection, krsVideogamesKey, Videogames.CommaText);
 end;
 
 end.

ETKMagCut/src/frames/ufEMCImagePropEditor.lfm

@@ -8,8 +8,8 @@ inherited fmEMCImagePropEditor: TfmEMCImagePropEditor
   ChildSizing.Layout = cclLeftToRightThenTopToBottom
   ChildSizing.ControlsPerLine = 1
   ClientHeight = 938
-  DesignLeft = 436
-  DesignTop = 23
+  DesignLeft = 437
+  DesignTop = 4
   object lFilename: TLabel[0]
     Left = 4
     Height = 20
@@ -490,9 +490,10 @@ inherited fmEMCImagePropEditor: TfmEMCImagePropEditor
   end
   object pButtons: TPanel[7]
     Left = 4
-    Height = 77
+    Height = 76
     Top = 758
     Width = 392
+    BevelOuter = bvNone
     ChildSizing.LeftRightSpacing = 4
     ChildSizing.TopBottomSpacing = 4
     ChildSizing.HorizontalSpacing = 8
@@ -501,7 +502,7 @@ inherited fmEMCImagePropEditor: TfmEMCImagePropEditor
     ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
-    ClientHeight = 77
+    ClientHeight = 76
     ClientWidth = 392
     TabOrder = 6
     object bClearSelection: TButton

ETKMagCut/src/frames/ufEMCImagePropEditor.pas

@@ -278,7 +278,6 @@ procedure TfmEMCImagePropEditor.SetEMCConfig(AValue: cEMCConfig);
   cbxLanguage.Items.AddStrings(EMCConfig.Languages);
   cbxType.Items.AddStrings(EMCConfig.Types);
   cbxSystem.Items.AddStrings(EMCConfig.Systems);
-  cbxGame.Items.AddStrings(EMCConfig.Videogames);
 end;
 
 procedure TfmEMCImagePropEditor.SetOnChangeRect(AValue: TEMCProcRectObjCB);
@@ -499,14 +498,13 @@ procedure TfmEMCImagePropEditor.SaveEMCConfig;
 begin
   if assigned(EMCConfig) then
   begin
-    EMCConfig.BaseOutFolder := eBaseOutFolder.Text;
+      EMCConfig.BaseOutFolder := eBaseOutFolder.Text;
 
     EMCConfig.Magazines.AddStrings(cbxMagazine.Items, True);
     EMCConfig.Sections.AddStrings(cbxSection.Items, True);
     EMCConfig.Languages.AddStrings(cbxLanguage.Items, True);
     EMCConfig.Types.AddStrings(cbxType.Items, True);
     EMCConfig.Systems.AddStrings(cbxSystem.Items, True);
-    EMCConfig.Videogames.AddStrings(cbxGame.Items, True);
   end;
 end;
 

EmutecaCore/Abstracts/uaEmutecaCustomEmu.pas

@@ -5,27 +5,12 @@
   This file is part of Emuteca Core.
 
   Copyright (C) 2006-2023 Chixpy
-
-  This source is free software; you can redistribute it and/or modify it under
-  the terms of the GNU General Public License as published by the Free
-  Software Foundation; either version 3 of the License, or (at your option)
-  any later version.
-
-  This code is distributed in the hope that it will be useful, but WITHOUT ANY
-  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
-  details.
-
-  A copy of the GNU General Public License is available on the World Wide Web
-  at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
-  to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
-  MA 02111-1307, USA.
 }
 {$mode objfpc}{$H+}
 
 interface
 
-uses  Classes, SysUtils, FileUtil, StrUtils, LazUTF8, LazFileUtils,
+uses Classes, SysUtils, FileUtil, StrUtils, LazUTF8, LazFileUtils,
   IniFiles, lclintf,
   // CHX units
   uCHXStrUtils, uCHXExecute,
@@ -211,7 +196,7 @@   caEmutecaCustomEmu = class(caCHXStorableIni)
     Only one extension in every string, without dot.
     }
 
-    property ExitCode: integer read FExitCode write SetExitCode;
+    property ExitCode: integer read FExitCode write SetExitCode default 0;
     {< Code returned by emulator in usual conditions. Emuteca will not show
          an error message if this code is returned. }
 
@@ -436,8 +421,8 @@ function caEmutecaCustomEmu.Execute(GameFile: string;
     ExtractFileDir(ExeFile));
   ActualWorkDir := AnsiReplaceText(ActualWorkDir, krsEmutecaROMDirKey,
     ExtractFileDir(GameFile));
-  ActualWorkDir := AnsiReplaceText(ActualWorkDir, krsEmutecaCurrentDirKey,
-    GetCurrentDirUTF8);
+  ActualWorkDir := AnsiReplaceText(ActualWorkDir,
+    krsEmutecaCurrentDirKey, GetCurrentDirUTF8);
   ActualWorkDir := SysPath(ActualWorkDir);
 
   // Parameters
@@ -538,8 +523,8 @@ function caEmutecaCustomEmu.Execute(GameFile: string;
       OpenDocument(ActualParam);
   end
   else
-    ExecuteCMDString(ActualWorkDir, ExeFile, ActualParam,
-      sOutput, sError, Result);
+    ExecuteCMDString(ActualWorkDir, ExeFile, ActualParam, sOutput,
+      sError, Result);
 
   // TODO: Make this configurable and let open they from GUI
   aSL := TStringList.Create;
@@ -645,3 +630,19 @@ initialization
 finalization
   UnRegisterClass(caEmutecaCustomEmu);
 end.
+{
+This source is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 3 of the License, or (at your option)
+any later version.
+
+This code is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+details.
+
+A copy of the GNU General Public License is available on the World Wide Web
+at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
+to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+MA 02111-1307, USA.
+}