david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
496 lines
12 KiB
Plaintext
496 lines
12 KiB
Plaintext
object fmMain: TfmMain
|
|
Left = 216
|
|
Top = 110
|
|
Width = 696
|
|
Height = 487
|
|
Caption = 'ExpressMasterView - Styles Demo'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pnBottom: TPanel
|
|
Left = 0
|
|
Top = 392
|
|
Width = 688
|
|
Height = 68
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 5
|
|
Top = 16
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Level'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 160
|
|
Top = 16
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Element'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 320
|
|
Top = 16
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'Style'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 4
|
|
Top = 46
|
|
Width = 35
|
|
Height = 13
|
|
Caption = 'Column'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 160
|
|
Top = 46
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Element'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 320
|
|
Top = 46
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'Style'
|
|
end
|
|
object cmbLevels: TComboBox
|
|
Left = 48
|
|
Top = 8
|
|
Width = 97
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'Level1'
|
|
'Level2')
|
|
TabOrder = 0
|
|
OnChange = cmbLevelsChange
|
|
end
|
|
object cmbLevelElements: TComboBox
|
|
Left = 208
|
|
Top = 8
|
|
Width = 97
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'Caption'
|
|
'Content'
|
|
'Footer'
|
|
'GroupByBox'
|
|
'Group'
|
|
'Header'
|
|
'Preview')
|
|
TabOrder = 1
|
|
OnChange = cmbLevelElementsChange
|
|
end
|
|
object cmbLevelStyle: TComboBox
|
|
Left = 352
|
|
Top = 8
|
|
Width = 97
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
OnChange = cmbLevelStyleChange
|
|
end
|
|
object cmbColumns: TComboBox
|
|
Left = 48
|
|
Top = 38
|
|
Width = 97
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
OnChange = cmbColumnsChange
|
|
end
|
|
object cmbColumnElements: TComboBox
|
|
Left = 208
|
|
Top = 38
|
|
Width = 97
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'Content'
|
|
'Footer'
|
|
'Header')
|
|
TabOrder = 4
|
|
OnChange = cmbColumnElementsChange
|
|
end
|
|
object cmbColumnStyle: TComboBox
|
|
Left = 352
|
|
Top = 38
|
|
Width = 97
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 5
|
|
OnChange = cmbColumnStyleChange
|
|
end
|
|
end
|
|
object MasterView: TdxMasterView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 503
|
|
Height = 392
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object Style1: TdxMasterViewStyle
|
|
AnotherColor = clInfoBk
|
|
Color = clMenu
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
AssignedValues = [svAnotherColor, svColor, svFont]
|
|
end
|
|
object Style2: TdxMasterViewStyle
|
|
Color = 11041630
|
|
AssignedValues = [svColor]
|
|
end
|
|
object Level1: TdxMasterViewLevel
|
|
Caption = 'Level1'
|
|
ContentStyle = Style1
|
|
DataSource = dsCustomer
|
|
HeaderStyle = Style2
|
|
ID = 'CustNo'
|
|
OptionsCustomizeBox = [loxCaption, loxColumns, loxFooter, loxGrid, loxGroupByBox, loxHeader, loxPreview, loxViewMode]
|
|
OptionsView = [lovFooter, lovGrid, lovGridWithPreview, lovGroupByBox, lovHeader, lovOccupyRestSpace]
|
|
PreviewFieldName = 'Company'
|
|
object CustNo: TdxMasterViewColumn
|
|
FieldName = 'CustNo'
|
|
RowIndex = 0
|
|
ColIndex = 0
|
|
SummaryType = stCount
|
|
end
|
|
object Company: TdxMasterViewColumn
|
|
FieldName = 'Company'
|
|
RowIndex = 0
|
|
ColIndex = 1
|
|
end
|
|
object Addr1: TdxMasterViewColumn
|
|
FieldName = 'Addr1'
|
|
RowIndex = 0
|
|
ColIndex = 2
|
|
end
|
|
object Addr2: TdxMasterViewColumn
|
|
FieldName = 'Addr2'
|
|
RowIndex = 0
|
|
ColIndex = 3
|
|
end
|
|
object City: TdxMasterViewColumn
|
|
FieldName = 'City'
|
|
RowIndex = 0
|
|
ColIndex = 4
|
|
end
|
|
object State: TdxMasterViewColumn
|
|
FieldName = 'State'
|
|
RowIndex = 0
|
|
ColIndex = 5
|
|
end
|
|
object Zip: TdxMasterViewColumn
|
|
FieldName = 'Zip'
|
|
RowIndex = 0
|
|
ColIndex = 6
|
|
end
|
|
object Country: TdxMasterViewColumn
|
|
FieldName = 'Country'
|
|
RowIndex = 0
|
|
ColIndex = 7
|
|
end
|
|
object Phone: TdxMasterViewColumn
|
|
FieldName = 'Phone'
|
|
RowIndex = 0
|
|
ColIndex = 8
|
|
end
|
|
object FAX: TdxMasterViewColumn
|
|
FieldName = 'FAX'
|
|
RowIndex = 0
|
|
ColIndex = 9
|
|
end
|
|
object TaxRate: TdxMasterViewColumn
|
|
FieldName = 'TaxRate'
|
|
RowIndex = 0
|
|
ColIndex = 10
|
|
end
|
|
object Contact: TdxMasterViewColumn
|
|
FieldName = 'Contact'
|
|
RowIndex = 0
|
|
ColIndex = 11
|
|
end
|
|
object LastInvoiceDate: TdxMasterViewColumn
|
|
Caption = 'LastInvoice Date'
|
|
FieldName = 'LastInvoiceDate'
|
|
RowIndex = 0
|
|
ColIndex = 12
|
|
end
|
|
object Level2: TdxMasterViewLevel
|
|
Caption = 'Level2'
|
|
DataSource = dsOrders
|
|
DetailKey = 'CustNo'
|
|
ID = 'OrderNo'
|
|
MasterKey = 'CustNo'
|
|
OptionsCustomizeBox = [loxCaption, loxColumns, loxFooter, loxGrid, loxGroupByBox, loxHeader, loxPreview, loxViewMode]
|
|
object OrderNo: TdxMasterViewColumn
|
|
FieldName = 'OrderNo'
|
|
RowIndex = 0
|
|
ColIndex = 0
|
|
end
|
|
object CustNoL2: TdxMasterViewColumn
|
|
FieldName = 'CustNo'
|
|
RowIndex = 0
|
|
ColIndex = 1
|
|
end
|
|
object SaleDate: TdxMasterViewColumn
|
|
FieldName = 'SaleDate'
|
|
RowIndex = 0
|
|
ColIndex = 2
|
|
end
|
|
object ShipDate: TdxMasterViewColumn
|
|
FieldName = 'ShipDate'
|
|
RowIndex = 0
|
|
ColIndex = 3
|
|
end
|
|
object EmpNo: TdxMasterViewColumn
|
|
FieldName = 'EmpNo'
|
|
RowIndex = 0
|
|
ColIndex = 4
|
|
end
|
|
object ShipToContact: TdxMasterViewColumn
|
|
FieldName = 'ShipToContact'
|
|
RowIndex = 0
|
|
ColIndex = 5
|
|
end
|
|
object ShipToAddr1: TdxMasterViewColumn
|
|
FieldName = 'ShipToAddr1'
|
|
RowIndex = 0
|
|
ColIndex = 6
|
|
end
|
|
object ShipToAddr2: TdxMasterViewColumn
|
|
FieldName = 'ShipToAddr2'
|
|
RowIndex = 0
|
|
ColIndex = 7
|
|
end
|
|
object ShipToCity: TdxMasterViewColumn
|
|
FieldName = 'ShipToCity'
|
|
RowIndex = 0
|
|
ColIndex = 8
|
|
end
|
|
object ShipToState: TdxMasterViewColumn
|
|
FieldName = 'ShipToState'
|
|
RowIndex = 0
|
|
ColIndex = 9
|
|
end
|
|
object ShipToZip: TdxMasterViewColumn
|
|
FieldName = 'ShipToZip'
|
|
RowIndex = 0
|
|
ColIndex = 10
|
|
end
|
|
object ShipToCountry: TdxMasterViewColumn
|
|
FieldName = 'ShipToCountry'
|
|
RowIndex = 0
|
|
ColIndex = 11
|
|
end
|
|
object ShipToPhone: TdxMasterViewColumn
|
|
FieldName = 'ShipToPhone'
|
|
RowIndex = 0
|
|
ColIndex = 12
|
|
end
|
|
object ShipVIA: TdxMasterViewColumn
|
|
FieldName = 'ShipVIA'
|
|
RowIndex = 0
|
|
ColIndex = 13
|
|
end
|
|
object PO: TdxMasterViewColumn
|
|
FieldName = 'PO'
|
|
RowIndex = 0
|
|
ColIndex = 14
|
|
end
|
|
object Terms: TdxMasterViewColumn
|
|
FieldName = 'Terms'
|
|
RowIndex = 0
|
|
ColIndex = 15
|
|
end
|
|
object PaymentMethod: TdxMasterViewColumn
|
|
FieldName = 'PaymentMethod'
|
|
RowIndex = 0
|
|
ColIndex = 16
|
|
end
|
|
object ItemsTotal: TdxMasterViewColumn
|
|
FieldName = 'ItemsTotal'
|
|
RowIndex = 0
|
|
ColIndex = 17
|
|
end
|
|
object TaxRateL2: TdxMasterViewColumn
|
|
FieldName = 'TaxRate'
|
|
RowIndex = 0
|
|
ColIndex = 18
|
|
end
|
|
object Freight: TdxMasterViewColumn
|
|
FieldName = 'Freight'
|
|
RowIndex = 0
|
|
ColIndex = 19
|
|
end
|
|
object AmountPaid: TdxMasterViewColumn
|
|
FieldName = 'AmountPaid'
|
|
RowIndex = 0
|
|
ColIndex = 20
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pnLeft: TPanel
|
|
Left = 503
|
|
Top = 0
|
|
Width = 185
|
|
Height = 392
|
|
Align = alRight
|
|
TabOrder = 2
|
|
object GroupBox1: TGroupBox
|
|
Left = 6
|
|
Top = 6
|
|
Width = 174
|
|
Height = 323
|
|
Caption = 'Style'
|
|
TabOrder = 0
|
|
object btnNew: TButton
|
|
Left = 8
|
|
Top = 280
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'New'
|
|
TabOrder = 0
|
|
OnClick = btnNewClick
|
|
end
|
|
object btnDelete: TButton
|
|
Left = 96
|
|
Top = 280
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Delete'
|
|
TabOrder = 1
|
|
OnClick = btnDeleteClick
|
|
end
|
|
object btnColor: TButton
|
|
Left = 8
|
|
Top = 184
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Color'
|
|
TabOrder = 2
|
|
OnClick = btnColorClick
|
|
end
|
|
object plColor: TPanel
|
|
Left = 8
|
|
Top = 152
|
|
Width = 75
|
|
Height = 25
|
|
BevelInner = bvLowered
|
|
BevelOuter = bvNone
|
|
Caption = 'plColor'
|
|
Ctl3D = True
|
|
ParentCtl3D = False
|
|
TabOrder = 3
|
|
end
|
|
object plAnotherColor: TPanel
|
|
Left = 91
|
|
Top = 152
|
|
Width = 75
|
|
Height = 25
|
|
BevelOuter = bvLowered
|
|
Caption = 'plAnotherColor'
|
|
TabOrder = 4
|
|
end
|
|
object btnAnotherColor: TButton
|
|
Left = 91
|
|
Top = 184
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'AnotherColor'
|
|
TabOrder = 5
|
|
OnClick = btnAnotherColorClick
|
|
end
|
|
object btnFont: TButton
|
|
Left = 8
|
|
Top = 216
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Font'
|
|
TabOrder = 6
|
|
OnClick = btnFontClick
|
|
end
|
|
object cmbStyles: TListBox
|
|
Left = 8
|
|
Top = 16
|
|
Width = 153
|
|
Height = 129
|
|
ItemHeight = 13
|
|
TabOrder = 7
|
|
OnClick = cmbStylesChange
|
|
end
|
|
end
|
|
object btnCustomize: TButton
|
|
Left = 16
|
|
Top = 360
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Customize'
|
|
TabOrder = 1
|
|
OnClick = btnCustomizeClick
|
|
end
|
|
end
|
|
object ColorDialog: TColorDialog
|
|
Ctl3D = True
|
|
Options = [cdFullOpen]
|
|
Left = 16
|
|
Top = 168
|
|
end
|
|
object FontDialog: TFontDialog
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
MinFontSize = 0
|
|
MaxFontSize = 0
|
|
Left = 48
|
|
Top = 168
|
|
end
|
|
object tbCustomer: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
TableName = 'customer.db'
|
|
Left = 16
|
|
Top = 104
|
|
end
|
|
object dsCustomer: TDataSource
|
|
DataSet = tbCustomer
|
|
Left = 48
|
|
Top = 104
|
|
end
|
|
object tbOrders: TTable
|
|
Active = True
|
|
DatabaseName = 'DBDEMOS'
|
|
IndexFieldNames = 'CustNo'
|
|
TableName = 'orders.db'
|
|
Left = 16
|
|
Top = 136
|
|
end
|
|
object dsOrders: TDataSource
|
|
DataSet = tbOrders
|
|
Left = 48
|
|
Top = 136
|
|
end
|
|
end
|