ADD: Command actTargetEqualSource

fmain.lfm

@@ -409,6 +409,8 @@ object frmMain: TfrmMain
     Font.Name = 'courier'
     ParentColor = False
     TabOrder = 4
+    BookMarkOptions.OnChange = nil
+    Gutter.OnChange = nil
     Gutter.CodeFoldingWidth = 14
     Keystrokes = <    
       item
@@ -734,6 +736,7 @@ object frmMain: TfrmMain
     ReadOnly = True
     RightEdge = 0
     ScrollBars = ssVertical
+    SelectedColor.OnChange = nil
     OnSpecialLineColors = seLogWindowSpecialLineColors
   end
   object LogSplitter: TSplitter
@@ -884,8 +887,8 @@ object frmMain: TfrmMain
         ShortCut = 16469
       end
       object mnuCmdTargetIsSource: TMenuItem
-        Caption = 'Target &= Source'
-        Enabled = False
+        Action = actTargetEqualSource
+        OnClick = actTargetEqualSourceExecute
       end
     end
     object mnuShow: TMenuItem
@@ -1373,6 +1376,13 @@ object frmMain: TfrmMain
       OnExecute = actCopyFullNamesToClipExecute
       ShortCut = 49219
     end
+    object actTargetEqualSource: TAction
+      Category = 'Commands'
+      Caption = 'Target &= Source'
+      DisableIfNoHandler = True
+      OnExecute = actTargetEqualSourceExecute
+      ShortCut = 32858
+    end
   end
   object pmHotList: TPopupMenu
     left = 152

fmain.lrt

@@ -20,7 +20,6 @@ TFRMMAIN.MNUCMD.CAPTION=&Commands
 TFRMMAIN.MILINE6.CAPTION=-
 TFRMMAIN.MILINE9.CAPTION=-
 TFRMMAIN.MNUCMDSWAPSOURCETARGET.CAPTION=Source &<-> Target
-TFRMMAIN.MNUCMDTARGETISSOURCE.CAPTION=Target &= Source
 TFRMMAIN.MNUSHOW.CAPTION=&Show
 TFRMMAIN.MILINE7.CAPTION=-
 TFRMMAIN.MNUCONFIG.CAPTION=C&onfiguration
@@ -83,6 +82,7 @@ TFRMMAIN.ACTFILEASSOC.CAPTION=File associations...
 TFRMMAIN.ACTOPEN.CAPTION=Open
 TFRMMAIN.ACTCOPYNAMESTOCLIP.CAPTION=Copy &Filename(s) to Clipboard
 TFRMMAIN.ACTCOPYFULLNAMESTOCLIP.CAPTION=Copy Filename(s) with Full &Path
+TFRMMAIN.ACTTARGETEQUALSOURCE.CAPTION=Target &= Source
 TFRMMAIN.TBEDIT.CAPTION=Edit
 TFRMMAIN.TBDELETE.CAPTION=Delete
 TFRMMAIN.MENUITEM2.CAPTION=-

fmain.pas

@@ -61,6 +61,7 @@ type
     actContextMenu: TAction;
     actCopyNamesToClip: TAction;
     actCopyFullNamesToClip: TAction;
+    actTargetEqualSource: TAction;
     actOpen: TAction;
     actQuickSearch: TAction;
     actShowButtonMenu: TAction;
@@ -221,6 +222,7 @@ type
     procedure actFileAssocExecute(Sender: TObject);
     procedure actFocusCmdLineExecute(Sender: TObject);
     procedure actLeftOpenDrivesExecute(Sender: TObject);
+    procedure actTargetEqualSourceExecute(Sender: TObject);
     procedure actOpenArchiveExecute(Sender: TObject);
     procedure actOpenExecute(Sender: TObject);
     procedure actOpenVFSListExecute(Sender: TObject);
@@ -720,6 +722,12 @@ begin
   pmDrivesMenu.PopUp(p.x, p.y);
 end;
 
+procedure TfrmMain.actTargetEqualSourceExecute(Sender: TObject);
+begin
+  NotActiveFrame.pnlFile.ActiveDir:= ActiveFrame.pnlFile.ActiveDir;
+  NotActiveFrame.RefreshPanel;
+end;
+
 procedure TfrmMain.actOpenArchiveExecute(Sender: TObject);
 begin
   ActiveFrame.pnlFile.TryOpenArchive(ActiveFrame.GetActiveItem);