Martijn Laan 7 ヶ月 前
コミット
3723ae64a5
1 ファイル変更2 行追加5 行削除
  1. 2 5
      Projects/Src/Setup.SetupForm.pas

+ 2 - 5
Projects/Src/Setup.SetupForm.pas

@@ -248,7 +248,6 @@ begin
 end;
 
 type
-  TControlAnchorsListItem = TPair<TControl, TAnchors>;
   TControlAnchorsList = TDictionary<TControl, TAnchors>;
   TControlAccess = class(TControl);
 
@@ -271,13 +270,11 @@ begin
 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 }