david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
346 lines
11 KiB
Plaintext
346 lines
11 KiB
Plaintext
inherited SimpleListDemoMainForm: TSimpleListDemoMainForm
|
|
Left = 198
|
|
Top = 139
|
|
Width = 689
|
|
Caption = 'ExpressQuantumTreeList4 SimpleList Demo'
|
|
OldCreateOrder = True
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lscrip: TLabel
|
|
Width = 681
|
|
Caption =
|
|
'Use Express QuantumTreeList as a ListView replacement (in report' +
|
|
' mode). Experiment by changing the Options above and also see He' +
|
|
'lp/About for other things to try.'
|
|
end
|
|
inherited sbMain: TStatusBar
|
|
Width = 681
|
|
end
|
|
object cxDBTreeList: TcxDBTreeList [2]
|
|
Left = 0
|
|
Top = 32
|
|
Width = 681
|
|
Height = 360
|
|
Styles.StyleSheet = SimpleListDemoDataDM.TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Primary Info'
|
|
Width = 401
|
|
end
|
|
item
|
|
Caption.Text = 'Secondary Info'
|
|
Width = 1003
|
|
end>
|
|
BufferedPaint = False
|
|
DataController.DataSource = SimpleListDemoDataDM.dsCars
|
|
DataController.ParentField = 'ID'
|
|
DataController.KeyField = 'ID'
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsBehavior.IncSearchItem = cxDBTreeListTrademark
|
|
OptionsBehavior.IncSearch = True
|
|
OptionsData.Inserting = True
|
|
OptionsSelection.MultiSelect = True
|
|
OptionsView.Bands = True
|
|
OptionsView.GridLineColor = 15451300
|
|
OptionsView.Indicator = True
|
|
OptionsView.ShowRoot = False
|
|
RootValue = -1
|
|
TabOrder = 1
|
|
object cxDBTreeListID: TcxDBTreeListColumn
|
|
Visible = False
|
|
Caption.Text = 'ID'
|
|
DataBinding.FieldName = 'ID'
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListTrademark: TcxDBTreeListColumn
|
|
Caption.Text = 'Trademark'
|
|
DataBinding.FieldName = 'Trademark'
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListModel: TcxDBTreeListColumn
|
|
Caption.Text = 'Model'
|
|
DataBinding.FieldName = 'Model'
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListPicture: TcxDBTreeListColumn
|
|
RepositoryItem = eriPicture
|
|
Caption.Text = 'Picture'
|
|
DataBinding.FieldName = 'Picture'
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListPrice: TcxDBTreeListColumn
|
|
Caption.Text = 'Price'
|
|
DataBinding.FieldName = 'Price'
|
|
Width = 101
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListHP: TcxDBTreeListColumn
|
|
RepositoryItem = eriHP
|
|
Caption.Text = 'HP'
|
|
DataBinding.FieldName = 'HP'
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListLiter: TcxDBTreeListColumn
|
|
RepositoryItem = eriLiter
|
|
Caption.Text = 'Liter'
|
|
DataBinding.FieldName = 'Liter'
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListCyl: TcxDBTreeListColumn
|
|
RepositoryItem = cxEditRepositorySpinItem
|
|
Caption.Text = 'Cyl'
|
|
DataBinding.FieldName = 'Cyl'
|
|
Width = 101
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListTransmissSpeedCount: TcxDBTreeListColumn
|
|
RepositoryItem = cxEditRepositorySpinItem
|
|
Caption.Text = 'TransmissSpeedCount'
|
|
DataBinding.FieldName = 'TransmissSpeedCount'
|
|
Position.ColIndex = 3
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListTransmissAutomatic: TcxDBTreeListColumn
|
|
RepositoryItem = eriTransmissAuto
|
|
Caption.Text = 'TransmissAutomatic'
|
|
DataBinding.FieldName = 'TransmissAutomatic'
|
|
Position.ColIndex = 4
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListMPG_City: TcxDBTreeListColumn
|
|
RepositoryItem = cxEditRepositorySpinItem
|
|
Caption.Text = 'MPG_City'
|
|
DataBinding.FieldName = 'MPG_City'
|
|
Position.ColIndex = 5
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListMPG_Highway: TcxDBTreeListColumn
|
|
RepositoryItem = cxEditRepositorySpinItem
|
|
Caption.Text = 'MPG_Highway'
|
|
DataBinding.FieldName = 'MPG_Highway'
|
|
Width = 101
|
|
Position.ColIndex = 6
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListCategory: TcxDBTreeListColumn
|
|
Caption.Text = 'Category'
|
|
DataBinding.FieldName = 'Category'
|
|
Width = 101
|
|
Position.ColIndex = 7
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListHyperlink: TcxDBTreeListColumn
|
|
RepositoryItem = eriURL
|
|
Caption.Text = 'Hyperlink'
|
|
DataBinding.FieldName = 'Hyperlink'
|
|
Position.ColIndex = 8
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListDescription: TcxDBTreeListColumn
|
|
RepositoryItem = eriDescription
|
|
Caption.Text = 'Description'
|
|
DataBinding.FieldName = 'Description'
|
|
Position.ColIndex = 9
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Left = 552
|
|
Top = 280
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
'- try the TreeList options'
|
|
''
|
|
'- practice Incremental Search (type any Trademark)'
|
|
''
|
|
'- display resizable images by clicking on the focused icon'
|
|
''
|
|
|
|
'- click on column headers to sort (hold down the shift key for s' +
|
|
'orting multiple columns)'
|
|
' '
|
|
|
|
'- reorder columns using drag&drop facilities (drag any column he' +
|
|
'ader and drop it to the required place)'
|
|
''
|
|
'- insert/delete records (via the Ins/Ctrl+Del keys)'
|
|
''
|
|
'- delete several records at once using the Multi Select option'
|
|
''
|
|
'- 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
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
object miView: TMenuItem [0]
|
|
Caption = '&View'
|
|
object miBands: TMenuItem
|
|
Caption = '&Bands'
|
|
Checked = True
|
|
Hint = 'Shows/hides bands within a tree list control'
|
|
OnClick = miBandsClick
|
|
end
|
|
object miHeaders: TMenuItem
|
|
Caption = '&Headers'
|
|
Checked = True
|
|
Hint = 'Shows/hides column headers within a tree list control'
|
|
OnClick = miHeadersClick
|
|
end
|
|
object miGridLines: TMenuItem
|
|
Caption = 'Grid &Lines'
|
|
Hint = 'Displays lines that separate TreeList items'
|
|
OnClick = miGridLinesClick
|
|
end
|
|
end
|
|
object miBehavior: TMenuItem [1]
|
|
Caption = '&Behavior'
|
|
object miIncSearch: TMenuItem
|
|
Caption = '&Incremental Search'
|
|
Checked = True
|
|
Hint =
|
|
'Enables a user to start typing and make the TreeList automatical' +
|
|
'ly navigate to the closest match'
|
|
OnClick = miIncSearchClick
|
|
end
|
|
object miFocusCellOnCycle: TMenuItem
|
|
Caption = 'Focus Cell On &Cycle'
|
|
Hint =
|
|
'Enables moving focus to the next row after it reaches the last c' +
|
|
'ell within the current row'
|
|
OnClick = miFocusCellOnCycleClick
|
|
end
|
|
object miImmediateEditor: TMenuItem
|
|
Caption = 'Imme&diate Editor'
|
|
Checked = True
|
|
Hint =
|
|
'If checked, a specific column editor is activated when a user cl' +
|
|
'icks an appropriate cell'
|
|
OnClick = miImmediateEditorClick
|
|
end
|
|
end
|
|
object miMultiSelect: TMenuItem [2]
|
|
Caption = '&Multi Select'
|
|
Checked = True
|
|
Hint = 'Enables multiple rows selection'
|
|
OnClick = miMultiSelectClick
|
|
end
|
|
object miSeparator1: TMenuItem [3]
|
|
Caption = '-'
|
|
end
|
|
object miGridLookFeel: TMenuItem [4]
|
|
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 [5]
|
|
Caption = '-'
|
|
end
|
|
end
|
|
end
|
|
object cxEditRepository: TcxEditRepository
|
|
Left = 352
|
|
Top = 8
|
|
object cxEditRepositorySpinItem: TcxEditRepositorySpinItem
|
|
Properties.SpinButtons.ShowFastButtons = True
|
|
end
|
|
object eriPicture: TcxEditRepositoryBlobItem
|
|
Properties.BlobEditKind = bekPict
|
|
Properties.PictureGraphicClassName = 'TJPEGImage'
|
|
end
|
|
object eriHP: TcxEditRepositorySpinItem
|
|
Properties.Increment = 10.000000000000000000
|
|
Properties.LargeIncrement = 100.000000000000000000
|
|
Properties.SpinButtons.ShowFastButtons = True
|
|
end
|
|
object eriLiter: TcxEditRepositorySpinItem
|
|
Properties.Increment = 0.100000000000000000
|
|
Properties.LargeIncrement = 1.000000000000000000
|
|
end
|
|
object eriTransmissAuto: TcxEditRepositoryCheckBoxItem
|
|
Properties.ValueChecked = 'Yes'
|
|
Properties.ValueUnchecked = 'No'
|
|
end
|
|
object eriDescription: TcxEditRepositoryBlobItem
|
|
Properties.BlobEditKind = bekMemo
|
|
Properties.MemoScrollBars = ssVertical
|
|
Properties.PictureGraphicClassName = 'TJPEGImage'
|
|
end
|
|
object eriURL: TcxEditRepositoryHyperLinkItem
|
|
end
|
|
end
|
|
end
|