You've already forked lazarus-ccr
ebe671bdf4
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8005 8e941d3f-bd1b-0410-a28a-d453659cc2b4
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
|