Cleanup.

jrsoftware · Jan 22, 2025 · 3723ae6 · 3723ae6
1 parent e1a0936
commit 3723ae6
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/Projects/Src/Setup.SetupForm.pas b/Projects/Src/Setup.SetupForm.pas
@@ -248,7 +248,6 @@ function IsParentSetupFormRightToLeft(AControl: TControl): Boolean;
 end;
 
 type
-  TControlAnchorsListItem = TPair<TControl, TAnchors>;
   TControlAnchorsList = TDictionary<TControl, TAnchors>;
   TControlAccess = class(TControl);
 
@@ -271,13 +270,11 @@ procedure StripAndStoreCustomAnchors(const Ctl: TControl; const AnchorsList: TCo
 end;
 
 procedure RestoreAnchors(const Ctl: TControl; const AnchorsList: TControlAnchorsList);
-var
-  I: TControlAnchorsListItem;
 begin
   { The order in which we restore the anchors shouldn't matter, so just
     enumerate the list. }
-  for I in AnchorsList do
-    I.Key.Anchors := I.Value;
+  for var Item in AnchorsList do
+    Item.Key.Anchors := Item.Value;
 end;
 
 { TSetupForm }