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: Memory leak

Browse source
This commit is contained in:
Alexander Koblov 2017-02-12 08:43:41 +00:00
commit 030e36c13b
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/fmain.pas
View file

@ -4828,13 +4828,13 @@ begin
// Operations panel and menu
if (gPanelOfOp = False) then
FreeAndNil(FOperationsPanel)
else
begin
FOperationsPanel := TOperationsPanel.Create(Self);
FOperationsPanel.Parent := PanelAllProgress;
FOperationsPanel.DoubleBuffered := True;
PanelAllProgress.OnResize := @FOperationsPanel.ParentResized;
end;
else if (FOperationsPanel = nil) then
begin
FOperationsPanel := TOperationsPanel.Create(Self);
FOperationsPanel.Parent := PanelAllProgress;
FOperationsPanel.DoubleBuffered := True;
PanelAllProgress.OnResize := @FOperationsPanel.ParentResized;
end;
PanelAllProgress.Visible := gPanelOfOp;
Timer.Enabled := gPanelOfOp or gProgInMenuBar;