simpler

Alexey-T · Nov 26, 2022 · 29fa922 · 29fa922
1 parent 35f1d80
commit 29fa922
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/app/formmain.pas b/app/formmain.pas
@@ -2889,17 +2889,13 @@ procedure TfmMain.DoCloseAllTabs_Old;
 function TfmMain.DoCloseAllTabs: boolean;
 var
   List: array of TATGroups;
-  Grp: TATGroups;
   i: integer;
 begin
   Result:= false;
   List:= [Groups, GroupsF1, GroupsF2, GroupsF3];
   for i:= High(List) downto 0 do
     if Assigned(List[i]) then
-    begin
-      Grp:= TATGroups(List[i]);
-      if not Grp.CloseTabs(tabCloseAll, false) then exit;
-    end;
+      if not List[i].CloseTabs(tabCloseAll, false) then exit;
   Result:= true;
 end;