ADD: cm_MarkCurrentNameExt, cm_UnmarkCurrentNameExt commands

src/fileviews/ufileview.pas

@@ -458,6 +458,7 @@ type
     procedure LoadSelectionFromClipboard;
     procedure LoadSelectionFromFile(const AFileName: String);
     procedure MarkCurrentName(bSelect: Boolean);
+    procedure MarkCurrentNameExt(bSelect: Boolean);
     procedure MarkCurrentExtension(bSelect: Boolean);
     procedure MarkCurrentPath(bSelect: Boolean);
     procedure MarkFile(AFile: TDisplayFile; bSelect: Boolean; bNotify: Boolean = True);
@@ -2623,6 +2624,20 @@ begin
   end;
 end;
 
+procedure TFileView.MarkCurrentNameExt(bSelect: Boolean);
+var
+  sGroup: String;
+  bCaseSensitive: boolean = False;
+  bIgnoreAccents: boolean = False;
+  bWindowsInterpretation: boolean = False;
+begin
+  if IsActiveItemValid then
+  begin
+    sGroup := GetActiveDisplayFile.FSFile.Name;
+    MarkGroup(sGroup, bSelect, @bCaseSensitive, @bIgnoreAccents, @bWindowsInterpretation);
+  end;
+end;
+
 procedure TFileView.SaveConfiguration(AConfig: TXmlConfig; ANode: TXmlNode; ASaveHistory:boolean);
 var
   HistoryNode, EntryNode, FSNode, PathsNode, PathNode: TXmlNode;

src/fmain.lfm

@@ -2592,6 +2592,18 @@ object frmMain: TfrmMain
       Caption = 'Unselect all files with same name'
       OnExecute = actExecute
     end
+    object actMarkCurrentNameExt: TAction
+      Tag = 10
+      Category = 'Mark'
+      Caption = 'Select all files with same name and extension'
+      OnExecute = actExecute
+    end
+    object actUnmarkCurrentNameExt: TAction
+      Tag = 10
+      Category = 'Mark'
+      Caption = 'Unselect all files with same name and extension'
+      OnExecute = actExecute
+    end
   end
   object pmHotList: TPopupMenu
     Images = imgLstDirectoryHotlist

src/fmain.lrt

@@ -249,6 +249,8 @@ TFRMMAIN.ACTMARKCURRENTPATH.CAPTION=Select all in same path
 TFRMMAIN.ACTUNMARKCURRENTPATH.CAPTION=Unselect all in same path
 TFRMMAIN.ACTMARKCURRENTNAME.CAPTION=Select all files with same name
 TFRMMAIN.ACTUNMARKCURRENTNAME.CAPTION=Unselect all files with same name
+TFRMMAIN.ACTMARKCURRENTNAMEEXT.CAPTION=Select all files with same name and extension
+TFRMMAIN.ACTUNMARKCURRENTNAMEEXT.CAPTION=Unselect all files with same name and extension
 TFRMMAIN.TBEDIT.CAPTION=Edit
 TFRMMAIN.TBDELETE.CAPTION=Delete
 TFRMMAIN.TBCHANGEDIR.CAPTION=CD

src/fmain.pas

@@ -102,6 +102,8 @@ type
     actConfigTreeViewMenus: TAction;
     actConfigTreeViewMenusColors: TAction;
     actConfigSaveSettings: TAction;
+    actUnmarkCurrentNameExt: TAction;
+    actMarkCurrentNameExt: TAction;
     actUnmarkCurrentName: TAction;
     actMarkCurrentName: TAction;
     actUnmarkCurrentPath: TAction;

src/umaincommands.pas

@@ -255,6 +255,8 @@ type
    procedure cm_MarkMinus(const Params: array of string);
    procedure cm_MarkCurrentName(const Params: array of string);
    procedure cm_UnmarkCurrentName(const Params: array of string);
+   procedure cm_MarkCurrentNameExt(const Params: array of string);
+   procedure cm_UnmarkCurrentNameExt(const Params: array of string);
    procedure cm_MarkCurrentExtension(const Params: array of string);
    procedure cm_UnmarkCurrentExtension(const Params: array of string);
    procedure cm_MarkCurrentPath(const Params: array of string);
@@ -2877,6 +2879,16 @@ begin
   frmMain.ActiveFrame.MarkCurrentName(False);
 end;
 
+procedure TMainCommands.cm_MarkCurrentNameExt(const Params: array of string);
+begin
+  frmMain.ActiveFrame.MarkCurrentNameExt(True);
+end;
+
+procedure TMainCommands.cm_UnmarkCurrentNameExt(const Params: array of string);
+begin
+  frmMain.ActiveFrame.MarkCurrentNameExt(False);
+end;
+
 procedure TMainCommands.cm_MarkCurrentExtension(const Params: array of string);
 begin
   frmMain.ActiveFrame.MarkCurrentExtension(True);