mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: cm_ReloadFavoriteTabs Crash (fixes #236)

Browse source
This commit is contained in:
Alexander Koblov 2022-01-27 20:34:11 +03:00
commit 98bdde4e1f
1 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/ufileviewnotebook.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
This unit contains TFileViewPage and TFileViewNotebook objects.
Copyright (C) 2016-2021 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2016-2022 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -543,15 +543,9 @@ begin
end;
procedure TFileViewNotebook.DestroyAllPages;
var
tPage:TFileViewPage;
begin
FCanChangePageIndex:= False;
while PageCount > 0 do
begin
tPage:=Page[0];
if tPage<>nil then FreeAndNil(tPage);
end;
Tabs.Clear;
FCanChangePageIndex:= True;
end;