From 648b1d4fca4a85a892fc7d2517b3860e53ef04d5 Mon Sep 17 00:00:00 2001
From: eriklins <erik@lins.de>
Date: Tue, 23 May 2023 14:37:50 +0200
Subject: [PATCH] Fixed issue with not displaying all firmware versions for
 certain modules properly.

---
 src/unit1.lfm | 8 ++++----
 src/unit1.pas | 4 ++--
 src/xcomp.pas | 6 +++---
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/unit1.lfm b/src/unit1.lfm
index 77ef95d..e1475a5 100644
--- a/src/unit1.lfm
+++ b/src/unit1.lfm
@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 2470
+  Left = 2496
   Height = 459
-  Top = 63
+  Top = 200
   Width = 568
   AllowDropFiles = True
   Caption = 'Online XCompiler Tool'
@@ -121,7 +121,7 @@ object Form1: TForm1
     Top = 16
     Width = 32
     Alignment = taRightJustify
-    Caption = 'V1.4'
+    Caption = 'V1.5'
     Color = clDefault
     Font.CharSet = ANSI_CHARSET
     Font.Color = clGray
@@ -140,7 +140,7 @@ object Form1: TForm1
     Top = 35
     Width = 112
     Alignment = taRightJustify
-    Caption = '(C) Erik Lins, 2022'
+    Caption = '(C) Erik Lins, 2023'
     Color = clDefault
     Font.CharSet = ANSI_CHARSET
     Font.Color = clGray
diff --git a/src/unit1.pas b/src/unit1.pas
index 53534f3..f7ab37a 100644
--- a/src/unit1.pas
+++ b/src/unit1.pas
@@ -123,8 +123,8 @@ procedure TForm1.FormCreate(Sender: TObject);
   SelectFirmwareBox.Clear;
   for i := 0 to XComp.xNofFirmware[0] - 1 do
   begin
-    SelectFirmwareBox.Items.Add(XComp.xFirmware[i][0][0] + ' (' +
-      XComp.xFirmware[i][0][1] + ' ' + XComp.xFirmware[i][0][2] + ')');
+    SelectFirmwareBox.Items.Add(XComp.xFirmware[0][i][0] + ' (' +
+      XComp.xFirmware[0][i][1] + ' ' + XComp.xFirmware[0][i][2] + ')');
   end;
   SelectFirmwareBox.ItemIndex := 0;
 
diff --git a/src/xcomp.pas b/src/xcomp.pas
index f077a79..99cf6d7 100644
--- a/src/xcomp.pas
+++ b/src/xcomp.pas
@@ -11,9 +11,9 @@ interface
   xCompPage, s: string;
   p: integer;
   xNofDevices: integer;
-  xDevice: array [0..19] of string;  // extend if more than 20 devices
-  xNofFirmware: array [0..19] of integer;
-  xFirmware: array [0..19, 0..10, 0..2] of string;  // extend if more than 20 fw versions
+  xDevice: array [0..29] of string;  // extend if more than 20 devices
+  xNofFirmware: array [0..29] of integer;
+  xFirmware: array [0..29, 0..29, 0..2] of string;  // extend if more than 20 fw versions
   xModuleIdx, xFirmwareIdx: Integer;
   xField, xProxy, xFileName: String;