This commit is contained in:
Basile Burg 2019-04-04 10:10:35 +02:00
parent d3b689f2b6
commit cb6c0a5091
1 changed files with 1 additions and 2 deletions

View File

@ -2765,7 +2765,6 @@ procedure TMainForm.actLayoutResetExecute(Sender: TObject);
begin begin
InitDocking(true); InitDocking(true);
end; end;
{$ENDREGION} {$ENDREGION}
{$REGION edit ------------------------------------------------------------------} {$REGION edit ------------------------------------------------------------------}
@ -3301,7 +3300,7 @@ begin
for i := fMultidoc.documentCount-1 downto 0 do for i := fMultidoc.documentCount-1 downto 0 do
begin begin
d := fMultidoc.document[i]; d := fMultidoc.document[i];
if not d.Equals(c) then if d = c then
fMultidoc.closeDocument(d); fMultidoc.closeDocument(d);
end; end;
end; end;