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: Bug [0002386] Removable drives don't show up automatically

Browse source
This commit is contained in:
Alexander Koblov 2019-11-04 09:06:15 +00:00
commit 4e017b5bd6
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fmain.pas
View file

@ -4262,9 +4262,6 @@ begin
end;
end;
type
TCustomShellTreeViewCrack = class(TCustomShellTreeView);
procedure TfrmMain.UpdateShellTreeView;
begin
actTreeView.Checked := gSeparateTree;
@ -4283,7 +4280,7 @@ begin
ReadOnly := True;
RightClickSelect := True;
FileSortType := fstFoldersFirst;
TCustomShellTreeViewCrack(ShellTreeView).PopulateWithBaseFiles;
PopulateWithBaseFiles;
Images := TImageList.Create(Self);
Images.Width := gIconsSize;
@ -4372,6 +4369,12 @@ begin
end;
dskLeft.AddToolItemExecutor(TKASDriveItem, @LeftDriveBarExecuteDrive);
dskRight.AddToolItemExecutor(TKASDriveItem, @RightDriveBarExecuteDrive);
if gSeparateTree and Assigned(ShellTreeView) then
begin
TShellTreeView(ShellTreeView).PopulateWithBaseFiles;
UpdateTreeViewPath;
end;
end;
procedure TfrmMain.AddVirtualDriveButton(dskPanel: TKASToolBar);