david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
280 lines
8.5 KiB
Plaintext
280 lines
8.5 KiB
Plaintext
inherited SimpleTreeDemoMainForm: TSimpleTreeDemoMainForm
|
|
Left = 269
|
|
Top = 131
|
|
Width = 586
|
|
Caption = 'ExpressQuantumTreeList4 SimpleTreeDemo'
|
|
OldCreateOrder = True
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lscrip: TLabel
|
|
Width = 578
|
|
Caption =
|
|
'Experiment by changing the Options above and also see'#10#13'Help/Abou' +
|
|
't for other things to try.'
|
|
end
|
|
inherited sbMain: TStatusBar
|
|
Width = 578
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
'- try the Options menu '
|
|
''
|
|
'- insert/delete records (via the Ins/Ctrl+Del keys)'
|
|
''
|
|
|
|
'- click on column headers to sort (hold down the shift key for s' +
|
|
'orting multiple columns)'
|
|
''
|
|
|
|
'- right mouse click some node indicator and try the popup menu i' +
|
|
'tems'
|
|
''
|
|
'- check how little source code is required'
|
|
''
|
|
|
|
'- NOTE: if you haven'#39't done so already, you might like to practi' +
|
|
'ce by completing the tutorial version of this demo (see the tuto' +
|
|
'rials folder)')
|
|
TabOrder = 2
|
|
end
|
|
object cxDBTreeList: TcxDBTreeList [3]
|
|
Left = 0
|
|
Top = 32
|
|
Width = 578
|
|
Height = 360
|
|
Styles.StyleSheet = SimpleTreeDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.Text = 'Band + 1'
|
|
Width = 600
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = SimpleTreeDemoDataDM.dsDepartments
|
|
DataController.ParentField = 'PARENTID'
|
|
DataController.KeyField = 'ID'
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsData.Inserting = True
|
|
OptionsView.GridLineColor = 14916958
|
|
OptionsView.GridLines = tlglBoth
|
|
OptionsView.Indicator = True
|
|
PopupMenu = mnuNodeOptions
|
|
Preview.Column = cxDBTreeListNAME
|
|
Preview.Place = tlppTop
|
|
Preview.Visible = True
|
|
RootValue = -1
|
|
TabOrder = 1
|
|
OnInitInsertingRecord = cxDBTreeListInitInsertingRecord
|
|
object cxDBTreeListID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'ID'
|
|
DataBinding.FieldName = 'ID'
|
|
Position.ColIndex = 6
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListPARENTID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'PARENTID'
|
|
DataBinding.FieldName = 'PARENTID'
|
|
Position.ColIndex = 7
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListNAME: TcxDBTreeListColumn
|
|
Caption.Text = 'NAME'
|
|
DataBinding.FieldName = 'NAME'
|
|
Width = 183
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListBUDGET: TcxDBTreeListColumn
|
|
Caption.Text = 'BUDGET'
|
|
DataBinding.FieldName = 'BUDGET'
|
|
Width = 120
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListPHONE: TcxDBTreeListColumn
|
|
Caption.Text = 'PHONE'
|
|
DataBinding.FieldName = 'PHONE'
|
|
Width = 120
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListFAX: TcxDBTreeListColumn
|
|
Caption.Text = 'FAX'
|
|
DataBinding.FieldName = 'FAX'
|
|
Width = 120
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListEMAIL: TcxDBTreeListColumn
|
|
Caption.Text = 'EMAIL'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
Width = 120
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListVACANCY: TcxDBTreeListColumn
|
|
Caption.Text = 'VACANCY'
|
|
DataBinding.FieldName = 'VACANCY'
|
|
Width = 120
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
object miFullCollapse: TMenuItem [0]
|
|
Caption = 'Full &Collapse'
|
|
Hint = 'Collapses all nodes within a tree list control'
|
|
OnClick = miFullCollapseClick
|
|
end
|
|
object miFullExpand: TMenuItem [1]
|
|
Caption = 'Full &Expand'
|
|
Hint = 'Expands all nodes within a tree list control'
|
|
OnClick = miFullExpandClick
|
|
end
|
|
object N1: TMenuItem [2]
|
|
Caption = '-'
|
|
end
|
|
object miColumnCustomization: TMenuItem [3]
|
|
Caption = 'Column &Customization ...'
|
|
Hint = 'Shows the column customization form'
|
|
OnClick = miColumnCustomizationClick
|
|
end
|
|
object miPreview: TMenuItem [4]
|
|
Caption = 'Show &Preview Row'
|
|
Checked = True
|
|
Hint = 'Displays the department name as a preview row'
|
|
OnClick = miPreviewClick
|
|
end
|
|
object miOptionsView: TMenuItem [5]
|
|
Caption = 'Options &View'
|
|
object miShowRoot: TMenuItem
|
|
Caption = '&Root'
|
|
Checked = True
|
|
Hint =
|
|
'Displays the '#39'+'#39' button to the left of the first node as a root ' +
|
|
'of all nodes.'
|
|
OnClick = miShowRootClick
|
|
end
|
|
object miHeaders: TMenuItem
|
|
Caption = '&Headers'
|
|
Checked = True
|
|
Hint = 'Displays headers of a tree list control'
|
|
OnClick = miHeadersClick
|
|
end
|
|
object miIndicator: TMenuItem
|
|
Caption = '&Indicator'
|
|
Checked = True
|
|
Hint = 'Shows indicators on the left side of tree list nodes'
|
|
OnClick = miIndicatorClick
|
|
end
|
|
object miButtons: TMenuItem
|
|
Caption = '&Buttons'
|
|
Checked = True
|
|
Hint = 'Displays buttons to the left of each node with children'
|
|
OnClick = miButtonsClick
|
|
end
|
|
end
|
|
object miSeparator1: TMenuItem [6]
|
|
Caption = '-'
|
|
end
|
|
object miGridLookFeel: TMenuItem [7]
|
|
Caption = '&Look&&Feel'
|
|
object miKind: TMenuItem
|
|
Caption = '&Kind'
|
|
object miFlat: TMenuItem
|
|
Caption = '&Flat'
|
|
GroupIndex = 1
|
|
Hint = 'Setting this option changes the demo appearance to Flat style'
|
|
RadioItem = True
|
|
OnClick = LookAndFeelChange
|
|
end
|
|
object miStandard: TMenuItem
|
|
Tag = 1
|
|
Caption = '&Standard'
|
|
GroupIndex = 1
|
|
Hint =
|
|
'Setting this option changes the demo appearance to Standard styl' +
|
|
'e'
|
|
RadioItem = True
|
|
OnClick = LookAndFeelChange
|
|
end
|
|
object miUltraFlat: TMenuItem
|
|
Tag = 2
|
|
Caption = '&Ultra Flat'
|
|
Checked = True
|
|
GroupIndex = 1
|
|
Hint =
|
|
'Setting this option changes the demo appearance to Ultra Flat st' +
|
|
'yle'
|
|
RadioItem = True
|
|
OnClick = LookAndFeelChange
|
|
end
|
|
object Office111: TMenuItem
|
|
Tag = 3
|
|
Caption = 'Office 11'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = LookAndFeelChange
|
|
end
|
|
end
|
|
object miNativeStyle: TMenuItem
|
|
Tag = 4
|
|
Caption = '&Native Style'
|
|
Hint = 'Setting this option changes the demo appearance to Native style'
|
|
OnClick = LookAndFeelChange
|
|
end
|
|
end
|
|
object miSeparator2: TMenuItem [8]
|
|
Caption = '-'
|
|
end
|
|
end
|
|
end
|
|
object mnuNodeOptions: TPopupMenu
|
|
OnPopup = mnuNodeOptionsPopup
|
|
Left = 88
|
|
Top = 8
|
|
object miNodeDelete: TMenuItem
|
|
Caption = '&Delete '
|
|
Hint = 'Deletes selected node'
|
|
OnClick = miNodeDeleteClick
|
|
end
|
|
object miNodeAdd: TMenuItem
|
|
Caption = '&Add '
|
|
Hint = 'Adds sibling of selected node'
|
|
OnClick = miNodeAddClick
|
|
end
|
|
object miNodeAddChild: TMenuItem
|
|
Caption = 'Add &Child'
|
|
Hint = 'Adds child to selceted node'
|
|
OnClick = miNodeAddChildClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miExpand: TMenuItem
|
|
Caption = '&Expand recursively'
|
|
Hint = 'Expands selected node and all its childs'
|
|
OnClick = miExpandClick
|
|
end
|
|
object miCollapse: TMenuItem
|
|
Caption = '&Collapse recursively'
|
|
Hint = 'Collapses selected node and all its childs'
|
|
OnClick = miCollapseClick
|
|
end
|
|
end
|
|
end
|