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

FIX: Multi-rename - preset with leading space dropping the space (fixes #1734)

Browse source
This commit is contained in:
Alexander Koblov 2026-04-20 17:49:44 +03:00
commit 028529f5d4
1 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/fmultirename.pas
View file

@ -1003,8 +1003,18 @@ begin
AMultiRenamePreset.Extension := AConfig.GetValue(ANode, 'Extension', '[E]');
AMultiRenamePreset.FileNameStyle := AConfig.GetValue(ANode, 'FilenameStyle', 0);
AMultiRenamePreset.ExtensionStyle := AConfig.GetValue(ANode, 'ExtensionStyle', 0);
AMultiRenamePreset.Find := AConfig.GetValue(ANode, 'Find', '');
AMultiRenamePreset.Replace := AConfig.GetValue(ANode, 'Replace', '');
if AConfig.TryGetAttr(ANode, 'Find/Value', PresetName) then
AMultiRenamePreset.Find := PresetName
else begin
AMultiRenamePreset.Find := AConfig.GetValue(ANode, 'Find', '');
end;
if AConfig.TryGetAttr(ANode, 'Replace/Value', PresetName) then
AMultiRenamePreset.Replace := PresetName
else begin
AMultiRenamePreset.Replace := AConfig.GetValue(ANode, 'Replace', '');
end;
AMultiRenamePreset.RepExt := AConfig.GetValue(ANode, 'RepExt', True);
AMultiRenamePreset.RegExp := AConfig.GetValue(ANode, 'RegExp', False);
AMultiRenamePreset.UseSubs := AConfig.GetValue(ANode, 'UseSubs', False);
@ -1159,8 +1169,8 @@ begin
AConfig.AddValue(SubNode, 'Extension', FMultiRenamePresetList.MultiRenamePreset[i].Extension);
AConfig.AddValue(SubNode, 'FilenameStyle', FMultiRenamePresetList.MultiRenamePreset[i].FileNameStyle);
AConfig.AddValue(SubNode, 'ExtensionStyle', FMultiRenamePresetList.MultiRenamePreset[i].ExtensionStyle);
AConfig.AddValue(SubNode, 'Find', FMultiRenamePresetList.MultiRenamePreset[i].Find);
AConfig.AddValue(SubNode, 'Replace', FMultiRenamePresetList.MultiRenamePreset[i].Replace);
AConfig.SetAttr(SubNode, 'Find/Value', FMultiRenamePresetList.MultiRenamePreset[i].Find);
AConfig.SetAttr(SubNode, 'Replace/Value', FMultiRenamePresetList.MultiRenamePreset[i].Replace);
AConfig.AddValue(SubNode, 'RepExt', FMultiRenamePresetList.MultiRenamePreset[i].RepExt);
AConfig.AddValue(SubNode, 'RegExp', FMultiRenamePresetList.MultiRenamePreset[i].RegExp);
AConfig.AddValue(SubNode, 'UseSubs', FMultiRenamePresetList.MultiRenamePreset[i].UseSubs);