jvcllaz: Extend JvDBTreeViewDemo to show adding, editing and deleting of records

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8005 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/examples/JvDBTreeView/recordeditorfrm.lfm

@@ -0,0 +1,110 @@
+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