david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
462 lines
14 KiB
Plaintext
462 lines
14 KiB
Plaintext
inherited StylesMultiDemoMainForm: TStylesMultiDemoMainForm
|
|
Left = 113
|
|
Top = 108
|
|
Width = 807
|
|
Height = 566
|
|
Caption = 'ExpressQuantumTreeList4 StylesMultiDemo'
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited lscrip: TLabel
|
|
Width = 799
|
|
Height = 25
|
|
AutoSize = False
|
|
Caption =
|
|
'Experiment using StyleSheets. See Help/About for other things to' +
|
|
' try.'
|
|
end
|
|
object Splitter: TSplitter [1]
|
|
Left = 217
|
|
Top = 25
|
|
Width = 2
|
|
Height = 468
|
|
MinSize = 4
|
|
end
|
|
inherited sbMain: TStatusBar
|
|
Top = 493
|
|
Width = 799
|
|
end
|
|
inherited memAboutText: TMemo
|
|
Lines.Strings = (
|
|
'In this demo you can:'
|
|
''
|
|
|
|
'- switch between different style sheets (via the StyleSheets Tre' +
|
|
'eView to the left of the mainform)'
|
|
|
|
'- use a different pre-defined style sheets (just select any item' +
|
|
' in the Predefined Style Sheets branch of the Style Sheets TreeV' +
|
|
'iew).'
|
|
''
|
|
|
|
'- select a user defined style sheet via the combobox (just selec' +
|
|
't any item in the User Defined Style Sheets branch of the Style ' +
|
|
'Sheets TreeView).'
|
|
'- modify one or more fonts and/or colors using the Edit button'
|
|
|
|
'- load/save user defined style sheets from/to ini-files using op' +
|
|
'enfile/savefile dialogs'
|
|
''
|
|
|
|
'- 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 pnlLeft: TPanel [4]
|
|
Left = 0
|
|
Top = 25
|
|
Width = 217
|
|
Height = 468
|
|
Align = alLeft
|
|
Anchors = [akLeft]
|
|
BevelInner = bvLowered
|
|
BevelOuter = bvNone
|
|
Color = 15451300
|
|
Constraints.MinWidth = 215
|
|
TabOrder = 0
|
|
object gbUserDefined: TGroupBox
|
|
Left = 1
|
|
Top = 352
|
|
Width = 215
|
|
Height = 115
|
|
Align = alBottom
|
|
Caption = 'User Defined Style Sheets'
|
|
TabOrder = 2
|
|
TabStop = True
|
|
object btnLoad: TcxButton
|
|
Left = 11
|
|
Top = 49
|
|
Width = 193
|
|
Height = 25
|
|
Action = actLoadFromFile
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object btnSave: TcxButton
|
|
Left = 11
|
|
Top = 76
|
|
Width = 193
|
|
Height = 25
|
|
Action = actSaveToFile
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Enabled = False
|
|
TabOrder = 2
|
|
end
|
|
object btnEdit: TcxButton
|
|
Left = 11
|
|
Top = 22
|
|
Width = 193
|
|
Height = 25
|
|
Action = actEditStyleSheet
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Enabled = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object gbPredefined: TGroupBox
|
|
Left = 1
|
|
Top = 36
|
|
Width = 215
|
|
Height = 316
|
|
Align = alClient
|
|
Caption = 'Predefined Style Sheets'
|
|
TabOrder = 1
|
|
TabStop = True
|
|
object tlStyleSheets: TcxTreeList
|
|
Left = 2
|
|
Top = 15
|
|
Width = 211
|
|
Height = 299
|
|
Styles.Background = StylesMultiDemoDataDM.styGroupNode
|
|
Styles.OnGetContentStyle = tlStyleSheetsStylesGetContentStyle
|
|
Styles.OnGetNodeIndentStyle = tlStyleSheetsStylesGetNodeIndentStyle
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.Text = 'Band + 1'
|
|
Width = 209
|
|
end>
|
|
BufferedPaint = False
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsCustomizing.BandCustomizing = False
|
|
OptionsCustomizing.BandHorzSizing = False
|
|
OptionsCustomizing.BandMoving = False
|
|
OptionsCustomizing.BandVertSizing = False
|
|
OptionsCustomizing.ColumnCustomizing = False
|
|
OptionsCustomizing.ColumnHorzSizing = False
|
|
OptionsCustomizing.ColumnMoving = False
|
|
OptionsCustomizing.ColumnVertSizing = False
|
|
OptionsData.Editing = False
|
|
OptionsData.Deleting = False
|
|
OptionsSelection.CellSelect = False
|
|
OptionsSelection.HideSelection = True
|
|
OptionsSelection.InvertSelect = False
|
|
OptionsView.CategorizedColumn = clnGroupName
|
|
OptionsView.ColumnAutoWidth = True
|
|
OptionsView.Headers = False
|
|
OptionsView.PaintStyle = tlpsCategorized
|
|
TabOrder = 0
|
|
OnIsGroupNode = tlStyleSheetsIsGroupNode
|
|
OnSelectionChanged = tlStyleSheetsSelectionChanged
|
|
Data = {
|
|
02000400D80000000F00000044617461436F6E74726F6C6C6572310200000012
|
|
000000546378537472696E6756616C7565547970651200000054637853747269
|
|
6E6756616C75655479706503000000000100040000004E6F6E65000100170000
|
|
00507265646566696E6564207374796C65207368656574730001001900000055
|
|
73657220646566696E6564207374796C65207368656574730300000000000000
|
|
100000000000000000000000FFFFFFFF01000000100000000000000000000000
|
|
FFFFFFFF02000000100000000000000000000000FFFFFFFF}
|
|
object clnRadio: TcxTreeListColumn
|
|
PropertiesClassName = 'TcxRadioGroupProperties'
|
|
Properties.DefaultValue = False
|
|
Properties.Items = <
|
|
item
|
|
Value = True
|
|
end>
|
|
Caption.AlignHorz = taRightJustify
|
|
DataBinding.ValueType = 'String'
|
|
Options.Customizing = False
|
|
Options.Editing = False
|
|
Options.IncSearch = False
|
|
Options.Sorting = False
|
|
Width = 54
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object clnGroupName: TcxTreeListColumn
|
|
DataBinding.ValueType = 'String'
|
|
Width = 155
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
end
|
|
object pnlCurrentStyleSheet: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 215
|
|
Height = 35
|
|
Align = alTop
|
|
BevelOuter = bvLowered
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object cxDBTreeList: TcxDBTreeList [5]
|
|
Left = 219
|
|
Top = 25
|
|
Width = 580
|
|
Height = 468
|
|
Align = alClient
|
|
Bands = <
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Common department info'
|
|
Width = 201
|
|
end
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Detailed department info'
|
|
Width = 220
|
|
end
|
|
item
|
|
Caption.AlignHorz = taCenter
|
|
Caption.Text = 'Manager info'
|
|
Width = 339
|
|
end>
|
|
BufferedPaint = True
|
|
DataController.DataSource = StylesMultiDemoDataDM.dsDepartments
|
|
DataController.ParentField = 'PARENTID'
|
|
DataController.KeyField = 'ID'
|
|
DragMode = dmAutomatic
|
|
OptionsBehavior.AutomateLeftMostIndent = False
|
|
OptionsData.Inserting = True
|
|
OptionsView.CellAutoHeight = True
|
|
OptionsView.Bands = True
|
|
OptionsView.Footer = True
|
|
OptionsView.GridLineColor = clGray
|
|
OptionsView.GridLines = tlglBoth
|
|
OptionsView.Indicator = True
|
|
OptionsView.UseNodeColorForIndent = False
|
|
Preview.Column = cxDBTreeListManagerAdress
|
|
Preview.Visible = True
|
|
RootValue = 255
|
|
TabOrder = 3
|
|
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
|
|
PropertiesClassName = 'TcxMemoProperties'
|
|
Caption.Text = 'NAME'
|
|
DataBinding.FieldName = 'NAME'
|
|
Options.Footer = True
|
|
Width = 259
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
SummaryFooter.Kind = skCount
|
|
end
|
|
object cxDBTreeListPHONE: TcxDBTreeListColumn
|
|
Caption.Text = 'PHONE'
|
|
DataBinding.FieldName = 'PHONE'
|
|
Width = 167
|
|
Position.ColIndex = 1
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
object cxDBTreeListFAX: TcxDBTreeListColumn
|
|
Caption.Text = 'FAX'
|
|
DataBinding.FieldName = 'FAX'
|
|
Width = 90
|
|
Position.ColIndex = 0
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
end
|
|
object cxDBTreeListBUDGET: TcxDBTreeListColumn
|
|
PropertiesClassName = 'TcxCalcEditProperties'
|
|
Caption.Text = 'BUDGET'
|
|
DataBinding.FieldName = 'BUDGET'
|
|
Options.Footer = True
|
|
Width = 86
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 1
|
|
SummaryFooter.Kind = skSum
|
|
end
|
|
object cxDBTreeListVACANCY: TcxDBTreeListColumn
|
|
Caption.Text = 'VACANCY'
|
|
DataBinding.FieldName = 'VACANCY'
|
|
Width = 77
|
|
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 = StylesMultiDemoDataDM.dsPersons
|
|
Caption.Text = 'Manager'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 84
|
|
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 = StylesMultiDemoDataDM.dsPersons
|
|
Properties.ReadOnly = False
|
|
Caption.Text = 'Manager Phone'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 103
|
|
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 = StylesMultiDemoDataDM.dsPersons
|
|
Properties.ReadOnly = False
|
|
Caption.Text = 'Manager Email'
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 152
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 2
|
|
end
|
|
object cxDBTreeListManagerAdress: TcxDBTreeListColumn
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'Address'
|
|
end>
|
|
Properties.ListSource = StylesMultiDemoDataDM.dsPersons
|
|
DataBinding.FieldName = 'MANAGERID'
|
|
Width = 67
|
|
Position.ColIndex = 2
|
|
Position.RowIndex = 0
|
|
Position.BandIndex = 0
|
|
end
|
|
end
|
|
inherited mmMain: TMainMenu
|
|
inherited miOptions: TMenuItem
|
|
object miGridLookFeel: TMenuItem [0]
|
|
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 [1]
|
|
Caption = '-'
|
|
end
|
|
end
|
|
end
|
|
inherited alMain: TActionList
|
|
Left = 432
|
|
object actSaveToFile: TAction
|
|
Category = 'Options'
|
|
Caption = '&SaveToFile...'
|
|
OnExecute = actSaveToFileExecute
|
|
end
|
|
object actLoadFromFile: TAction
|
|
Category = 'Options'
|
|
Caption = '&LoadFromFile...'
|
|
OnExecute = actLoadFromFileExecute
|
|
end
|
|
object actEditStyleSheet: TAction
|
|
Category = 'Options'
|
|
Caption = '&Edit Style Sheet'
|
|
OnExecute = actEditStyleSheetExecute
|
|
end
|
|
end
|
|
object OpenDialog: TOpenDialog
|
|
DefaultExt = '*.ini'
|
|
Filter = '*.ini|*.ini'
|
|
FilterIndex = 0
|
|
Options = [ofHideReadOnly, ofExtensionDifferent, ofEnableSizing]
|
|
Left = 536
|
|
Top = 8
|
|
end
|
|
object SaveDialog: TSaveDialog
|
|
DefaultExt = '*.ini'
|
|
Filter = '*.ini|*.ini'
|
|
Left = 568
|
|
Top = 8
|
|
end
|
|
end
|