david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
497 lines
16 KiB
Plaintext
497 lines
16 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 300
|
|
Top = 120
|
|
Width = 760
|
|
Height = 735
|
|
Caption = 'ExpressQuantumGrid CardLayout Demo'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Menu = mmMain
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 752
|
|
Height = 29
|
|
Align = alTop
|
|
AutoSize = False
|
|
Caption =
|
|
' This demo shows different layout options available for the Car' +
|
|
'dView. Click '#39'About this demo'#39' for more information.'
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Layout = tlCenter
|
|
end
|
|
object Grid: TcxGrid
|
|
Left = 0
|
|
Top = 29
|
|
Width = 752
|
|
Height = 652
|
|
Align = alClient
|
|
TabOrder = 0
|
|
LevelTabs.Style = 9
|
|
LookAndFeel.NativeStyle = True
|
|
RootLevelOptions.DetailTabsPosition = dtpTop
|
|
OnActiveTabChanged = GridActiveTabChanged
|
|
object cvHorizontal: TcxGridDBCardView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = dsCars
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.LayeredRows = True
|
|
OptionsCustomize.RowMoving = True
|
|
OptionsView.CardAutoWidth = True
|
|
OptionsView.CardWidth = 300
|
|
OptionsView.CategorySeparatorWidth = 1
|
|
OptionsView.CellAutoHeight = True
|
|
OptionsView.SeparatorColor = clSilver
|
|
Styles.StyleSheet = CardsStyleSheet
|
|
object cvHorizontalTrademark: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Trademark'
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = True
|
|
Styles.Content = styleCardHeader
|
|
end
|
|
object cvHorizontalModel: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Model'
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
Styles.Content = styleCardHeader
|
|
end
|
|
object cvHorizontalPicture: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Picture'
|
|
RepositoryItem = EditRepositoryImage
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalRow3: TcxGridDBCardViewRow
|
|
Caption = 'Engine'
|
|
Expanded = True
|
|
Kind = rkCategory
|
|
Options.ShowData = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalHP: TcxGridDBCardViewRow
|
|
Caption = 'Max output (hp)'
|
|
DataBinding.FieldName = 'HP'
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalLiter: TcxGridDBCardViewRow
|
|
Caption = 'Displacement (liters)'
|
|
DataBinding.FieldName = 'Liter'
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalCyl: TcxGridDBCardViewRow
|
|
Caption = 'Cylinders'
|
|
DataBinding.FieldName = 'Cyl'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvHorizontalRow4: TcxGridDBCardViewRow
|
|
Caption = 'Transmission'
|
|
Kind = rkCategory
|
|
Options.ShowData = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalTransmissSpeedCount: TcxGridDBCardViewRow
|
|
Caption = 'Speed count'
|
|
DataBinding.FieldName = 'TransmissSpeedCount'
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalTransmissAutomatic: TcxGridDBCardViewRow
|
|
Caption = 'Automatic'
|
|
DataBinding.FieldName = 'TransmissAutomatic'
|
|
RepositoryItem = EditRepositoryAutomatic
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvHorizontalRow2: TcxGridDBCardViewRow
|
|
Caption = 'Fuel economy'
|
|
DataBinding.FieldName = 'FuelEconomy'
|
|
RepositoryItem = EditRepositoryFuelEconomy
|
|
Kind = rkCategory
|
|
Options.Editing = False
|
|
Position.BeginsLayer = True
|
|
Styles.Content = styleCategoryRow
|
|
end
|
|
object cvHorizontalMPG_City: TcxGridDBCardViewRow
|
|
Caption = 'City (mpg)'
|
|
DataBinding.FieldName = 'MPG_City'
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalMPG_Highway: TcxGridDBCardViewRow
|
|
Caption = 'Highway (mpg)'
|
|
DataBinding.FieldName = 'MPG_Highway'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvHorizontalCategory: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Category'
|
|
Visible = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalRow1: TcxGridDBCardViewRow
|
|
Caption = 'Additional information'
|
|
Kind = rkCategory
|
|
Options.ShowData = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalDescription: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Description'
|
|
RepositoryItem = EditRepositoryMemo
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalHyperlink: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Hyperlink'
|
|
RepositoryItem = EditRepositoryHyperLink
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvHorizontalPrice: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Price'
|
|
RepositoryItem = EditRepositoryPrice
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
Styles.Content = stylePrice
|
|
end
|
|
end
|
|
object cvVertical: TcxGridDBCardView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = dsCars
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
LayoutDirection = ldVertical
|
|
OptionsCustomize.LayeredRows = True
|
|
OptionsCustomize.RowMoving = True
|
|
OptionsView.CardAutoWidth = True
|
|
OptionsView.CardWidth = 10000
|
|
OptionsView.CellAutoHeight = True
|
|
OptionsView.LayerSeparatorWidth = 1
|
|
OptionsView.SeparatorWidth = 0
|
|
RowLayout = rlVertical
|
|
Styles.StyleSheet = CardsStyleSheet
|
|
object cvVerticalTrademark: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Trademark'
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = True
|
|
Styles.Content = styleCardHeader
|
|
end
|
|
object cvVerticalModel: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Model'
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
Styles.Content = styleCardHeader
|
|
end
|
|
object cvVerticalPicture: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Picture'
|
|
RepositoryItem = EditRepositoryImage
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
Position.Width = 250
|
|
end
|
|
object cvVerticalHyperlink: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Hyperlink'
|
|
RepositoryItem = EditRepositoryHyperLink
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalPrice: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Price'
|
|
RepositoryItem = EditRepositoryPrice
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
Styles.Content = stylePrice
|
|
end
|
|
object cvVerticalRow1: TcxGridDBCardViewRow
|
|
Caption = 'Engine'
|
|
Expanded = True
|
|
Kind = rkCategory
|
|
Options.ShowData = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvVerticalHP: TcxGridDBCardViewRow
|
|
Caption = 'Max output (hp)'
|
|
DataBinding.FieldName = 'HP'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalLiter: TcxGridDBCardViewRow
|
|
Caption = 'Displacement (liters)'
|
|
DataBinding.FieldName = 'Liter'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalCyl: TcxGridDBCardViewRow
|
|
Caption = 'Cylinders'
|
|
DataBinding.FieldName = 'Cyl'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalRow2: TcxGridDBCardViewRow
|
|
Caption = 'Transmission'
|
|
Expanded = True
|
|
Kind = rkCategory
|
|
Options.ShowData = False
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalTransmissSpeedCount: TcxGridDBCardViewRow
|
|
Caption = 'Speed count'
|
|
DataBinding.FieldName = 'TransmissSpeedCount'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalTransmissAutomatic: TcxGridDBCardViewRow
|
|
Caption = 'Automatic'
|
|
DataBinding.FieldName = 'TransmissAutomatic'
|
|
RepositoryItem = EditRepositoryAutomatic
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalCategory: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Category'
|
|
Visible = False
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalFuelEconomy: TcxGridDBCardViewRow
|
|
Caption = 'Fuel economy'
|
|
DataBinding.FieldName = 'FuelEconomy'
|
|
RepositoryItem = EditRepositoryFuelEconomy
|
|
Expanded = True
|
|
Kind = rkCategory
|
|
Options.Editing = False
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalMPG_City: TcxGridDBCardViewRow
|
|
Caption = 'City (mpg)'
|
|
DataBinding.FieldName = 'MPG_City'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalMPG_Highway: TcxGridDBCardViewRow
|
|
Caption = 'Highway (mpg)'
|
|
DataBinding.FieldName = 'MPG_Highway'
|
|
Position.BeginsLayer = False
|
|
end
|
|
object cvVerticalRow3: TcxGridDBCardViewRow
|
|
Caption = 'Additional information'
|
|
Expanded = True
|
|
Kind = rkCategory
|
|
Options.ShowData = False
|
|
Position.BeginsLayer = True
|
|
end
|
|
object cvVerticalDescription: TcxGridDBCardViewRow
|
|
DataBinding.FieldName = 'Description'
|
|
RepositoryItem = EditRepositoryMemo
|
|
Options.ShowCaption = False
|
|
Position.BeginsLayer = False
|
|
end
|
|
end
|
|
object GridLevel1: TcxGridLevel
|
|
Caption = 'Horizontal Row Layout + Horizontal Card Layout'
|
|
GridView = cvHorizontal
|
|
end
|
|
object GridLevel2: TcxGridLevel
|
|
Caption = 'Vertical Row Layout + Vertical Card Layout'
|
|
GridView = cvVertical
|
|
end
|
|
end
|
|
object dbMain: TDatabase
|
|
Connected = True
|
|
DatabaseName = 'DemosDB'
|
|
DriverName = 'STANDARD'
|
|
Params.Strings = (
|
|
'PATH=..\..\Data'
|
|
'DEFAULT DRIVER=PARADOX'
|
|
'ENABLE BCD=FALSE')
|
|
SessionName = 'Default'
|
|
Left = 232
|
|
Top = 120
|
|
end
|
|
object dsCars: TDataSource
|
|
DataSet = tblCars
|
|
Left = 232
|
|
Top = 156
|
|
end
|
|
object tblCars: TTable
|
|
Active = True
|
|
OnCalcFields = tblCarsCalcFields
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'Cars.DB'
|
|
Left = 260
|
|
Top = 156
|
|
object tblCarsID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblCarsTrademark: TStringField
|
|
FieldName = 'Trademark'
|
|
Size = 50
|
|
end
|
|
object tblCarsModel: TStringField
|
|
FieldName = 'Model'
|
|
Size = 50
|
|
end
|
|
object tblCarsHP: TSmallintField
|
|
FieldName = 'HP'
|
|
end
|
|
object tblCarsLiter: TFloatField
|
|
FieldName = 'Liter'
|
|
end
|
|
object tblCarsCyl: TSmallintField
|
|
FieldName = 'Cyl'
|
|
end
|
|
object tblCarsTransmissSpeedCount: TSmallintField
|
|
FieldName = 'TransmissSpeedCount'
|
|
end
|
|
object tblCarsTransmissAutomatic: TStringField
|
|
FieldName = 'TransmissAutomatic'
|
|
Size = 3
|
|
end
|
|
object tblCarsMPG_City: TSmallintField
|
|
FieldName = 'MPG_City'
|
|
end
|
|
object tblCarsMPG_Highway: TSmallintField
|
|
FieldName = 'MPG_Highway'
|
|
end
|
|
object tblCarsCategory: TStringField
|
|
FieldName = 'Category'
|
|
Size = 7
|
|
end
|
|
object tblCarsDescription: TMemoField
|
|
FieldName = 'Description'
|
|
BlobType = ftMemo
|
|
Size = 10
|
|
end
|
|
object tblCarsHyperlink: TStringField
|
|
FieldName = 'Hyperlink'
|
|
Size = 50
|
|
end
|
|
object tblCarsPicture: TBlobField
|
|
FieldName = 'Picture'
|
|
BlobType = ftParadoxOle
|
|
Size = 10
|
|
end
|
|
object tblCarsPrice: TFloatField
|
|
FieldName = 'Price'
|
|
end
|
|
object tblCarsFuelEconomy: TStringField
|
|
FieldKind = fkCalculated
|
|
FieldName = 'FuelEconomy'
|
|
Calculated = True
|
|
end
|
|
end
|
|
object mmMain: TMainMenu
|
|
Left = 300
|
|
Top = 116
|
|
object miFile: TMenuItem
|
|
Caption = '&File'
|
|
object miExit: TMenuItem
|
|
Caption = 'E&xit'
|
|
Hint = 'Press to quit the demo-program'
|
|
ShortCut = 32856
|
|
OnClick = miExitClick
|
|
end
|
|
end
|
|
object miView: TMenuItem
|
|
Caption = '&View'
|
|
object miCardAutoWidth: TMenuItem
|
|
Caption = 'Card auto width'
|
|
OnClick = miCardAutoWidthClick
|
|
end
|
|
object miCellSelection: TMenuItem
|
|
Caption = 'Cell selection'
|
|
OnClick = miCellSelectionClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miCustomize: TMenuItem
|
|
Caption = 'Customize...'
|
|
OnClick = miCustomizeClick
|
|
end
|
|
end
|
|
object miAbout: TMenuItem
|
|
Caption = '&About this demo'
|
|
Hint = 'Displays the brief description of the current demo features'
|
|
OnClick = miAboutClick
|
|
end
|
|
end
|
|
object StyleRepository: TcxStyleRepository
|
|
Left = 300
|
|
Top = 156
|
|
object styleSelection: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 5228795
|
|
TextColor = clBlack
|
|
end
|
|
object styleCardHeader: TcxStyle
|
|
AssignedValues = [svFont]
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
end
|
|
object styleCardBorder: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 13603685
|
|
end
|
|
object styleBackground: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15918293
|
|
end
|
|
object styleCategoryRow: TcxStyle
|
|
AssignedValues = [svColor, svFont]
|
|
Color = 16766389
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
end
|
|
object stylePrice: TcxStyle
|
|
AssignedValues = [svTextColor]
|
|
TextColor = clRed
|
|
end
|
|
object CardsStyleSheet: TcxGridCardViewStyleSheet
|
|
Styles.Background = styleBackground
|
|
Styles.Selection = styleSelection
|
|
Styles.CardBorder = styleCardBorder
|
|
Styles.CategoryRow = styleCategoryRow
|
|
Styles.CategorySeparator = styleCardBorder
|
|
Styles.LayerSeparator = styleCardBorder
|
|
BuiltIn = True
|
|
end
|
|
end
|
|
object EditRepository: TcxEditRepository
|
|
Left = 300
|
|
Top = 188
|
|
object EditRepositoryImage: TcxEditRepositoryImageItem
|
|
Properties.GraphicClassName = 'TJPEGImage'
|
|
Properties.Stretch = True
|
|
end
|
|
object EditRepositoryMemo: TcxEditRepositoryMemoItem
|
|
Properties.VisibleLineCount = 15
|
|
end
|
|
object EditRepositoryHyperLink: TcxEditRepositoryHyperLinkItem
|
|
end
|
|
object EditRepositoryPrice: TcxEditRepositoryCurrencyItem
|
|
end
|
|
object EditRepositoryFuelEconomy: TcxEditRepositoryTextItem
|
|
Properties.Alignment.Horz = taRightJustify
|
|
end
|
|
object EditRepositoryAutomatic: TcxEditRepositoryCheckBoxItem
|
|
Properties.ValueChecked = 'Yes'
|
|
Properties.ValueUnchecked = 'No'
|
|
end
|
|
end
|
|
end
|