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: Access violation when panel of operations is disabled

Browse source
This commit is contained in:
Alexander Koblov 2012-07-20 16:47:47 +00:00
commit 9aa529e097
2 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fmain.lfm
View file

@ -3175,6 +3175,7 @@ object frmMain: TfrmMain
end
end
object Timer: TTimer
Enabled = False
Interval = 100
OnTimer = AllProgressOnUpdateTimer
left = 96

28
src/fmain.pas
View file

@ -3983,6 +3983,7 @@ begin
end;
end;
// Drive free space indicator
if gDriveInd then
begin
AnchorFreeSpace(pbxLeftDrive, pbxRightDrive, gDriveFreeSpace);
@ -3995,15 +3996,18 @@ begin
end;
end;
if gPanelOfOp then
begin
FOperationsPanel := TOperationsPanel.Create(Self);
FOperationsPanel.Parent := PanelAllProgress;
FOperationsPanel.DoubleBuffered := True;
PanelAllProgress.OnResize := @FOperationsPanel.ParentResized;
end
// Operations panel and menu
if (gPanelOfOp = False) then
FreeAndNil(FOperationsPanel)
else
FreeAndNil(FOperationsPanel);
begin
FOperationsPanel := TOperationsPanel.Create(Self);
FOperationsPanel.Parent := PanelAllProgress;
FOperationsPanel.DoubleBuffered := True;
PanelAllProgress.OnResize := @FOperationsPanel.ParentResized;
end;
PanelAllProgress.Visible := gPanelOfOp;
Timer.Enabled := gPanelOfOp or gProgInMenuBar;
// Log window
seLogWindow.Visible := gLogWindow;
@ -4949,16 +4953,16 @@ begin
if gPanelOfOp = True then
FOperationsPanel.UpdateView;
if gProgInMenuBar = true then
if gProgInMenuBar = True then
begin
AllProgressPoint:= Round(OperationsManager.AllProgressPoint*100);
mnuAllOperProgress.Caption:=IntToStr(AllProgressPoint)+' %'; // Show in menu line
AllProgressPoint:= Round(OperationsManager.AllProgressPoint * 100);
// Show in menu line
mnuAllOperProgress.Caption:=IntToStr(AllProgressPoint) + ' %';
mnuAllOperProgress.Visible:= True;
mnuAllOperPause.Visible:= True;
mnuAllOperStart.Visible:= True;
end;
end;
PanelAllProgress.Visible := FOperationsPanel.Visible;
end;
procedure TfrmMain.SetFileSystemPath(aFileView: TFileView; aPath: UTF8String);