mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: 'extension' param for cm_RenameOnly #2597

Browse source
This commit is contained in:
rich2014 2026-05-01 16:26:59 +08:00
commit c202082fa9
1 changed files with 24 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

38
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -1541,21 +1541,31 @@ end;
procedure TFileViewWithMainCtrl.cm_RenameOnly(const Params: array of string);
var
aFile: TFile;
withExt: Boolean;
extensionParam: String;
begin
if not IsLoadingFileList and
(fsoSetFileProperty in FileSource.GetOperationsTypes) then
begin
aFile:= CloneActiveFile;
if Assigned(aFile) then
try
if aFile.IsNameValid then
ShowRenameFileEdit(aFile, True)
else if gCurDir then
ShowPathEdit;
finally
FreeAndNil(aFile);
end;
end;
if IsLoadingFileList then
Exit;
if NOT (fsoSetFileProperty in FileSource.GetOperationsTypes) then
Exit;
aFile:= CloneActiveFile;
if NOT Assigned(aFile) then
Exit;
withExt:= True;
if GetParamValue( Params, 'extension', extensionParam ) then
GetBoolValue( extensionParam, withExt );
try
if aFile.IsNameValid then
ShowRenameFileEdit(aFile, withExt)
else if gCurDir then
ShowPathEdit;
finally
FreeAndNil(aFile);
end;
end;
procedure TFileViewWithMainCtrl.SetMainControl(AValue: TWinControl);