Files
lazarus-ccr/components/jvcllaz/examples/JvDBTreeView/recordeditorfrm.lfm

111 lines
2.8 KiB
Plaintext
Raw Permalink Normal View History

object RecordEditor: TRecordEditor
Left = 723
Height = 223
Top = 309
Width = 269
ClientHeight = 223
ClientWidth = 269
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object edName: TEdit
AnchorSideLeft.Control = cmbImageIndex
AnchorSideTop.Control = Owner
AnchorSideRight.Control = cmbImageIndex
AnchorSideRight.Side = asrBottom
Left = 105
Height = 23
Top = 12
Width = 140
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
TabOrder = 0
end
object Label1: TLabel
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = edName
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 16
Width = 35
Caption = 'Name:'
ParentColor = False
end
object cmbImageIndex: TComboBoxEx
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edName
AnchorSideTop.Side = asrBottom
Left = 105
Height = 24
Top = 43
Width = 140
BorderSpacing.Left = 24
BorderSpacing.Top = 8
BorderSpacing.Right = 16
Images = Form1.ImageList1
ItemHeight = 16
ItemsEx = <>
TabOrder = 1
end
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbImageIndex
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 48
Width = 65
BorderSpacing.Left = 16
Caption = 'Image index'
ParentColor = False
end
object rgParent: TRadioGroup
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = cmbImageIndex
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cmbImageIndex
AnchorSideRight.Side = asrBottom
Left = 16
Height = 74
Top = 83
Width = 229
Anchors = [akTop, akLeft, akRight]
AutoFill = True
BorderSpacing.Top = 16
BorderSpacing.Bottom = 12
Caption = 'The new node will be ...'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 54
ClientWidth = 225
Items.Strings = (
'a child of the current node'
'a sibling of the current node'
)
TabOrder = 2
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 183
Width = 257
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 3
ShowButtons = [pbOK, pbCancel]
end
end