david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
328 lines
9.9 KiB
Plaintext
328 lines
9.9 KiB
Plaintext
inherited BandedDemoMainForm: TBandedDemoMainForm
|
|
Left = 88
|
|
Top = 38
|
|
Width = 891
|
|
Height = 621
|
|
Caption = 'ExpressQuantumTreeList4 BandedDemo'
|
|
OldCreateOrder = True
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lscrip: TLabel
|
|
Width = 883
|
|
Height = 25
|
|
AutoSize = False
|
|
Caption =
|
|
'Create and remove bands at runtime. Experiment using the Options' +
|
|
' available and see Help/About for other things to try.'
|
|
end
|
|
inherited sbMain: TStatusBar
|
|
Top = 548
|
|
Width = 883
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
'- drag/drop columns between bands '
|
|
''
|
|
'- move and size bands (thus moving several columns at once)'
|
|
''
|
|
|
|
'- create/delete bands at runtime (see the Options menu or right-' +
|
|
'click any band header )'
|
|
''
|
|
|
|
'- temporarily hide bands and/or columns by dragging to the Custo' +
|
|
'mization dialog (see Options/Customization Form...).'
|
|
''
|
|
|
|
'- see how removing a band puts its columns into the Columns page' +
|
|
' of the dialog, ready for re-use in a different band.'
|
|
''
|
|
|
|
'- 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 = 25
|
|
Width = 883
|
|
Height = 523
|
|
Styles.StyleSheet = BandedDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Common department info'
|
|
Width = 331
|
|
end
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Detailed department info'
|
|
Width = 310
|
|
end
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Manager info'
|
|
Width = 445
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = BandedDemoDataDM.dsDepartments
|
|
DataController.ParentField = 'PARENTID'
|
|
DataController.KeyField = 'ID'
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsData.Inserting = True
|
|
OptionsView.Bands = True
|
|
OptionsView.GridLineColor = 14916958
|
|
OptionsView.GridLines = tlglBoth
|
|
OptionsView.Indicator = True
|
|
OptionsView.UseNodeColorForIndent = False
|
|
PopupMenu = mnuNodeOptions
|
|
Preview.Place = tlppTop
|
|
Preview.Visible = True
|
|
RootValue = -1
|
|
TabOrder = 1
|
|
OnDragOver = cxDBTreeListDragOver
|
|
OnInitInsertingRecord = cxDBTreeListInitInsertingRecord
|
|
object cxDBTreeListID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'ID'
|
|
DataBinding.FieldName = 'ID'
|
|
Width = 63
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListPARENTID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'PARENTID'
|
|
DataBinding.FieldName = 'PARENTID'
|
|
Width = 62
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListNAME: TcxDBTreeListColumn
|
|
Caption.Text = 'NAME'
|
|
DataBinding.FieldName = 'NAME'
|
|
Width = 274
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListPHONE: TcxDBTreeListColumn
|
|
RepositoryItem = eriTelephoneMaskEdit
|
|
Caption.Text = 'PHONE'
|
|
DataBinding.FieldName = 'PHONE'
|
|
Width = 160
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListFAX: TcxDBTreeListColumn
|
|
RepositoryItem = eriTelephoneMaskEdit
|
|
Caption.Text = 'FAX'
|
|
DataBinding.FieldName = 'FAX'
|
|
Width = 90
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListBUDGET: TcxDBTreeListColumn
|
|
Caption.Text = 'BUDGET'
|
|
DataBinding.FieldName = 'BUDGET'
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListVACANCY: TcxDBTreeListColumn
|
|
Caption.Text = 'VACANCY'
|
|
DataBinding.FieldName = 'VACANCY'
|
|
Width = 120
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListManager: TcxDBTreeListColumn
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.ImmediatePost = True
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'Name'
|
|
end>
|
|
Properties.ListSource = BandedDemoDataDM.dsPersons
|
|
Caption.Text = 'Manager'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 117
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 2
|
|
end
|
|
object cxDBTreeListManagerPhone: TcxDBTreeListColumn
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'Phone'
|
|
end>
|
|
Properties.ListSource = BandedDemoDataDM.dsPersons
|
|
Properties.ReadOnly = False
|
|
Caption.Text = 'Manager Phone'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 121
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 2
|
|
end
|
|
object cxDBTreeListManagerEmail: TcxDBTreeListColumn
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'EMAIL'
|
|
end>
|
|
Properties.ListSource = BandedDemoDataDM.dsPersons
|
|
Properties.ReadOnly = False
|
|
Caption.Text = 'Manager Email'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 207
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 2
|
|
end
|
|
end
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
object miBandHorzSizing: TMenuItem [0]
|
|
Caption = 'Band Horz &Sizing'
|
|
Checked = True
|
|
Hint = 'Enables horizontal band sizing'
|
|
OnClick = miBandHorzSizingClick
|
|
end
|
|
object miBandVertSizing: TMenuItem [1]
|
|
Caption = 'Band &Vert Sizing'
|
|
Checked = True
|
|
Hint = 'Enables vertical band sizing'
|
|
OnClick = miBandVertSizingClick
|
|
end
|
|
object miBandMoving: TMenuItem [2]
|
|
Caption = 'Band &Moving'
|
|
Checked = True
|
|
Hint = 'Enables band moving'
|
|
OnClick = miBandMovingClick
|
|
end
|
|
object N2: TMenuItem [3]
|
|
Caption = '-'
|
|
end
|
|
object miAddBand: TMenuItem [4]
|
|
Caption = '&Create Band ...'
|
|
Hint = 'Click to create a new band'
|
|
OnClick = miAddBandClick
|
|
end
|
|
object miRemoveBands: TMenuItem [5]
|
|
Caption = '&Delete Band ...'
|
|
Hint = 'Click to remove an existing band'
|
|
OnClick = miRemoveBandsClick
|
|
end
|
|
object N1: TMenuItem [6]
|
|
Caption = '-'
|
|
end
|
|
object miColumnCustomization: TMenuItem [7]
|
|
Action = actCustomizationForm
|
|
end
|
|
object miSeparator1: TMenuItem [8]
|
|
Caption = '-'
|
|
end
|
|
object miGridLookFeel: TMenuItem [9]
|
|
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 [10]
|
|
Caption = '-'
|
|
end
|
|
end
|
|
end
|
|
inherited alMain: TActionList
|
|
object actCustomizationForm: TAction
|
|
Category = 'Options'
|
|
Caption = '&Customization Form ...'
|
|
Hint = 'Shows the column customization form'
|
|
OnExecute = actCustomizationFormExecute
|
|
end
|
|
end
|
|
object mnuNodeOptions: TPopupMenu
|
|
OnPopup = mnuNodeOptionsPopup
|
|
Left = 88
|
|
Top = 8
|
|
object miBandDelete: TMenuItem
|
|
Caption = '&Delete Band'
|
|
Hint = 'Deletes selected Band'
|
|
OnClick = miBandDeleteClick
|
|
end
|
|
object miBandHide: TMenuItem
|
|
Caption = '&Hide Band'
|
|
Hint = 'Hides selected Band'
|
|
OnClick = miBandHideClick
|
|
end
|
|
object miCustomisationForm: TMenuItem
|
|
Action = actCustomizationForm
|
|
end
|
|
end
|
|
object cxEditRepository1: TcxEditRepository
|
|
Left = 432
|
|
Top = 48
|
|
object eriTelephoneMaskEdit: TcxEditRepositoryMaskItem
|
|
Properties.MaskKind = emkRegExprEx
|
|
Properties.EditMask = '(\((\d\d\d)?\))? \d(\d\d?)? - \d\d(\d\d)?( - \d\d)?'
|
|
end
|
|
end
|
|
end
|