Changeset 89 for trunk/Packages/Common/Pool.pas

Timestamp:

Jun 7, 2024, 4:35:46 PM (5 months ago)

Author:

chronos

Message:

• Added: Allow to select color palette in new game dialog.
• Fixed: Use scrollboxes in options dialogs.

File:

• trunk/Packages/Common/Pool.pas (modified) (5 diffs)

trunk/Packages/Common/Pool.pas

@@ -57 +57 @@
   try
     Lock.Acquire;
-    inherited SetTotalCount(AValue);
+    inherited;
   finally
     Lock.Release;
@@ -67 +67 @@
   try
     Lock.Acquire;
-    Result := inherited GetUsedCount;
+    Result := inherited;
   finally
     Lock.Release;
@@ -88 +88 @@
       end;
     end;
-    Result := inherited Acquire;
+    Result := inherited;
   finally
     Lock.Release;
@@ -98 +98 @@
   try
     Lock.Acquire;
-    inherited Release(Item);
+    inherited;
   finally
     Lock.Release;
@@ -113 +113 @@
 begin
   TotalCount := 0;
-  Lock.Free;
+  FreeAndNil(Lock);
   inherited;
 end;