Changeset 114 for Generics

Timestamp:

Jan 5, 2011, 7:51:16 AM (14 years ago)

Author:

george

Message:

• Fixed: CoolDocking was not showing tab content on tab switch.

Location:

Generics/TemplateGenerics

Files:

• Generic/GenericList.inc (modified) (2 diffs)
• ReadMe.txt (modified) (1 diff)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -3 +3 @@
   TGList = class;
 
-  TGListSortCompare = function(const Item1, Item2: TGListItem): Integer of object;
+  TGListSortCompare = function(Item1, Item2: TGListItem): Integer of object;
   TGListToStringConverter = function(Item: TGListItem): string;
   TGListFromStringConverter = function(Text: string): TGListItem;
@@ -91 +91 @@
     IncSize := NewCapacity - Capacity;
     // Expand
-    if FCount = Capacity then begin
+    if IncSize = 1 then begin
       IncSize := 4;
       if Capacity > 3 then IncSize := IncSize + 4;
       if Capacity > 8 then IncSize := IncSize + 8;
       if Capacity > 63 then IncSize := IncSize + Capacity shr 2; // Grow by one quarter
-      Capacity := Capacity + IncSize;
-    end;
+    end;
+    Capacity := Capacity + IncSize;
   end else
   if NewCapacity < Capacity then begin

Generics/TemplateGenerics/ReadMe.txt

@@ -10 +10 @@
 Email: robie@centrum.cz
 
+
+Main subversion repository:
+http://svn.zdechov.net/svn/PascalClassLibrary/Generics/TemplateGenerics