Changeset 3 for trunk/Ean.pas

Timestamp:

Apr 7, 2026, 10:43:55 AM (3 weeks ago)

Author:

chronos

Message:

• Added: Third selectable EAN on chart tab.

File:

• trunk/Ean.pas (modified) (2 diffs)

trunk/Ean.pas

@@ -44 +44 @@
   TEans = class(TObjectList<TEan>)
     function SearchByNumber(Number: string): TEan;
-    procedure LoadToStrings(Strings: TStrings);
+    procedure LoadToStrings(Strings: TStrings; AllowNone: Boolean = False);
   end;
 
@@ -142 +142 @@
 end;
 
-procedure TEans.LoadToStrings(Strings: TStrings);
+procedure TEans.LoadToStrings(Strings: TStrings; AllowNone: Boolean = False);
 var
   I: Integer;
+  Shift: Integer;
 begin
+  if AllowNone then Shift := 1 else Shift := 0;
   Strings.BeginUpdate;
   try
-    while Strings.Count > Count do Strings.Delete(Strings.Count - 1);
-    while Strings.Count < Count do Strings.Add('');
+    while Strings.Count > Count + Shift do Strings.Delete(Strings.Count - 1);
+    while Strings.Count < Count + Shift do Strings.Add('');
     for I := 0 to Count - 1 do begin
-      Strings[I] := Items[I].Number + ' (' + Items[I].Owner + ')';
-      Strings.Objects[I] := Items[I];
+      Strings[I + Shift] := Items[I].Number + ' (' + Items[I].Owner + ')';
+      Strings.Objects[I + Shift] := Items[I];
     end;
   finally