doublecmd/src/fmkdir.lfm
2011-07-15 14:38:08 +00:00

94 lines
2.3 KiB
Text

object frmMkDir: TfrmMkDir
Left = 366
Height = 120
Top = 429
Width = 509
ActiveControl = cbMkDir
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Create new directory'
ClientHeight = 120
ClientWidth = 509
KeyPreview = True
OnKeyPress = FormKeyPress
Position = poScreenCenter
LCLVersion = '0.9.30.1'
object lblMakeDir: TLabel
AnchorSideLeft.Control = cbMkDir
AnchorSideTop.Control = Owner
Left = 6
Height = 16
Top = 6
Width = 164
BorderSpacing.Top = 6
Caption = 'Input new directory name:'
ParentColor = False
end
object cbMkDir: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMakeDir
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 27
Top = 22
Width = 497
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Constraints.MinWidth = 400
DropDownCount = 5
ItemHeight = 0
TabOrder = 0
end
object btnOK: TBitBtn
AnchorSideTop.Control = btnCancel
AnchorSideRight.Control = btnCancel
AnchorSideBottom.Control = btnCancel
AnchorSideBottom.Side = asrBottom
Left = 297
Height = 36
Top = 55
Width = 100
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Constraints.MinWidth = 100
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = ButtonsClick
TabOrder = 1
end
object btnCancel: TBitBtn
AnchorSideTop.Control = cbMkDir
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 403
Height = 36
Top = 55
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 2
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
OnClick = ButtonsClick
TabOrder = 2
end
end