Ensure selected item in Filelist Listview is visible in Directory Tr…

…eeview

 #558

Source/Main.pas

@@ -359,6 +359,7 @@   TFMain = class(TScaleForm)
     procedure ShellListMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
     procedure CounterETEvent(Counter: integer);
     procedure ResetRootShowAll;
+    function SyncShellTree: TTreenode;
   protected
     function GetDefWindowSizes: TRect; override;
   public
@@ -451,6 +452,45 @@ function TFMain.GetFormOffset(AddFileList: boolean = true): TPoint;
     result.Y := result.Y + AdvPageFilelist.Top;
 end;
 
+// Make the path, from the selected file in the FileList, visible in the Directory Treeview
+// Notes: Without selecting. That would refresh the ShellList
+//        Especially useful when subdirs are shown
+function TFMain.SyncShellTree: TTreenode;
+var
+  NewNode: TTreenode;
+  APath: string;
+  ASub: string;
+  ASubPath: string;
+begin
+  result := ShellTree.Items[0];
+  if (ShellList.IncludeSubFolders = false) then
+    exit;
+  if (ShellList.SelectedFolder = nil) then
+    exit;
+
+  APath := ExtractFilePath(ShellList.SelectedFolder.PathName);
+  // Break-up Path in pieces, and find them in the treeview.
+  // Expand, if needed
+  // MakeVisible
+  ASubPath := '';
+  while (APath <> '') do
+  begin
+    ASub := NextField(APath, PathDelim);
+    ASubPath := ASubPath + ASub + PathDelim;
+    NewNode := ShellTree.NodeFromPath(result, ASubPath);
+    if (NewNode = nil) then
+      continue;
+
+    result := NewNode;
+    if (result <> nil) and
+       (result.Expanded = false) then
+      result.Expand(false);
+
+  end;
+
+  result.MakeVisible;
+end;
+
 procedure TFMain.ResetRootShowAll;
 begin
   ShellList.Enabled := false;
@@ -2781,6 +2821,8 @@ procedure TFMain.ShellListClick(Sender: TObject);
   SpeedBtnQuickSave.Enabled := false;
 
   EnableMenuItems;
+
+  SyncShellTree;
 end;
 
 procedure TFMain.ShellListColumnClick(Sender: TObject; Column: TListColumn);