david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
337 lines
10 KiB
Plaintext
337 lines
10 KiB
Plaintext
inherited ProviderModeDemoMainForm: TProviderModeDemoMainForm
|
|
Left = 232
|
|
Top = 114
|
|
Caption = 'ExpressQuantumTreeList4 ProviderModeDemo '
|
|
OldCreateOrder = True
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lscrip: TLabel
|
|
Caption =
|
|
'Use TreeList to work with non db data structure (about 100'#39'000 n' +
|
|
'odes). Experiment with Options above and also see Help/About for' +
|
|
' other things to try.'
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
'- change the TreeList elements displayed via the Options menu;'
|
|
''
|
|
'- add/delete any nodes (using the Ins/Ctrl+Delete keys)'
|
|
''
|
|
'- change the nodes hierarchy via drag&drop facilities'
|
|
''
|
|
|
|
'- disable/enable the TreeList'#39's SmartLoad mode (see Options/Smar' +
|
|
'tLoad)'
|
|
''
|
|
|
|
'- see how fast the TreeList works with a large set of data in Sm' +
|
|
'artLoad mode'
|
|
''
|
|
|
|
'- 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)')
|
|
end
|
|
object TreeList: TcxVirtualTreeList [3]
|
|
Left = 0
|
|
Top = 32
|
|
Width = 700
|
|
Height = 360
|
|
Styles.StyleSheet = TreeListStyleSheetDevExpress
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Provider mode'
|
|
Width = 515
|
|
end>
|
|
BufferedPaint = False
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.ImmediateEditor = False
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsData.Inserting = True
|
|
OptionsView.GridLineColor = 11316396
|
|
OptionsView.GridLines = tlglBoth
|
|
OptionsView.Indicator = True
|
|
TabOrder = 2
|
|
OnDragOver = TreeListDragOver
|
|
object clnId: TcxTreeListColumn
|
|
PropertiesClassName = 'TcxSpinEditProperties'
|
|
Caption.Text = 'Id'
|
|
DataBinding.ValueType = 'Integer'
|
|
Width = 182
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object clnName: TcxTreeListColumn
|
|
Caption.Text = 'Text'
|
|
DataBinding.ValueType = 'String'
|
|
Width = 162
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object clnDate: TcxTreeListColumn
|
|
Caption.Text = 'Date'
|
|
DataBinding.ValueType = 'DateTime'
|
|
Width = 171
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
object miSmartLoadMode: TMenuItem [0]
|
|
Caption = '&Smart Load mode'
|
|
Checked = True
|
|
Hint = 'Enables SmartLoad mode '
|
|
OnClick = miSmartLoadModeClick
|
|
end
|
|
object N2: TMenuItem [1]
|
|
Caption = '-'
|
|
end
|
|
object miShowButtons: TMenuItem [2]
|
|
Caption = 'Show &Buttons'
|
|
Checked = True
|
|
Hint = 'Displays buttons to the left of each node with children'
|
|
OnClick = miShowButtonsClick
|
|
end
|
|
object miShowRoot: TMenuItem [3]
|
|
Caption = 'Show &Root'
|
|
Checked = True
|
|
Hint =
|
|
'Displays the button to the left of the first node as a root of a' +
|
|
'll nodes'
|
|
OnClick = miShowRootClick
|
|
end
|
|
object miShowIndicator: TMenuItem [4]
|
|
Caption = 'Show &Indicator'
|
|
Checked = True
|
|
Hint = 'Shows indicators on the left side of tree list nodes'
|
|
OnClick = miShowIndicatorClick
|
|
end
|
|
object miShowTreeLines: TMenuItem [5]
|
|
Caption = 'Show Tree &Lines'
|
|
Checked = True
|
|
Hint =
|
|
'Shows the dotted lines between parent and child nodes within a t' +
|
|
'ree list control'
|
|
OnClick = miShowTreeLinesClick
|
|
end
|
|
object miCellAutoHeight: TMenuItem [6]
|
|
Caption = 'Cell Auto &Height'
|
|
Hint =
|
|
'If checked, a cell'#39's contents are displayed in multiple lines wh' +
|
|
'ere necessary'
|
|
OnClick = miCellAutoHeightClick
|
|
end
|
|
object miCellEndEllipsis: TMenuItem [7]
|
|
Caption = 'Cell End &Ellipsis'
|
|
Hint =
|
|
'Displays an ellipsis when the entire text cannot be displayed wi' +
|
|
'thin a cell'
|
|
OnClick = miCellEndEllipsisClick
|
|
end
|
|
object miColumnAutoWidth: TMenuItem [8]
|
|
Caption = 'Column Auto &Width'
|
|
Hint =
|
|
'If checked, column widths are changed in order to display all co' +
|
|
'lumns without using the horizontal scrollbar'
|
|
OnClick = miColumnAutoWidthClick
|
|
end
|
|
object N1: TMenuItem [9]
|
|
Caption = '-'
|
|
end
|
|
object miGridLookFeel: TMenuItem [10]
|
|
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 [11]
|
|
Caption = '-'
|
|
end
|
|
end
|
|
end
|
|
object StyleRepository: TcxStyleRepository
|
|
Left = 568
|
|
Top = 8
|
|
object cxStyle1: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle2: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle3: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clWhite
|
|
end
|
|
object cxStyle4: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 15252642
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = 11032875
|
|
end
|
|
object cxStyle5: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 16247513
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle6: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 15784893
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle7: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 16247513
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle8: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14811135
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clNavy
|
|
end
|
|
object cxStyle9: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle10: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle11: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 15451300
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle12: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14811135
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clNavy
|
|
end
|
|
object cxStyle13: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 16048336
|
|
TextColor = clBlack
|
|
end
|
|
object stlGroupNode: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 15253902
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clWhite
|
|
end
|
|
object stlFixedBand: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15322014
|
|
end
|
|
object TreeListStyleSheetDevExpress: TcxTreeListStyleSheet
|
|
Caption = 'DevExpress'
|
|
Styles.Background = cxStyle1
|
|
Styles.Content = cxStyle5
|
|
Styles.Inactive = cxStyle9
|
|
Styles.Selection = cxStyle13
|
|
Styles.BandBackground = cxStyle2
|
|
Styles.BandHeader = cxStyle3
|
|
Styles.ColumnHeader = cxStyle4
|
|
Styles.ContentEven = cxStyle7
|
|
Styles.ContentOdd = cxStyle6
|
|
Styles.Footer = cxStyle8
|
|
Styles.IncSearch = cxStyle10
|
|
Styles.Indicator = cxStyle11
|
|
Styles.Preview = cxStyle12
|
|
BuiltIn = True
|
|
end
|
|
end
|
|
end
|