Fixed issue with not displaying all firmware versions for certain mod…

…ules properly.
eriklins · May 23, 2023 · 648b1d4 · 648b1d4
1 parent 3d69c6d
commit 648b1d4
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git 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
@@ -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
@@ -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;