ADD: Feature Request [2994625] "Possibility to rename tabs (very useful with locked tabs)"

src/fmain.lfm

@@ -2250,6 +2250,11 @@ object frmMain: TfrmMain
       Caption = 'Operations &Viewer'
       OnExecute = actExecute
     end
+    object actRenameTab: TAction
+      Category = 'Tabs'
+      Caption = 'Re&name Tab'
+      OnExecute = actExecute
+    end
   end
   object pmHotList: TPopupMenu
     left = 120
@@ -3399,6 +3404,9 @@ object frmMain: TfrmMain
       Action = actNewTab
       OnClick = mnuTabMenuClick
     end
+    object miRenameTab: TMenuItem
+      Action = actRenameTab
+    end
     object miLine14: TMenuItem
       Caption = '-'
     end

src/fmain.lrt

@@ -1,4 +1,4 @@
-TFRMMAIN.CAPTION=Double Commander
+TFRMMAIN.FRMMAIN.CAPTION=Double Commander
 TFRMMAIN.BTNLEFTHOME.HINT=Go to home directory
 TFRMMAIN.BTNLEFTHOME.CAPTION=~
 TFRMMAIN.BTNLEFTUP.HINT=Go to parent directory
@@ -165,6 +165,7 @@ TFRMMAIN.ACTHORIZONTALFILEPANELS.CAPTION=&Horizontal Panels Mode
 TFRMMAIN.ACTGOTOFIRSTFILE.CAPTION=Place cursor on first file in list
 TFRMMAIN.ACTGOTOLASTFILE.CAPTION=Place cursor on last file in list
 TFRMMAIN.ACTOPERATIONSVIEWER.CAPTION=Operations &Viewer
+TFRMMAIN.ACTRENAMETAB.CAPTION=Re&name Tab
 TFRMMAIN.TBEDIT.CAPTION=Edit
 TFRMMAIN.TBDELETE.CAPTION=Delete
 TFRMMAIN.TBCHANGEDIR.CAPTION=CD

src/fmain.pas

@@ -80,6 +80,7 @@ type
     actHorizontalFilePanels: TAction;
     actGoToFirstFile: TAction;
     actGoToLastFile: TAction;
+    actRenameTab: TAction;
     actOperationsViewer: TAction;
     actNetworkDisconnect: TAction;
     actNetworkQuickConnect: TAction;
@@ -154,6 +155,7 @@ type
     AllOpCancel: TMenuItem;
     AllOpStart: TMenuItem;
     AllOpPct: TMenuItem;
+    miRenameTab: TMenuItem;
     tbChangeDir: TMenuItem;
     mnuShowHorizontalFilePanels: TMenuItem;
     miLine20: TMenuItem;
@@ -3601,10 +3603,12 @@ procedure TfrmMain.UpdateWindowView;
 
     for I := 0 to NoteBook.PageCount - 1 do  //  change on all tabs
     begin
-      if NoteBook.Page[I].LockState <> tlsPathResets then
-        NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.View[I].CurrentPath))
+      if NoteBook.Page[I].LockState = tlsNormal then
+        NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.View[I].CurrentPath));
+      {
       else
         NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.Page[I].LockPath));
+      }
       NoteBook.View[I].UpdateView;
     end;
   end;

src/uacts.pas

@@ -173,6 +173,7 @@ const cf_Null=0;
    procedure cm_Wipe(param: string='');
    procedure cm_Exit(param: string='');
    procedure cm_NewTab(param: string='');
+   procedure cm_RenameTab(param: string='');
    procedure cm_RemoveTab(param: string='');
    procedure cm_RemoveAllTabs(param: string='');
    procedure cm_NextTab(param: string='');
@@ -1219,6 +1220,15 @@ begin
   DoNewTab(frmMain.ActiveNotebook);
 end;
 
+procedure TActs.cm_RenameTab(param: string);
+var
+  sCaption: UTF8String;
+begin
+  with frmMain do
+    if InputQuery(rsMsgTabRenameCaption, rsMsgTabRenamePrompt, sCaption) then
+      ActiveNotebook.Page[ActiveNotebook.PageIndex].UpdateCaption(sCaption);
+end;
+
 procedure TActs.cm_RemoveTab(param:string);
 begin
   with frmMain do

src/ulng.pas

@@ -109,6 +109,8 @@ resourcestring
   rsMsgFileOperationsActiveLong = 'Some file operations have not yet finished. Closing Double Commander may result in data loss.';
   rsMsgConfirmQuit = 'Are you sure you want to quit?';
   rsMsgCanNotCopyMoveItSelf = 'You can not copy/move a file "%s" to itself!';
+  rsMsgTabRenameCaption = 'Rename tab';
+  rsMsgTabRenamePrompt = 'New tab name:';
   // for context menu
   rsMnuActions = 'Actions';
   rsMnuView = 'View';