object Form1: TForm1 Left = 220 Top = 189 Width = 610 Height = 382 Caption = 'Example of using DBTreeView' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = { 0000010001001010100000000000280100001600000028000000100000002000 00000100040000000000C0000000000000000000000000000000000000000000 000000008000008000000080800080000000800080008080000080808000C0C0 C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000003 333300000000033B3BBB3300000003B3BBB77777777703333337FFFFFFF7033B 3BB7F889FFF703B3BBB7F8FFFFF703333337F88CFFF7033B3BB7F8FFFFF703B3 BBB7F8F889F703333337F8F8FFF7033BBBB7F882FFF700033337F8FFFFF70000 0007F8FFFFF700000007FFFFFFF700000007777777F70000000000000000E0FF 0000803F00008000000080000000800000008000000080000000800000008000 00008000000080000000E0000000FE000000FE000000FE000000FFFF0000} OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 296 Top = 0 Width = 306 Height = 282 Align = alRight BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 9 Top = 68 Width = 18 Height = 13 Caption = 'Info' end object Label2: TLabel Left = 8 Top = 46 Width = 31 Height = 13 Caption = 'Parent' end object Label3: TLabel Left = 6 Top = 13 Width = 28 Height = 13 Caption = 'Name' end object DBMemo1: TDBMemo Left = 45 Top = 66 Width = 258 Height = 215 DataField = 'Pr_info' DataSource = DS1 TabOrder = 2 end object DBLookUpTreeView1: TdxDBLookupTreeView Left = 45 Top = 39 Width = 260 Height = 21 CanSelectParents = True DropDownRows = 15 ParentColor = False TabOrder = 1 TabStop = True Text = 'DBLookUpTreeView1' TreeViewColor = clWindow TreeViewCursor = crDefault TreeViewFont.Charset = DEFAULT_CHARSET TreeViewFont.Color = clWindowText TreeViewFont.Height = -11 TreeViewFont.Name = 'MS Sans Serif' TreeViewFont.Style = [] TreeViewImages = ImageList1 TreeViewIndent = 19 TreeViewReadOnly = False TreeViewShowButtons = True TreeViewShowHint = False TreeViewShowLines = True TreeViewShowRoot = True TreeViewSortType = stNone DividedChar = '.' ListSource = DS2 KeyField = 'Pr_id' ListField = 'Pr_name' Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren] ParentField = 'Pr_parent' TextStyle = tvtsShort OnAddNewItem = DBLookUpTreeView1AddNewItem DataField = 'Pr_parent' DataSource = DS1 end object DBEdit1: TDBEdit Left = 45 Top = 8 Width = 260 Height = 21 DataField = 'Pr_name' DataSource = DS1 TabOrder = 0 end end object Panel2: TPanel Left = 0 Top = 0 Width = 296 Height = 282 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle Caption = 'Panel2' TabOrder = 1 object DBTreeView1: TdxDBTreeView Left = 0 Top = 0 Width = 292 Height = 278 ShowNodeHint = True OnCustomDraw = DBTreeView1CustomDraw OnDragDropTreeNode = DBTreeView1DragDropTreeNode DataSource = DS1 KeyField = 'Pr_id' ListField = 'Pr_name' ParentField = 'Pr_parent' SeparatedSt = ', id = ' DragMode = dmAutomatic Indent = 19 Align = alClient ParentColor = False Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trCheckHasChildren] SelectedIndex = -1 TabOrder = 0 OnAddNewItem = DBTreeView1AddNewItem Images = ImageList1 StateImages = ImageList1 end end object Panel3: TPanel Left = 0 Top = 282 Width = 602 Height = 73 Align = alBottom BevelOuter = bvNone TabOrder = 2 object BitBtn1: TBitBtn Left = 528 Top = 5 Width = 70 Height = 25 TabOrder = 2 Kind = bkClose end object CheckBox1: TCheckBox Left = 262 Top = 52 Width = 214 Height = 18 Caption = 'Automatically drag mode for DBTreeView' State = cbChecked TabOrder = 1 OnClick = CheckBox1Click end object CheckBox2: TCheckBox Left = 262 Top = 35 Width = 147 Height = 15 Caption = 'Use DisplayField property' TabOrder = 0 OnClick = CheckBox2Click end object BitBtnAdd: TBitBtn Left = 2 Top = 5 Width = 26 Height = 25 Hint = 'Add Item' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BitBtnAddClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333FF33333333FF333993333333300033377F3333333777333993333333 300033F77FFF3333377739999993333333333777777F3333333F399999933333 33003777777333333377333993333333330033377F3333333377333993333333 3333333773333333333F333333333333330033333333F33333773333333C3333 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333 333333333337733333FF3333333C333330003333333733333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object BitBtnAddChild: TBitBtn Left = 32 Top = 5 Width = 26 Height = 25 Hint = 'Add Child Item' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = BitBtnAddChildClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333FF33333333FF333993333333300033377F3333333777333993333333 300033F77FFF3333377739999993333333333777777F3333333F399999933333 33003777777333333377333993333333330033377F3333333377333993333333 3333333773333333333F333333333333330033333333F33333773333333C3333 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333 333333333337733333FF3333333C333330003333333733333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object BitBtnEdit: TBitBtn Left = 62 Top = 5 Width = 25 Height = 25 Hint = 'Edit Item' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BitBtnEditClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 end object BitBtnDel: TBitBtn Left = 92 Top = 5 Width = 25 Height = 25 Hint = 'Delete Item' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = BitBtnDelClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003333333333333777333333333333 300033FFFFFF3333377739999993333333333777777F3333333F399999933333 3300377777733333337733333333333333003333333333333377333333333333 3333333333333333333F333333333333330033333F33333333773333C3333333 330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3 993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333 333333377F33333333FF3333C333333330003333733333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 123 Top = 5 Width = 26 Height = 25 Hint = 'Make on one level higher' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F333333333333330333333333333333733333333} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 230 Top = 5 Width = 103 Height = 24 Caption = 'dxTreeView' TabOrder = 8 OnClick = BitBtn3Click end object CheckBox3: TCheckBox Left = 2 Top = 35 Width = 251 Height = 17 Caption = 'Do not allow to drag treeNodes on the next level' TabOrder = 9 end object CheckBox4: TCheckBox Left = 2 Top = 52 Width = 215 Height = 17 Caption = 'Do not allow to drag the root trenodes' State = cbChecked TabOrder = 10 end object Button2: TButton Left = 155 Top = 5 Width = 68 Height = 25 Caption = 'DBGrid' TabOrder = 11 OnClick = Button2Click end object CheckBox5: TCheckBox Left = 495 Top = 52 Width = 87 Height = 17 Caption = 'Custom draw' State = cbChecked TabOrder = 12 OnClick = CheckBox5Click end end object T1: TTable DatabaseName = 'MainDB' FieldDefs = < item Name = 'Pr_id' DataType = ftInteger Precision = 0 Required = True Size = 0 end item Name = 'Pr_parent' DataType = ftInteger Precision = 0 Required = True Size = 0 end item Name = 'Pr_name' DataType = ftString Precision = 0 Required = True Size = 50 end item Name = 'Pr_bdate' DataType = ftDate Precision = 0 Required = False Size = 0 end item Name = 'Pr_edate' DataType = ftDate Precision = 0 Required = False Size = 0 end item Name = 'Pr_info' DataType = ftMemo Precision = 0 Required = False Size = 1 end> StoreDefs = True TableName = 'project.db' Left = 160 Top = 8 object T1Pr_id: TIntegerField FieldName = 'Pr_id' Required = True end object T1Pr_parent: TIntegerField FieldName = 'Pr_parent' Required = True end object T1Pr_name: TStringField FieldName = 'Pr_name' Required = True Size = 50 end object T1Pr_bdate: TDateField FieldName = 'Pr_bdate' end object T1Pr_edate: TDateField FieldName = 'Pr_edate' end object T1Pr_info: TMemoField FieldName = 'Pr_info' BlobType = ftMemo Size = 1 end end object DS1: TDataSource DataSet = T1 Left = 160 Top = 40 end object DS2: TDataSource DataSet = T2 Left = 504 Top = 152 end object T2: TTable DatabaseName = 'MainDB' FieldDefs = < item Name = 'Pr_id' DataType = ftInteger Precision = 0 Required = True Size = 0 end item Name = 'Pr_parent' DataType = ftInteger Precision = 0 Required = True Size = 0 end item Name = 'Pr_name' DataType = ftString Precision = 0 Required = True Size = 50 end item Name = 'Pr_bdate' DataType = ftDate Precision = 0 Required = False Size = 0 end item Name = 'Pr_edate' DataType = ftDate Precision = 0 Required = False Size = 0 end item Name = 'Pr_info' DataType = ftMemo Precision = 0 Required = False Size = 1 end> StoreDefs = True TableName = 'project.db' Left = 472 Top = 152 end object ImageList1: TImageList DrawingStyle = dsTransparent ShareImages = True Left = 232 Top = 216 Bitmap = { 360C000003000000424D360C0000000000003600000028000000300000001000 00000100200000000000000C000000000000000000000000000000000000FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 0000808080008080800000000000FFFFFF00FFFFFF0080000000800000008000 000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000808080008000 800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF0000000000800080008000800080008000000000000000 0000000000000000000000000000000000000000000000000000000000008080 8000C0C0C000C0C0C0008080800000000000FF000000FF000000FF000000FF00 0000FF000000FF00000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00000000000000000080808000C0C0C000FFFFFF00C0C0 C0008000800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF0000000000800080000000000000000000800080008000 8000800080008000800080008000800080008000800080008000000000000000 0000C0C0C000C0C0C000C0C0C0008080800080000000FF000000FF000000FF00 0000FF000000FF000000FF00000080000000FFFFFF00FFFFFF00FFFFFF00FFFF FF00000000000000000080808000C0C0C000FFFFFF00FFFFFF0080808000C0C0 C000C0C0C0008000800000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF000000000080008000FFFFFF0000000000000000000000 000080808000C0C0C000C0C0C000FFFFFF00FFFFFF008000800000000000FFFF FF0000000000C0C0C000C0C0C000C0C0C0008080800080000000FF000000FF00 0000FF000000FF000000FF000000FF00000080000000FFFFFF00FFFFFF000000 000080808000C0C0C000FFFFFF00FFFFFF008080800080808000000000008080 8000C0C0C000C0C0C0008000800000000000FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00000000008000800080008000FFFFFF0000000000C0C0C000FFFF FF0080808000000000000000000000000000FFFFFF008000800000000000FFFF FF00FFFFFF0080000000C0C0C000C0C0C000C0C0C0008080800080000000FF00 0000FF000000FF000000FF000000FF000000FF00000000000000FFFFFF008000 800080808000FFFFFF0080808000808080000000000000000000800080000000 000080808000C0C0C000C0C0C0008000800000000000FFFFFF00FFFFFF00FFFF FF00000000008000800080008000FFFFFF00FFFFFF0000000000C0C0C000FFFF FF00FFFFFF00FFFFFF0000FFFF0080808000FFFFFF008000800000000000FFFF FF00800000008000000080000000C0C0C000C0C0C000C0C0C000808080008000 0000800000008000000080000000800000008000000080000000FFFFFF008000 8000808080008080800000000000000000008000800080008000800080008000 80000000000080808000C0C0C000C0C0C0008000800000000000FFFFFF00FFFF FF000000000080008000FFFFFF00FFFFFF00FFFFFF0000000000C0C0C000FFFF FF0000FFFF00FFFFFF00FFFFFF0080808000FFFFFF008000800000000000FFFF FF0080000000800000008000000080000000C0C0C000C0C0C000808080008080 8000000000008000000080000000800000008000000080000000FFFFFF008000 8000000000000000000080008000800080008000800080008000800080008000 8000800080000000000080808000C0C0C000C0C0C0008000800000000000FFFF FF000000000080008000FFFFFF00FFFFFF00FFFFFF0000000000C0C0C000FFFF FF00FFFFFF00FFFFFF0000FFFF0080808000FFFFFF008000800000000000FFFF FF008000000080000000800000008000000080000000C0C0C000808080008080 8000C0C0C0000000000080808000808080008080800080000000FFFFFF008000 8000808080008000800080008000800080008000800000FFFF00008080008000 800080008000800080000000000080808000C0C0C0000000000000000000FFFF FF000000000080008000FFFFFF00FFFFFF00FFFFFF0000000000C0C0C000FFFF FF0000FFFF00FFFFFF00FFFFFF0080808000FFFFFF008000800000000000FFFF FF0080000000800000008000000080000000800000008080800080808000C0C0 C000808080008080800000FFFF000000FF008080800080000000FFFFFF00FFFF FF00800080008080800080008000800080008000800080008000C0C0C00000FF FF0000FFFF008000800080008000000000008080800000000000FFFFFF00FFFF FF000000000080008000FFFFFF00FFFFFF00FFFFFF0000000000C0C0C000FFFF FF00FFFFFF00FFFFFF0000FFFF0080808000FFFFFF008000800000000000FFFF FF0000000000800000008000000080000000800000008080800080808000C0C0 C000C0C0C000C0C0C00000FFFF000000FF000000FF0080000000FFFFFF00FFFF FF00FFFFFF008000800080808000800080008000800000808000008080008000 800000FFFF0000FFFF0080008000800080000000000000000000FFFFFF00FFFF FF000000000080008000FFFFFF00FFFFFF00FFFFFF0000000000C0C0C000FFFF FF0000FFFF00FFFFFF00FFFFFF0080808000FFFFFF008000800000000000FFFF FF00FFFFFF008000000080000000800000008000000080808000C0C0C0008080 800000FFFF0000FFFF0000FFFF000000FF000000FF0080808000FFFFFF00FFFF FF00FFFFFF00FFFFFF008000800080808000800080008000800000FFFF0000FF FF0000FFFF000080800080008000800080008000800000000000FFFFFF00FFFF FF000000000080008000FFFFFF00FFFFFF00C0C0C0008080800080808000FFFF FF00FFFFFF00FFFFFF0000FFFF00808080000000000000000000FFFFFF00FFFF FF00FFFFFF000000000080000000800000008000000080808000808080000000 FF0000FFFF000000FF000000FF000000FF000000FF008080800000000000FFFF FF00FFFFFF00FFFFFF00FFFFFF00800080008080800080008000800080008000 8000800080008000800080008000800080000000000000000000FFFFFF00FFFF FF000000000080008000FFFFFF00FFFFFF0080808000FFFFFF00FFFFFF008080 800080808000FFFFFF00FFFFFF0080808000FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF0000000000800000008000000080000000808080008080 80000000FF000000FF000000FF000000FF000000FF008080800000000000FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008000800080808000800080008000 800080008000800080000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF FF000000000080008000FFFFFF00C0C0C00080808000FFFFFF00FFFFFF00FFFF FF00FFFFFF00808080008080800080808000FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008000000080000000800000008000 0000C0C0C00080808000808080000000FF000000FF00C0C0C00000000000FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0080008000808080008000 80000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF0080808000C0C0C00080808000FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00C0C0C0000000FF000000FF0000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00800080000000 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF0080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00808080008080800000000000FFFFFF00FFFFFF00424D BE000000000000003E0000002800000030000000100000000100010000000000 800000000000000000000000020000000200000000000000FFFFFF0000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000} end end