Updating ETKIconBorder

- ETKIconBorder: Changed Color Buttons to Color ComboBoxes. - And secretly reworking the GUI. - Emulators.ini: Adding LNSCompFE - Systems.ini: Updating some systems config.
Chixpy · May 1, 2024 · bfac8c0 · bfac8c0
1 parent 1d7ce87
commit bfac8c0
Show file tree

Hide file tree

Showing 18 changed files with 3,089 additions and 539 deletions.
diff --git a/CHXPas b/CHXPas
diff --git a/ETKIconBorder/ETKIconBorder.lpi b/ETKIconBorder/ETKIconBorder.lpi
@@ -22,9 +22,9 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
-      <MinorVersionNr Value="5"/>
-      <RevisionNr Value="8"/>
-      <BuildNr Value="26"/>
+      <MinorVersionNr Value="6"/>
+      <RevisionNr Value="1"/>
+      <BuildNr Value="30"/>
     </VersionInfo>
     <BuildModes Count="2">
       <Item1 Name="Debug" Default="True"/>
@@ -37,7 +37,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
-            <OtherUnitFiles Value="src\forms;..\CHXPas\Units;..\CHXPas\Forms;..\CHXPas\Abstract;..\CHXPas\Frames;src\classes;..\CHXPas\Misc"/>
+            <OtherUnitFiles Value="src\forms;..\CHXPas\Units;..\CHXPas\Forms;..\CHXPas\Abstract;..\CHXPas\Frames;src\classes;..\CHXPas\Misc;src\frames"/>
             <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
           <CodeGeneration>
@@ -76,7 +76,7 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="14">
+    <Units Count="18">
       <Unit0>
         <Filename Value="ETKIconBorder.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -127,6 +127,7 @@
         <Filename Value="..\CHXPas\Frames\ufCHXFrame.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="fmCHXFrame"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Frame"/>
       </Unit10>
       <Unit11>
@@ -141,6 +142,31 @@
         <Filename Value="..\CHXPas\Misc\uVersionSupport.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit13>
+      <Unit14>
+        <Filename Value="src\frames\ufETKIBMain.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="fmETKIBMain"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Frame"/>
+      </Unit14>
+      <Unit15>
+        <Filename Value="..\CHXPas\Frames\ufCHXBGRAImgViewerEx.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="fmCHXBGRAImgViewerEx"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Frame"/>
+      </Unit15>
+      <Unit16>
+        <Filename Value="..\CHXPas\Frames\ufCHXBGRAImgViewer.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="fmCHXBGRAImgViewer"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Frame"/>
+      </Unit16>
+      <Unit17>
+        <Filename Value="..\CHXPas\Units\uCHXMath.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit17>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -151,7 +177,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <OtherUnitFiles Value="src\forms;..\CHXPas\Units;..\CHXPas\Forms;..\CHXPas\Abstract;..\CHXPas\Frames;src\classes;..\CHXPas\Misc"/>
+      <OtherUnitFiles Value="src\forms;..\CHXPas\Units;..\CHXPas\Forms;..\CHXPas\Abstract;..\CHXPas\Frames;src\classes;..\CHXPas\Misc;src\frames"/>
       <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Parsing>

diff --git a/ETKIconBorder/ETKIconBorder.lpr b/ETKIconBorder/ETKIconBorder.lpr
@@ -8,8 +8,8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms, ufrIconBorderMain, uCHXStrUtils, uCHXConst, uCHXRscStr, uCHXImageUtils,
-  ufrCHXForm, uaCHXConfig, uaCHXStorable, ufCHXFrame, uVersionSupport,
-  ucEIBConfig
+  ufrCHXForm, uaCHXConfig, uaCHXStorable, ufCHXFrame, ufCHXBGRAImgViewerEx,
+  ufCHXBGRAImgViewer, uVersionSupport, ucEIBConfig, ufETKIBMain, uCHXMath
   { you can add units after this };
 
 {$R *.res}

diff --git a/ETKIconBorder/ETKIconBorder.res b/ETKIconBorder/ETKIconBorder.res
diff --git a/ETKIconBorder/src/classes/ucEIBConfig.pas b/ETKIconBorder/src/classes/ucEIBConfig.pas
@@ -6,6 +6,7 @@ interface
 
 uses
   Classes, SysUtils, IniFiles,
+  // CHX units
   uCHXStrUtils,
   // CHX abstract classes
   uaCHXConfig;
@@ -14,22 +15,25 @@ interface
   krsFoldersSection = 'Folders';
   krsLastInFolderKey = 'LastInFolder';
   krsLastOutFolderKey = 'LastOutFolder';
+  krsGUIIconsIniKey = 'GUIIconsIni';
 
 type
 
   { cEIBConfig }
 
   cEIBConfig = class(caCHXConfig)
-
   private
+    FGUIIconsIni : string;
     FLastInFolder: string;
     FLastOutFolder: string;
+    procedure SetGUIIconsIni(const aValue : string);
     procedure SetLastInFolder(AValue: string);
     procedure SetLastOutFolder(AValue: string);
 
   public
     property LastOutFolder: string read FLastOutFolder write SetLastOutFolder;
     property LastInFolder: string read FLastInFolder write SetLastInFolder;
+    property GUIIconsIni: string read FGUIIconsIni write SetGUIIconsIni;
 
     procedure LoadFromIni(aIniFile: TMemIniFile); override;
     procedure ResetDefaultConfig; override;
@@ -38,7 +42,6 @@   cEIBConfig = class(caCHXConfig)
 
     constructor Create(aOwner: TComponent); override;
     destructor Destroy; override;
-
   end;
 
 implementation
@@ -51,6 +54,12 @@ procedure cEIBConfig.SetLastInFolder(AValue: string);
   FLastInFolder := SetAsFolder(AValue);
 end;
 
+procedure cEIBConfig.SetGUIIconsIni(const aValue : string);
+begin
+  if FGUIIconsIni = aValue then Exit;
+  FGUIIconsIni := aValue;
+end;
+
 procedure cEIBConfig.SetLastOutFolder(AValue: string);
 begin
   FLastOutFolder := SetAsFolder(AValue);
@@ -62,18 +71,22 @@ procedure cEIBConfig.LoadFromIni(aIniFile: TMemIniFile);
     krsLastInFolderKey, LastInFolder);
   LastOutFolder := aIniFile.ReadString(krsFoldersSection,
     krsLastOutFolderKey, LastOutFolder);
+  GUIIconsIni := aIniFile.ReadString(krsFoldersSection,
+    krsGUIIconsIniKey, GUIIconsIni);
 end;
 
 procedure cEIBConfig.ResetDefaultConfig;
 begin
   LastOutFolder := '';
   LastInFolder := '';
+  GUIIconsIni := 'Images/GUI/Icons.ini';
 end;
 
 procedure cEIBConfig.SaveToIni(aIniFile: TMemIniFile);
 begin
   aIniFile.WriteString(krsFoldersSection, krsLastInFolderKey, LastInFolder);
   aIniFile.WriteString(krsFoldersSection, krsLastOutFolderKey, LastOutFolder);
+  aIniFile.WriteString(krsFoldersSection, krsGUIIconsIniKey, GUIIconsIni);
 end;
 
 constructor cEIBConfig.Create(aOwner: TComponent);
@@ -87,3 +100,19 @@ destructor cEIBConfig.Destroy;
 end;
 
 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.
+}