Changeset 218 for Docking/CoolDocking/UCDCommon.pas

Timestamp:

Mar 23, 2011, 12:22:26 PM (14 years ago)

Author:

george

Message:

• Fixed: Parent manager tabs switching.

File:

• Docking/CoolDocking/UCDCommon.pas (modified) (2 diffs)

Docking/CoolDocking/UCDCommon.pas

@@ -79 +79 @@
 implementation
 
+var
+  UniqueNameCounter: Integer;
+
 function GetUniqueName(BaseName: string): string;
-var
-  I: Integer;
-begin
-  I := 1;
-  while Assigned(FindGlobalComponent(BaseName + IntToStr(I))) do Inc(I);
-  Result := BaseName + IntToStr(I);
+begin
+  Result := BaseName + IntToStr(UniqueNameCounter);
+  Inc(UniqueNameCounter);
 end;
 
@@ -211 +211 @@
 end;
 
+initialization
+
+UniqueNameCounter := 1;
+
 end.