cardlayoutdemomain.dfm

来自「胜天进销存源码,国产优秀的进销存」· DFM 代码 · 共 497 行 · 第 1/2 页

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'