rowsmultieditorsdemomain.dfm

delphi的的三方控件

inherited RowsMultiEditorsDemoMainForm: TRowsMultiEditorsDemoMainForm
  Left = 85
  Top = 16
  Width = 841
  Height = 674
  Caption = 'ExpressVerticalGrid RowsMultiEditorsDemo'
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 833
    Height = 16
    Caption = 
      'This demo shows how several editors can be used in a single row.' +
      ' See Help/About for more information.'
  end
  inherited sbMain: TStatusBar
    Top = 602
    Width = 833
  end
  inherited memAboutText: TMemo
    Lines.Strings = (
      
        'This demo shows the ability to place multiple fields within a co' +
        'lumn, thus making best use of screen estate.'
      ''
      'In this demo you can:'
      ''
      
        '- change the basic VerticalGrid''s display. (see the Options/Layo' +
        'ut menu)'
      ''
      
        '- edit the ''Picture'' column and see the OnGetEditingProperties e' +
        'vent handler in action'
      ''
      
        '- check how little source code required to provide the above fun' +
        'ctionality.')
  end
  object cxDBVerticalGrid: TcxDBVerticalGrid [3]
    Left = 0
    Top = 16
    Width = 833
    Height = 586
    Styles.StyleSheet = RowsMultiEditorsDemoDataDM.UserStyleSheet
    Align = alClient
    Images = ImageList
    LayoutStyle = lsMultiRecordView
    OptionsView.GridLineColor = 14869218
    OptionsView.RowHeaderWidth = 267
    OptionsView.ValueWidth = 164
    OptionsBehavior.AlwaysShowEditor = False
    OptionsBehavior.CellHints = False
    OptionsBehavior.BandSizing = False
    OptionsBehavior.IncSearch = True
    OptionsData.Deleting = False
    OptionsData.Inserting = False
    TabOrder = 2
    DataController.DataSource = RowsMultiEditorsDemoDataDM.dsOrders
    object ctgOrder: TcxCategoryRow
      Properties.Caption = 'Order'
      object merPurchaseDateTime: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            DataBinding.FieldName = 'PurchaseDate'
          end
          item
            EditPropertiesClassName = 'TcxTimeEditProperties'
            EditProperties.AssignedValues.MinValue = True
            DataBinding.FieldName = 'Orders_Time'
          end>
      end
      object merPaymentDescr: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Width = 40
            DataBinding.FieldName = 'PaymentType'
          end
          item
            EditPropertiesClassName = 'TcxSpinEditProperties'
            Width = 25
            DataBinding.FieldName = 'Quantity'
          end
          item
            EditPropertiesClassName = 'TcxCurrencyEditProperties'
            EditProperties.ValidateOnEnter = True
            Width = 45
            DataBinding.FieldName = 'PaymentAmount'
            OnGetEditingProperties = merPaymentDescrEditors2GetEditingProperties
          end>
      end
    end
    object ctgCustomer: TcxCategoryRow
      Properties.Caption = 'Customer'
      Properties.ImageIndex = 5
      object merCustomer: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Caption = 'First Name'
            DataBinding.FieldName = 'FirstName'
          end
          item
            Caption = 'Last Name'
            DataBinding.FieldName = 'LastName'
          end>
      end
      object merCustomerInfo: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Width = 20
            DataBinding.FieldName = 'Prefix'
          end
          item
            Width = 40
            DataBinding.FieldName = 'Spouse'
          end
          item
            Width = 20
            DataBinding.FieldName = 'Title'
          end
          item
            EditPropertiesClassName = 'TcxCheckBoxProperties'
            EditProperties.ValueChecked = 'Y'
            EditProperties.ValueUnchecked = 'N'
            Width = 25
            DataBinding.FieldName = 'Customer'
          end>
      end
      object merWork: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Width = 80
            DataBinding.FieldName = 'Company'
          end
          item
            DataBinding.FieldName = 'Occupation'
          end>
      end
      object merMailData: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Width = 25
            DataBinding.FieldName = 'State'
          end
          item
            Width = 80
            DataBinding.FieldName = 'City'
          end
          item
            DataBinding.FieldName = 'ZipCode'
          end>
      end
      object erAddress: TcxDBEditorRow
        Properties.ImageIndex = 20
        Properties.DataBinding.FieldName = 'Address'
      end
      object merPhones: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Caption = 'Home Phone'
            DataBinding.FieldName = 'HomePhone'
          end
          item
            Caption = 'Fax Phone'
            DataBinding.FieldName = 'FaxPhone'
          end>
      end
      object erEmail: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Email'
      end
    end
    object ctgCar: TcxCategoryRow
      Properties.Caption = 'Car'
      object merCarName: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            ImageIndex = 25
            Width = 45
            DataBinding.FieldName = 'Trademark'
          end
          item
            Width = 80
            DataBinding.FieldName = 'Model'
          end>
      end
      object merCarEngine: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Width = 20
            DataBinding.FieldName = 'HP'
          end
          item
            Width = 20
            DataBinding.FieldName = 'Liter'
          end
          item
            Width = 20
            DataBinding.FieldName = 'Cyl'
          end
          item
            Width = 35
            DataBinding.FieldName = 'MPG_City'
          end
          item
            DataBinding.FieldName = 'MPG_Highway'
          end>
      end
      object merTransmiss: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Caption = 'Transmiss Automatic'
            ImageIndex = 28
            EditPropertiesClassName = 'TcxCheckBoxProperties'
            EditProperties.ValueChecked = 'Yes'
            EditProperties.ValueUnchecked = 'No'
            Width = 75
            DataBinding.FieldName = 'TransmissAutomatic'
          end
          item
            Caption = 'SpeedCount'
            DataBinding.FieldName = 'TransmissSpeedCount'
          end>
      end
      object erCarDescr: TcxDBEditorRow
        Options.ShowExpandButton = False