Changeset 342 for Generics/TemplateGenerics/Generic/GenericList.inc

Timestamp:

Apr 3, 2012, 7:35:26 AM (13 years ago)

Author:

chronos

Message:

• Added: Update locking support for TGList.
• Modified: Enhanced TGStream methods.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (21 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -24 +24 @@
     FItems: array of TGListItem;
     FCount: TGListIndex;
+    FUpdateCount: NativeInt;
+    FOnUpdate: TNotifyEvent;
     function Get(Index: TGListIndex): TGListItem;
     function GetCapacity: TGListIndex;
@@ -72 +74 @@
     procedure Sort(Compare: TGListSortCompare);
     procedure SetArray(Values: array of TGListItem);
+    procedure BeginUpdate;
+    procedure EndUpdate;
+    procedure Update;
     property Count: TGListIndex read FCount write SetCount;
     property Capacity: TGListIndex read GetCapacity write SetCapacity;
@@ -107 +112 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -118 +124 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -130 +137 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -248 +256 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -294 +303 @@
   InsertCount(Index, 1);
   FItems[Index] := Item;
+  Update;
 end;
 
@@ -319 +329 @@
   if Index < FCount then
     System.Move(FItems[Index], FItems[Index + ACount], (FCount - ACount - Index) * SizeOf(TGListItem));
+  Update;
 end;
 
@@ -409 +420 @@
   //Delete(CurIndex);
   //Insert(NewIndex, Temp);
+  Update;
 end;
 
@@ -434 +446 @@
     end;
   end;
+  Update;
 end;
 
@@ -469 +482 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -475 +489 @@
   if FCount > 1 then
     QuickSort(0, FCount - 1, Compare);
+  Update;
 end;
 
@@ -486 +501 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -498 +514 @@
     I := I + 1;
   end;
+end;
+
+procedure TGList.BeginUpdate;
+begin
+  Inc(FUpdateCount);
+end;
+
+procedure TGList.EndUpdate;
+begin
+  Dec(FUpdateCount);
+  Update;
+end;
+
+procedure TGList.Update;
+begin
+  if Assigned(FOnUpdate) and (FUpdateCount = 0) then FOnUpdate(Self);
 end;
 
@@ -530 +562 @@
   Result := FCount - 1;
   FItems[Result] := Item;
+  Update;
 end;
 
@@ -545 +578 @@
     J := J + 1;
   end;
+  Update;
 end;
 
@@ -560 +594 @@
     J := J + 1;
   end;
+  Update;
 end;
 
@@ -575 +610 @@
   System.Move(FItems[Index + 1], FItems[Index], (FCount - Index) * SizeOf(TGListItem));
   SetCapacityOptimized(Capacity - 1);
+  Update;
 end;
 
@@ -586 +622 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -597 +634 @@
     I := I + 1;
   end;
+  Update;
 end;
 
@@ -610 +648 @@
   FItems[Index1] := FItems[Index2];
   FItems[Index2] := Temp;
+  Update;
 end;