Changeset 334 for trunk/ItemList.pas

Timestamp:

Aug 27, 2024, 4:39:09 PM (2 months ago)

Author:

chronos

Message:

• Fixed: Recalculate list NewId if necessary.

File:

• trunk/ItemList.pas (modified) (5 diffs)

trunk/ItemList.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, DOM, XML, Common, Graphics;
+  Classes, SysUtils, Generics.Collections, DOM, XML, Common, Graphics, Math;
 
 type
@@ -77 +77 @@
 
   TItemList = class(TObjectList<TItem>)
+  private
+    procedure RecalculateNewId(Reset: Boolean);
+  public
     NewId: Integer;
     class function GetItemClass: TItemClass; virtual;
@@ -144 +147 @@
   for I := 0 to Count - 1 do
     TItem(Items[I]).Assign(Source.Items[I]);
+  RecalculateNewId(True);
 end;
 
@@ -172 +176 @@
     Node2 := Node2.NextSibling;
   end;
+  RecalculateNewId(True);
 end;
 
@@ -191 +196 @@
   inherited;
   NewId := 1;
+end;
+
+procedure TItemList.RecalculateNewId(Reset: Boolean);
+var
+  I: Integer;
+begin
+  NewId := 1;
+  for I := 0 to Count - 1 do
+  with TItem(Items[I]) do begin
+    NewId := Max(NewId, Id + 1);
+  end;
 end;