You've already forked lazarus-ccr
111 lines
2.8 KiB
Plaintext
111 lines
2.8 KiB
Plaintext
![]() |
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
|