Componentes.Terceros.DevExp.../internal/x.36/1/ExpressDBTree Suite/Demos/CBuilder/DBTree/DBTreemain.dfm
2008-09-04 11:31:51 +00:00

598 lines
22 KiB
Plaintext

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