mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
11bda74439
FIX: After closing preset sort window, have the focus still in the MultiRename window so we're ready to continue without having to click on window. FIX: One element was not autosized in select text range in MultiRename. FIX: Fix typo in "OK" button in sort dialog for the MultiRename preset. RMV: In the MultiRename dialog, since there is no 'Clear mask' added dynamically, remove the associated things that were forgotten to remove in code and language files. ADD: In MultiRename dialog window, the three buttons with no caption now have tooltip to indicate their function. ADD: Edit file list for MultiRename based on current displayed new name instead of taken always the original name like it was. Not only it allows to have placeholders to do their job and have the editor to do the finition for few exceptions left, but it also makes the function compatible with another known orthodox file manager. We kept the other "Edit Names" that was present simply for legacy users used to it, even if with the new, simply having a [N]/[E] placeholders and launch "Edit Current New Names" would do the same job.
180 lines
5.2 KiB
Text
180 lines
5.2 KiB
Text
object frmSelectPathRange: TfrmSelectPathRange
|
|
Left = 696
|
|
Height = 307
|
|
Top = 219
|
|
Width = 362
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.HorizontalSpacing = 3
|
|
ChildSizing.VerticalSpacing = 3
|
|
ClientHeight = 307
|
|
ClientWidth = 362
|
|
OnCreate = FormCreate
|
|
Position = poOwnerFormCenter
|
|
SessionProperties = 'Left;Top;Width;rbFirstFromEnd.Checked;rbFirstFromStart.Checked'
|
|
LCLVersion = '2.0.6.0'
|
|
object lblSelectDirectories: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 15
|
|
Top = 6
|
|
Width = 326
|
|
Caption = '&Select the directories to insert (you may select more than one)'
|
|
FocusControl = lbDirectories
|
|
ParentColor = False
|
|
end
|
|
object ButtonPanel: TButtonPanel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 6
|
|
Height = 26
|
|
Top = 275
|
|
Width = 350
|
|
Align = alNone
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
OKButton.Name = 'OKButton'
|
|
OKButton.Caption = '&OK'
|
|
OKButton.DefaultCaption = False
|
|
HelpButton.Name = 'HelpButton'
|
|
HelpButton.DefaultCaption = True
|
|
CloseButton.Name = 'CloseButton'
|
|
CloseButton.DefaultCaption = True
|
|
CancelButton.Name = 'CancelButton'
|
|
CancelButton.Caption = '&Cancel'
|
|
CancelButton.DefaultCaption = False
|
|
TabOrder = 2
|
|
ShowButtons = [pbOK, pbCancel]
|
|
ShowBevel = False
|
|
end
|
|
object lblResult: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = lbDirectories
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonPanel
|
|
Left = 6
|
|
Height = 15
|
|
Top = 254
|
|
Width = 35
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Result:'
|
|
ParentColor = False
|
|
end
|
|
object lblValueToReturn: TLabel
|
|
AnchorSideLeft.Control = lblResult
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonPanel
|
|
Left = 44
|
|
Height = 15
|
|
Top = 254
|
|
Width = 312
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
ParentColor = False
|
|
end
|
|
object lbDirectories: TListBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = lblSelectDirectories
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = pnlChoices
|
|
AnchorSideBottom.Control = lblResult
|
|
Left = 6
|
|
Height = 227
|
|
Top = 24
|
|
Width = 247
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
ItemHeight = 0
|
|
MultiSelect = True
|
|
OnSelectionChange = lbDirectoriesSelectionChange
|
|
TabOrder = 0
|
|
end
|
|
object pnlChoices: TPanel
|
|
AnchorSideTop.Control = lblSelectDirectories
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = lblResult
|
|
Left = 256
|
|
Height = 227
|
|
Top = 24
|
|
Width = 100
|
|
Anchors = [akTop, akRight, akBottom]
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ChildSizing.VerticalSpacing = 2
|
|
ClientHeight = 227
|
|
ClientWidth = 100
|
|
TabOrder = 1
|
|
object gbCountFrom: TGroupBox
|
|
AnchorSideLeft.Control = pnlChoices
|
|
AnchorSideTop.Control = pnlChoices
|
|
AnchorSideRight.Control = pnlChoices
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 0
|
|
Height = 64
|
|
Top = 0
|
|
Width = 100
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = True
|
|
Caption = 'Count from'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.HorizontalSpacing = 3
|
|
ChildSizing.VerticalSpacing = 3
|
|
ClientHeight = 44
|
|
ClientWidth = 96
|
|
TabOrder = 0
|
|
object rbFirstFromStart: TRadioButton
|
|
AnchorSideLeft.Control = gbCountFrom
|
|
AnchorSideTop.Control = gbCountFrom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 0
|
|
Width = 65
|
|
Caption = 'The sta&rt'
|
|
Checked = True
|
|
OnChange = SomethingChange
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object rbFirstFromEnd: TRadioButton
|
|
AnchorSideLeft.Control = gbCountFrom
|
|
AnchorSideTop.Control = rbFirstFromStart
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 19
|
|
Top = 22
|
|
Width = 62
|
|
BorderSpacing.Bottom = 3
|
|
Caption = 'The en&d'
|
|
OnChange = SomethingChange
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object edSeparator: TLabeledEdit
|
|
AnchorSideLeft.Control = pnlChoices
|
|
AnchorSideRight.Control = pnlChoices
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pnlChoices
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 23
|
|
Top = 204
|
|
Width = 100
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Constraints.MinWidth = 100
|
|
EditLabel.Height = 15
|
|
EditLabel.Width = 100
|
|
EditLabel.Caption = 'Sep&arator'
|
|
EditLabel.ParentColor = False
|
|
TabOrder = 1
|
|
OnChange = SomethingChange
|
|
end
|
|
end
|
|
end
|