Componentes.Terceros.DevExp.../official/x.38/ExpressPivotGrid 2/Demos/Delphi/EditorsInPlaceDemo/EditorsInPlaceDemoMain.dfm
2008-08-27 11:56:15 +00:00

101 lines
2.8 KiB
Plaintext

inherited frmEditorsInPlace: TfrmEditorsInPlace
Left = 285
Top = 142
Width = 926
Height = 604
Caption = 'PivotGrid - EditorsInPlace Demo'
PixelsPerInch = 96
TextHeight = 13
inherited lbDescrip: TLabel
Width = 918
Height = 16
Caption = 'This demo uses in-place editors to display values as completion percentages in progress bars.'
end
object DBPivotGrid: TcxDBPivotGrid [1]
Left = 0
Top = 32
Width = 918
Height = 519
Align = alClient
DataSource = dmOrders.dsOrders
GroupHeaderImages = dmOrders.PaymentTypeImages
Groups = <>
TabOrder = 0
object pgfPurchaseDate: TcxDBPivotGridField
AreaIndex = 1
IsCaptionAssigned = True
Caption = 'Purchase Date'
DataBinding.FieldName = 'PurchaseDate'
GroupInterval = giDateMonth
Visible = True
end
object pgfPaymentType: TcxDBPivotGridField
Area = faColumn
AreaIndex = 0
IsCaptionAssigned = True
Caption = 'Payment Type'
DataBinding.FieldName = 'PaymentType'
Visible = True
end
object pgfQuantity: TcxDBPivotGridField
Area = faData
AreaIndex = 0
DataBinding.FieldName = 'Quantity'
DisplayFormat = '0'
Visible = True
Width = 49
end
object pgfCarName: TcxDBPivotGridField
Area = faRow
AreaIndex = 1
DataBinding.FieldName = 'Car Name'
Visible = True
Width = 77
end
object pgfUnitPrice: TcxDBPivotGridField
AreaIndex = 0
DataBinding.FieldName = 'Unit Price'
Visible = True
end
object pgfCompanyName: TcxDBPivotGridField
Area = faRow
AreaIndex = 0
DataBinding.FieldName = 'Company Name'
Visible = True
Width = 131
end
object pgfPaymentAmount: TcxDBPivotGridField
Area = faData
AreaIndex = 1
IsCaptionAssigned = True
Caption = 'Payment Amount'
DataBinding.FieldName = 'PaymentAmount'
PropertiesClassName = 'TcxProgressBarProperties'
SummaryVariation = svPercentOfColumn
Visible = True
Width = 90
end
end
inherited mmMain: TMainMenu
inherited miOptions: TMenuItem
inherited miElementsVisibility: TMenuItem
inherited miShowColumnFields: TMenuItem
Caption = 'Show Column Fields'
end
inherited miShowDataFields: TMenuItem
Caption = 'Show Data Fields'
end
inherited miShowFilterFields: TMenuItem
Caption = 'Show Filter Fields'
end
inherited miShowFilterSeparator: TMenuItem
Caption = 'Show Filter Separator'
end
inherited miShowRowFields: TMenuItem
Caption = 'Show Row Fields'
end
end
end
end
end