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