david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
273 lines
8.6 KiB
Plaintext
273 lines
8.6 KiB
Plaintext
object DragDropDemoDictionaryForm: TDragDropDemoDictionaryForm
|
|
Left = 158
|
|
Top = 119
|
|
Width = 504
|
|
Height = 397
|
|
Caption = 'Dictionaries'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
FormStyle = fsStayOnTop
|
|
Position = poScreenCenter
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pcDictionary: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 496
|
|
Height = 363
|
|
ActivePage = tsPersons
|
|
Align = alClient
|
|
MultiLine = True
|
|
TabOrder = 0
|
|
object tsDepartments: TTabSheet
|
|
Caption = 'Departments'
|
|
object lsc: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 488
|
|
Height = 48
|
|
Align = alTop
|
|
Caption =
|
|
'Multiselect and drag rows from the list below, then drop them on' +
|
|
'to the necessary place of the Departments hierarchy displayed by' +
|
|
' the main form '
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object tlDeptDict: TcxDBTreeList
|
|
Left = 0
|
|
Top = 48
|
|
Width = 488
|
|
Height = 287
|
|
Styles.StyleSheet = DragDropDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.Text = 'Band + 1'
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = DragDropDemoDataDM.dsDeptDict
|
|
DataController.ParentField = 'ID'
|
|
DataController.KeyField = 'ID'
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.ImmediateEditor = False
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsBehavior.IncSearchItem = tlDeptDictNAME
|
|
OptionsBehavior.DragDropText = True
|
|
OptionsBehavior.IncSearch = True
|
|
OptionsData.Inserting = True
|
|
OptionsSelection.MultiSelect = True
|
|
OptionsView.Indicator = True
|
|
OptionsView.ShowRoot = False
|
|
RootValue = 255
|
|
TabOrder = 0
|
|
OnDragOver = tlDictDragOver
|
|
OnMoveTo = tlDictMoveTo
|
|
object tlDeptDictPARENTID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'PARENTID'
|
|
DataBinding.FieldName = 'PARENTID'
|
|
Position.ColIndex = 6
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDeptDictNAME: TcxDBTreeListColumn
|
|
Caption.Text = 'NAME'
|
|
DataBinding.FieldName = 'NAME'
|
|
Width = 177
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
SortOrder = soAscending
|
|
end
|
|
object tlDeptDictBUDGET: TcxDBTreeListColumn
|
|
Caption.Text = 'BUDGET'
|
|
DataBinding.FieldName = 'BUDGET'
|
|
Width = 173
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDeptDictPHONE: TcxDBTreeListColumn
|
|
Caption.Text = 'PHONE'
|
|
DataBinding.FieldName = 'PHONE'
|
|
Width = 174
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDeptDictFAX: TcxDBTreeListColumn
|
|
Caption.Text = 'FAX'
|
|
DataBinding.FieldName = 'FAX'
|
|
Width = 177
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDeptDictEMAIL: TcxDBTreeListColumn
|
|
Caption.Text = 'EMAIL'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
Width = 173
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlDeptDictVACANCY: TcxDBTreeListColumn
|
|
Caption.Text = 'VACANCY'
|
|
DataBinding.FieldName = 'VACANCY'
|
|
Width = 177
|
|
Position.ColIndex = 5
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
end
|
|
object tsPersons: TTabSheet
|
|
Caption = 'Persons'
|
|
ImageIndex = 1
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 488
|
|
Height = 48
|
|
Align = alTop
|
|
Caption =
|
|
'Multiselect and drag rows from the list below, then drop them on' +
|
|
'to the Departments hierarchy or the current department'#39's employe' +
|
|
'e list displayed by the main form'
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object tlEmplDict: TcxDBTreeList
|
|
Left = 0
|
|
Top = 48
|
|
Width = 488
|
|
Height = 287
|
|
Styles.StyleSheet = DragDropDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.Text = 'Band + 1'
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = DragDropDemoDataDM.dsPersDict
|
|
DataController.ParentField = 'ID'
|
|
DataController.KeyField = 'ID'
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.ImmediateEditor = False
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsBehavior.IncSearchItem = tlDeptDictNAME
|
|
OptionsBehavior.DragDropText = True
|
|
OptionsBehavior.IncSearch = True
|
|
OptionsData.Inserting = True
|
|
OptionsSelection.MultiSelect = True
|
|
OptionsView.Indicator = True
|
|
OptionsView.ShowRoot = False
|
|
RootValue = 255
|
|
TabOrder = 0
|
|
OnDragOver = tlDictDragOver
|
|
OnMoveTo = tlDictMoveTo
|
|
object tlEmplDictName: TcxDBTreeListColumn
|
|
Caption.Text = 'Name'
|
|
DataBinding.FieldName = 'Name'
|
|
Width = 187
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
SortOrder = soAscending
|
|
end
|
|
object tlEmplDictCountry: TcxDBTreeListColumn
|
|
Caption.Text = 'Country'
|
|
DataBinding.FieldName = 'Country'
|
|
Width = 187
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictPostalCode: TcxDBTreeListColumn
|
|
Caption.Text = 'PostalCode'
|
|
DataBinding.FieldName = 'PostalCode'
|
|
Width = 187
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictCity: TcxDBTreeListColumn
|
|
Caption.Text = 'City'
|
|
DataBinding.FieldName = 'City'
|
|
Width = 187
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictAddress: TcxDBTreeListColumn
|
|
Caption.Text = 'Address'
|
|
DataBinding.FieldName = 'Address'
|
|
Width = 194
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictPhone: TcxDBTreeListColumn
|
|
Caption.Text = 'Phone'
|
|
DataBinding.FieldName = 'Phone'
|
|
Width = 187
|
|
Position.ColIndex = 5
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictFax: TcxDBTreeListColumn
|
|
Caption.Text = 'Fax'
|
|
DataBinding.FieldName = 'Fax'
|
|
Width = 187
|
|
Position.ColIndex = 6
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictEMAIL: TcxDBTreeListColumn
|
|
Caption.Text = 'EMAIL'
|
|
DataBinding.FieldName = 'EMAIL'
|
|
Width = 187
|
|
Position.ColIndex = 7
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictHOMEPAGE: TcxDBTreeListColumn
|
|
Caption.Text = 'HOMEPAGE'
|
|
DataBinding.FieldName = 'HOMEPAGE'
|
|
Width = 187
|
|
Position.ColIndex = 8
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object tlEmplDictDepartmentID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'DepartmentID'
|
|
DataBinding.FieldName = 'DepartmentID'
|
|
Position.ColIndex = 9
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|