cardlayoutdemomain.dfm

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

        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