david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
418 lines
13 KiB
Plaintext
418 lines
13 KiB
Plaintext
inherited DragDropDemoMainForm: TDragDropDemoMainForm
|
|
Left = 188
|
|
Top = 42
|
|
Width = 758
|
|
Height = 548
|
|
Caption = 'ExpressQuantumTreeList4 DragDropDemo'
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lscrip: TLabel
|
|
Width = 750
|
|
Caption =
|
|
'This demo demonstrates how to populate the TreeList control from' +
|
|
' another one and change its hierarchy using drag/drop. See Help/' +
|
|
'About for more information'
|
|
end
|
|
object Splitter1: TSplitter [1]
|
|
Left = 361
|
|
Top = 32
|
|
Width = 8
|
|
Height = 443
|
|
Color = 15981511
|
|
ParentColor = False
|
|
end
|
|
inherited sbMain: TStatusBar
|
|
Top = 475
|
|
Width = 750
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
'- assign persons to a department as employees '
|
|
'This can be done in three different ways:'
|
|
|
|
' (a) multiselect any rows of the Person list from the Dictionar' +
|
|
'ies form and drop them onto the list of persons displayed to the' +
|
|
' left of the main form'
|
|
|
|
' (b) multiselect any rows of the Person list from the Dictionar' +
|
|
'ies form and drop them onto any department within the Department' +
|
|
's hierarchy, displayed to the right of the main form'
|
|
|
|
' (c) multiselect any rows of the employee list displayed to the' +
|
|
' left of the main form and drop them onto another department wit' +
|
|
'hin the Departments hierarchy'
|
|
''
|
|
'- change the Departments hierarchy'
|
|
'This can be done in two different ways:'
|
|
|
|
' (a) multiselect any rows of the department list from the Dicti' +
|
|
'onaries form and drop them onto any department within the Depart' +
|
|
'ments hierarchy'
|
|
|
|
' (b) select any department within the Departments hierarchy and' +
|
|
' drop it onto another department'
|
|
''
|
|
'- insert/delete departments using the Ins/Ctrl+Delete keys'
|
|
''
|
|
|
|
'NOTE: if you haven'#39't done so already, you might like to practice' +
|
|
' by completing the tutorial version of this demo (see the tutori' +
|
|
'als folder).')
|
|
end
|
|
object pnlDepartments: TPanel [4]
|
|
Left = 0
|
|
Top = 32
|
|
Width = 361
|
|
Height = 443
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'pnlDepartments'
|
|
TabOrder = 2
|
|
object tlDepartments: TcxDBTreeList
|
|
Left = 0
|
|
Top = 28
|
|
Width = 361
|
|
Height = 415
|
|
Styles.StyleSheet = DragDropDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.Text = 'Band + 1'
|
|
Width = 600
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = DragDropDemoDataDM.dsDepartments
|
|
DataController.ParentField = 'PARENTID'
|
|
DataController.KeyField = 'ID'
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.ImmediateEditor = False
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsBehavior.DragFocusing = True
|
|
OptionsBehavior.DragDropText = True
|
|
OptionsData.Inserting = True
|
|
OptionsView.GridLineColor = 14916958
|
|
OptionsView.GridLines = tlglBoth
|
|
OptionsView.Indicator = True
|
|
Preview.Column = tlDepartmentsNAME
|
|
Preview.Place = tlppTop
|
|
Preview.Visible = True
|
|
RootValue = 255
|
|
TabOrder = 0
|
|
OnDragDrop = tlDepartmentsDragDrop
|
|
OnDragOver = tlDepartmentsDragOver
|
|
OnInitInsertingRecord = tlDepartmentsInitInsertingRecord
|
|
object tlDepartmentsID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'ID'
|
|
DataBinding.FieldName = 'ID'
|
|
Position.ColIndex = 6
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsPARENTID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'PARENTID'
|
|
DataBinding.FieldName = 'PARENTID'
|
|
Position.ColIndex = 7
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsNAME: TcxDBTreeListColumn
|
|
Caption.Text = 'NAME'
|
|
DataBinding.FieldName = 'NAME'
|
|
Width = 183
|
|
Position.ColIndex = 5
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsBUDGET: TcxDBTreeListColumn
|
|
Caption.Text = 'BUDGET'
|
|
DataBinding.FieldName = 'BUDGET'
|
|
Width = 193
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsPHONE: TcxDBTreeListColumn
|
|
Caption.Text = 'PHONE'
|
|
DataBinding.FieldName = 'PHONE'
|
|
Width = 192
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsFAX: TcxDBTreeListColumn
|
|
Caption.Text = 'FAX'
|
|
DataBinding.FieldName = 'FAX'
|
|
Width = 193
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsEMAIL: TcxDBTreeListColumn
|
|
Caption.Text = 'EMAIL'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
Width = 192
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDepartmentsVACANCY: TcxDBTreeListColumn
|
|
Caption.Text = 'VACANCY'
|
|
DataBinding.FieldName = 'VACANCY'
|
|
Width = 193
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
object pnlDeptCaption: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 361
|
|
Height = 28
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Caption = 'Departments'
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -24
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object pnlEmployees: TPanel [5]
|
|
Left = 369
|
|
Top = 32
|
|
Width = 381
|
|
Height = 443
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'pnlEmployees'
|
|
TabOrder = 3
|
|
object pnlEmplCaption: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 381
|
|
Height = 28
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Caption = 'Employees'
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -24
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
object tlEmployees: TcxDBTreeList
|
|
Left = 0
|
|
Top = 28
|
|
Width = 381
|
|
Height = 415
|
|
Styles.StyleSheet = DragDropDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.Text = 'Band + 1'
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = DragDropDemoDataDM.dsPersons
|
|
DataController.ParentField = 'ID'
|
|
DataController.KeyField = 'ID'
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.ImmediateEditor = False
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsBehavior.DragFocusing = True
|
|
OptionsBehavior.DragDropText = True
|
|
OptionsSelection.MultiSelect = True
|
|
OptionsView.Buttons = False
|
|
OptionsView.Indicator = True
|
|
OptionsView.ShowRoot = False
|
|
RootValue = 255
|
|
TabOrder = 1
|
|
OnDragDrop = tlEmployeesDragDrop
|
|
OnDragOver = tlEmployeesDragOver
|
|
OnMoveTo = tlEmployeesMoveTo
|
|
object tlEmployeesName: TcxDBTreeListColumn
|
|
Caption.Text = 'Name'
|
|
DataBinding.FieldName = 'Name'
|
|
Width = 166
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
SortOrder = soAscending
|
|
end
|
|
object tlEmployeesCountry: TcxDBTreeListColumn
|
|
Caption.Text = 'Country'
|
|
DataBinding.FieldName = 'Country'
|
|
Width = 166
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesPostalCode: TcxDBTreeListColumn
|
|
Caption.Text = 'PostalCode'
|
|
DataBinding.FieldName = 'PostalCode'
|
|
Width = 166
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesCity: TcxDBTreeListColumn
|
|
Caption.Text = 'City'
|
|
DataBinding.FieldName = 'City'
|
|
Width = 166
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesAddress: TcxDBTreeListColumn
|
|
Caption.Text = 'Address'
|
|
DataBinding.FieldName = 'Address'
|
|
Width = 172
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesPhone: TcxDBTreeListColumn
|
|
Caption.Text = 'Phone'
|
|
DataBinding.FieldName = 'Phone'
|
|
Width = 166
|
|
Position.ColIndex = 5
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesFax: TcxDBTreeListColumn
|
|
Caption.Text = 'Fax'
|
|
DataBinding.FieldName = 'Fax'
|
|
Width = 166
|
|
Position.ColIndex = 6
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesEMAIL: TcxDBTreeListColumn
|
|
Caption.Text = 'EMAIL'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
Width = 166
|
|
Position.ColIndex = 7
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesHOMEPAGE: TcxDBTreeListColumn
|
|
Caption.Text = 'HOMEPAGE'
|
|
DataBinding.FieldName = 'HOMEPAGE'
|
|
Width = 166
|
|
Position.ColIndex = 8
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmployeesDepartmentID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'DepartmentID'
|
|
DataBinding.FieldName = 'DepartmentID'
|
|
Position.ColIndex = 9
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
end
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
object ShowDictionaries1: TMenuItem [0]
|
|
Caption = 'Show &Dictionaries'
|
|
Hint = 'Shows the Dictionaries form'
|
|
OnClick = ShowDictionaries1Click
|
|
end
|
|
object N2: TMenuItem [1]
|
|
Caption = '-'
|
|
end
|
|
object miDragExpande: TMenuItem [2]
|
|
Caption = 'Drag &Expande'
|
|
Checked = True
|
|
Hint =
|
|
'If checked, a collapsed node is expanded when a user drags a nod' +
|
|
'e to it'
|
|
OnClick = miDragExpandeClick
|
|
end
|
|
object miDragCollapse: TMenuItem [3]
|
|
Caption = 'Drag &Collapse'
|
|
Checked = True
|
|
Hint =
|
|
'If checked, an expanded node is collapsed when a user drags a no' +
|
|
'de to it '
|
|
OnClick = miDragCollapseClick
|
|
end
|
|
object N1: TMenuItem [4]
|
|
Caption = '-'
|
|
end
|
|
object miColumnCustomization: TMenuItem [5]
|
|
Caption = 'Column &Customization ...'
|
|
Hint = 'Shows the column customization form'
|
|
OnClick = miColumnCustomizationClick
|
|
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
|
|
end
|