mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 10:58:15 +02:00

replaced TListbox in TShowDeletingFilesDialog by TCheckListBox changed file delete algorithm so that only checked files are deleted, default all files are checked (previous behaviour) implemented TButtonPanel git-svn-id: trunk@17007 -
463 lines
12 KiB
Plaintext
463 lines
12 KiB
Plaintext
object CleanDirectoryDialog: TCleanDirectoryDialog
|
|
Left = 307
|
|
Height = 364
|
|
Top = 209
|
|
Width = 450
|
|
HelpContext = 0
|
|
ActiveControl = DirCombobox
|
|
Align = alNone
|
|
AllowDropFiles = False
|
|
AutoScroll = True
|
|
AutoSize = True
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSizeable
|
|
Caption = 'Clean Directory'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 364
|
|
ClientWidth = 450
|
|
DockSite = False
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
Font.Height = 0
|
|
Font.Style = []
|
|
FormStyle = fsNormal
|
|
OnCreate = CleanDirectoryDialogCreate
|
|
ParentBiDiMode = True
|
|
ParentFont = False
|
|
Position = poScreenCenter
|
|
ShowInTaskBar = stDefault
|
|
UseDockManager = False
|
|
LCLVersion = '0.9.27'
|
|
WindowState = wsNormal
|
|
object DirGroupbox: TGroupBox
|
|
Left = 6
|
|
Height = 88
|
|
Top = 6
|
|
Width = 438
|
|
HelpContext = 0
|
|
Align = alTop
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Directory'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 69
|
|
ClientWidth = 434
|
|
Ctl3D = False
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ParentColor = True
|
|
ParentCtl3D = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
Visible = True
|
|
object DirCombobox: TComboBox
|
|
AnchorSideRight.Control = DirBrowseButton
|
|
Left = 6
|
|
Height = 29
|
|
Top = 6
|
|
Width = 394
|
|
HelpContext = 0
|
|
TabStop = True
|
|
Align = alNone
|
|
Anchors = [akTop, akLeft, akRight]
|
|
ArrowKeysTraverseList = True
|
|
AutoComplete = False
|
|
AutoCompleteText = [cbactSearchAscending]
|
|
AutoDropDown = False
|
|
AutoSelect = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
CharCase = ecNormal
|
|
Ctl3D = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
DropDownCount = 8
|
|
Enabled = True
|
|
ItemHeight = 0
|
|
ItemIndex = -1
|
|
ItemWidth = 0
|
|
MaxLength = 0
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentCtl3D = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
Sorted = False
|
|
Style = csDropDown
|
|
TabOrder = 0
|
|
Text = 'DirCombobox'
|
|
Visible = True
|
|
end
|
|
object SubDirsCheckbox: TCheckBox
|
|
AnchorSideTop.Control = DirCombobox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 22
|
|
Top = 41
|
|
Width = 422
|
|
HelpContext = 0
|
|
Align = alBottom
|
|
AllowGrayed = False
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Clean sub directories'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 1
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object DirBrowseButton: TButton
|
|
AnchorSideLeft.Control = DirCombobox
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = DirCombobox
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = DirGroupbox
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 406
|
|
Height = 21
|
|
Top = 10
|
|
Width = 23
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 5
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = '...'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = DirBrowseButtonClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 2
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
end
|
|
object RemoveGroupbox: TGroupBox
|
|
Left = 6
|
|
Height = 88
|
|
Top = 100
|
|
Width = 438
|
|
HelpContext = 0
|
|
Align = alTop
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Remove files matching filter:'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 69
|
|
ClientWidth = 434
|
|
Ctl3D = False
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ParentColor = True
|
|
ParentCtl3D = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 1
|
|
TabStop = False
|
|
Visible = True
|
|
object RemoveCombobox: TComboBox
|
|
Left = 6
|
|
Height = 29
|
|
Top = 6
|
|
Width = 422
|
|
HelpContext = 0
|
|
TabStop = True
|
|
Align = alTop
|
|
ArrowKeysTraverseList = True
|
|
AutoComplete = False
|
|
AutoCompleteText = [cbactSearchAscending]
|
|
AutoDropDown = False
|
|
AutoSelect = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
CharCase = ecNormal
|
|
Ctl3D = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
DropDownCount = 8
|
|
Enabled = True
|
|
ItemHeight = 0
|
|
ItemIndex = -1
|
|
ItemWidth = 0
|
|
MaxLength = 0
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentCtl3D = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
Sorted = False
|
|
Style = csDropDown
|
|
TabOrder = 0
|
|
Text = 'RemoveCombobox'
|
|
Visible = True
|
|
end
|
|
object SimpleSyntaxRemoveCheckbox: TCheckBox
|
|
Left = 6
|
|
Height = 22
|
|
Top = 41
|
|
Width = 422
|
|
HelpContext = 0
|
|
Align = alTop
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Simple syntax (e.g. * instead of .*)'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 1
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
end
|
|
object KeepGroupbox: TGroupBox
|
|
Left = 6
|
|
Height = 116
|
|
Top = 194
|
|
Width = 438
|
|
HelpContext = 0
|
|
Align = alClient
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Keep files matching filter:'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 97
|
|
ClientWidth = 434
|
|
Ctl3D = False
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ParentColor = True
|
|
ParentCtl3D = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 2
|
|
TabStop = False
|
|
Visible = True
|
|
object KeepCombobox: TComboBox
|
|
Left = 6
|
|
Height = 29
|
|
Top = 6
|
|
Width = 422
|
|
HelpContext = 0
|
|
TabStop = True
|
|
Align = alTop
|
|
ArrowKeysTraverseList = True
|
|
AutoComplete = False
|
|
AutoCompleteText = [cbactSearchAscending]
|
|
AutoDropDown = False
|
|
AutoSelect = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
CharCase = ecNormal
|
|
Ctl3D = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
DropDownCount = 8
|
|
Enabled = True
|
|
ItemHeight = 0
|
|
ItemIndex = -1
|
|
ItemWidth = 0
|
|
MaxLength = 0
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentCtl3D = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
Sorted = False
|
|
Style = csDropDown
|
|
TabOrder = 0
|
|
Text = 'KeepCombobox'
|
|
Visible = True
|
|
end
|
|
object SimpleSyntaxKeepCheckbox: TCheckBox
|
|
Left = 6
|
|
Height = 22
|
|
Top = 41
|
|
Width = 422
|
|
HelpContext = 0
|
|
Align = alTop
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Simple syntax (e.g. * instead of .*)'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 1
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object KeepTextFilesCheckbox: TCheckBox
|
|
Left = 6
|
|
Height = 22
|
|
Top = 69
|
|
Width = 422
|
|
HelpContext = 0
|
|
Align = alTop
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Keep Text Files'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 2
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
end
|
|
object ButtonPanel: TButtonPanel
|
|
Left = 6
|
|
Height = 48
|
|
Top = 316
|
|
Width = 438
|
|
HelpContext = 0
|
|
Align = alBottom
|
|
AutoSize = True
|
|
ButtonOrder = boDefault
|
|
TabOrder = 3
|
|
DefaultButton = pbOK
|
|
ShowButtons = [pbOK, pbCancel, pbHelp]
|
|
ShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp]
|
|
Visible = True
|
|
end
|
|
end
|