doublecmd/src/fselectduplicates.lfm
Alexander Koblov 5742918e6b UPD: Use icons from image list
(cherry picked from commit b95e3a0aa4)
2026-05-08 20:00:35 +03:00

264 lines
No EOL
6.5 KiB
Text

object frmSelectDuplicates: TfrmSelectDuplicates
Left = 509
Height = 252
Top = 205
Width = 526
AutoSize = True
BorderStyle = bsDialog
Caption = 'Select duplicate files'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 4
ClientHeight = 252
ClientWidth = 526
Constraints.MinWidth = 480
DesignTimePPI = 120
Position = poOwnerFormCenter
LCLVersion = '2.0.10.0'
object btnIncludeMask: TSpeedButton
AnchorSideLeft.Control = cmbIncludeMask
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbIncludeMask
AnchorSideBottom.Control = cmbIncludeMask
AnchorSideBottom.Side = asrBottom
Left = 490
Height = 28
Hint = 'Template...'
Top = 24
Width = 29
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 4
Images = dmComData.ilButtons
ImageIndex = 3
OnClick = btnIncludeMaskClick
end
object cmbIncludeMask: TComboBox
AnchorSideLeft.Control = lblIncludeMask
AnchorSideTop.Control = lblIncludeMask
AnchorSideTop.Side = asrBottom
Left = 8
Height = 28
Top = 24
Width = 478
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 20
ItemIndex = 0
Items.Strings = (
'*'
)
ParentFont = False
TabOrder = 0
Text = '*'
end
object lblIncludeMask: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 20
Top = 0
Width = 173
Caption = 'Select by &name/extension:'
ParentColor = False
end
object lblExcludeMask: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbIncludeMask
AnchorSideTop.Side = asrBottom
Left = 8
Height = 20
Top = 52
Width = 250
Caption = '&Remove selection by name/extension:'
ParentColor = False
end
object cmbExcludeMask: TComboBox
AnchorSideLeft.Control = lblExcludeMask
AnchorSideTop.Control = lblExcludeMask
AnchorSideTop.Side = asrBottom
Left = 8
Height = 28
Top = 76
Width = 478
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 20
Items.Strings = (
'*'
)
ParentFont = False
TabOrder = 1
end
object btnExcludeMask: TSpeedButton
AnchorSideLeft.Control = cmbExcludeMask
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbExcludeMask
AnchorSideBottom.Control = cmbExcludeMask
AnchorSideBottom.Side = asrBottom
Left = 490
Height = 28
Hint = 'Template...'
Top = 76
Width = 29
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 4
Images = dmComData.ilButtons
ImageIndex = 3
OnClick = btnIncludeMaskClick
end
object chkLeaveUnselected: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbExcludeMask
AnchorSideTop.Side = asrBottom
Left = 8
Height = 24
Top = 116
Width = 341
BorderSpacing.Top = 12
Caption = '&Leave at least one file in each group unselected:'
Checked = True
State = cbChecked
TabOrder = 2
OnChange = chkLeaveUnselectedChange
end
object pnlMethods: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkLeaveUnselected
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 63
Top = 146
Width = 510
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 63
ClientWidth = 510
TabOrder = 3
object lblFirstMethod: TLabel
Left = 48
Height = 28
Top = 0
Width = 11
Caption = '&1.'
FocusControl = cmbFirstMethod
Layout = tlCenter
ParentColor = False
end
object cmbFirstMethod: TComboBoxAutoWidth
Left = 107
Height = 28
Top = 0
Width = 125
ItemHeight = 20
Items.Strings = (
'Newest'
'Oldest'
'Largest'
'Smallest'
'First in group'
'Last in group'
)
OnChange = cmbFirstMethodChange
Style = csDropDownList
TabOrder = 0
end
object lblSecondMethod: TLabel
Left = 280
Height = 28
Top = 0
Width = 11
Caption = '&2.'
FocusControl = cmbSecondMethod
Layout = tlCenter
ParentColor = False
end
object cmbSecondMethod: TComboBoxAutoWidth
Left = 339
Height = 28
Top = 0
Width = 125
ItemHeight = 20
Items.Strings = (
'Newest'
'Oldest'
'Largest'
'Smallest'
)
Style = csDropDownList
TabOrder = 1
end
end
object pnlButtons: TKASButtonPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = pnlMethods
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 34
Top = 209
Width = 510
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 34
ClientWidth = 510
FullRepaint = False
ParentFont = False
TabOrder = 4
object btnOK: TBitBtn
AnchorSideRight.Control = btnCancel
Left = 257
Height = 34
Top = 0
Width = 70
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 10
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
ParentFont = False
TabOrder = 0
end
object btnCancel: TBitBtn
AnchorSideRight.Control = btnApply
Left = 337
Height = 34
Top = 0
Width = 94
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 10
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
ParentFont = False
TabOrder = 1
end
object btnApply: TBitBtn
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
Left = 441
Height = 34
Top = 0
Width = 69
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.InnerBorder = 2
Caption = '&Apply'
OnClick = btnApplyClick
ParentFont = False
TabOrder = 2
end
end
end