Преглед на файлове

FIX: Restore focus when open virtual file system list

Alexander Koblov преди 2 години
родител
ревизия
624872ea0d
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      src/umaincommands.pas

+ 3 - 0
src/umaincommands.pas

@@ -704,7 +704,10 @@ var
 begin
   FileSource:= TVfsFileSource.Create(gWFXPlugins);
   if Assigned(FileSource) then
+  begin
     Panel.AddFileSource(FileSource, FileSource.GetRootDir);
+    frmMain.ActiveFrame.SetFocus;
+  end;
 end;
 
 procedure TMainCommands.DoPanelsSplitterPerPos(SplitPos: Integer);