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 presets button width

Browse source 
(cherry picked from commit 94b7e95ac0)
This commit is contained in:
Alexander Koblov 2021-11-05 14:22:01 +03:00
commit a0fd299da8
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fmultirename.lfm
View file

@ -274,7 +274,7 @@ object frmMultiRename: TfrmMultiRename
Style = csDropDownList
TabOrder = 1
end
object btnPresets: TBitBtn
object btnPresets: TKASButton
AnchorSideTop.Control = cbPresets
AnchorSideRight.Control = gbPresets
AnchorSideRight.Side = asrBottom
@ -286,11 +286,12 @@ object frmMultiRename: TfrmMultiRename
Width = 16
Anchors = [akTop, akRight, akBottom]
AutoSize = True
OnClick = actExecute
Constraints.MinWidth = 16
ParentBidiMode = False
ParentFont = False
Spacing = 0
TabOrder = 0
TabStop = True
ShowCaption = False
end
end
end
@ -1034,4 +1035,4 @@ object frmMultiRename: TfrmMultiRename
Left = 648
Top = 160
end
end
end

8
src/fmultirename.pas
View file

@ -134,7 +134,7 @@ type
cmbExtensionStyle: TComboBox;
gbPresets: TGroupBox;
cbPresets: TComboBox;
btnPresets: TBitBtn;
btnPresets: TKASButton;
spltMainSplitter: TSplitter;
pnlOptionsRight: TKASToolPanel;
gbFindReplace: TGroupBox;
@ -1270,10 +1270,10 @@ var
begin
btnAnyNameMask.Action := actAnyNameMask;
btnAnyNameMask.Caption := '...';
btnAnyNameMask.Width := fneRenameLogFileFilename.ButtonWidth;;
btnAnyNameMask.Width := fneRenameLogFileFilename.ButtonWidth;
btnAnyExtMask.Action := actAnyExtMask;
btnAnyExtMask.Caption := '...';
btnAnyExtMask.Width := fneRenameLogFileFilename.ButtonWidth;;;
btnAnyExtMask.Width := fneRenameLogFileFilename.ButtonWidth;
btnRelativeRenameLogFile.Action := actInvokeRelativePath;
btnRelativeRenameLogFile.Caption := '';
btnRelativeRenameLogFile.Width := fneRenameLogFileFilename.ButtonWidth;
@ -1285,7 +1285,7 @@ begin
btnPresets.Action := actShowPresetsMenu;
btnPresets.Caption := '';
btnPresets.Hint := actShowPresetsMenu.Caption;
btnPresets.Width := fneRenameLogFileFilename.ButtonWidth;;;
btnPresets.Constraints.MinWidth := fneRenameLogFileFilename.ButtonWidth;
miPresets := TMenuItem.Create(mmMainMenu);
miPresets.Caption := gbPresets.Caption;