editorsinplacedemomain.dfm

delphi的的三方控件

inherited EditorsInPlaceDemoMainForm: TEditorsInPlaceDemoMainForm
  Left = 185
  Top = 126
  Width = 808
  Height = 548
  Caption = 'ExpressVerticalGrid EditorsInPlace Demo'
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 800
    Height = 25
    AutoSize = False
    Caption = 
      'This demo shows various column editors. See Help/About for more ' +
      'information'
  end
  inherited sbMain: TStatusBar
    Top = 476
    Width = 800
  end
  inherited memAboutText: TMemo
    Left = 624
    Top = 232
    Lines.Strings = (
      'In this demo you can:'
      ''
      
        '- keep this window open while you experiment with the various ed' +
        'itors'
      ''
      
        '- focus on the Company entry and type the first character of its' +
        ' name to see a filtered dropdown list.'
      ''
      
        '- focus on the Company Email entry and press the ellipsis button' +
        ' to send an email'
      ''
      
        '- focus on the Car entry and type the first character of its nam' +
        'e to see a filtered dropdown list.'
      ''
      '- display a calendar dropdown by editing a PurchaseDate'
      ''
      '- edit a Time via the time spin edit'
      ''
      '- display a calculator by editing a PaymentAmount'
      ''
      '- change the PaymentType via a dropdown image list'
      ''
      '- edit the Quantity via a spin edit'
      ''
      
        '- focus on the CarInfo column and click on its button to display' +
        ' details and:'
      ' (1) edit the Trademark via the MRU editor'
      ' (2) edit the Category via the Radiogroup editor'
      
        ' (3) display a resizable image by focusing & clicking on the ico' +
        'n below the fixed image'
      
        ' (4) visit the manufacturer'#39's website by double clicking on the ' +
        'URL')
  end
  object vgOrders: TcxDBVerticalGrid [3]
    Left = 0
    Top = 25
    Width = 800
    Height = 451
    Styles.StyleSheet = EditorsInPlaceDemoDataDM.cxVerticalGridStyleSheetDevExpress
    Align = alClient
    LayoutStyle = lsMultiRecordView
    OptionsView.RowHeaderWidth = 144
    TabOrder = 2
    DataController.DataSource = EditorsInPlaceDemoDataDM.dsOrders
    object vgOrdersCompany: TcxCategoryRow
      Properties.Caption = 'Company'
      object vgOrdersCustomerID: TcxDBEditorRow
        Properties.Caption = 'Company'
        Properties.EditPropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.EditProperties.ImmediatePost = True
        Properties.EditProperties.KeyFieldNames = 'ID'
        Properties.EditProperties.ListColumns = <
          item
            FieldName = 'Company'
          end>
        Properties.EditProperties.ListSource = EditorsInPlaceDemoDataDM.dsCustomers
        Properties.EditProperties.MaxLength = 1
        Properties.DataBinding.FieldName = 'CustomerID'
      end
      object vgOrdersCustomerEmail: TcxDBEditorRow
        Properties.Caption = 'Company Email'
        Properties.EditPropertiesClassName = 'TcxButtonEditProperties'
        Properties.EditProperties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.EditProperties.MaxLength = 30
        Properties.EditProperties.OnButtonClick = vgOrdersCompanyEmailPropertiesButtonClick
        Properties.DataBinding.FieldName = 'CustomerEmail'
      end
    end
    object vgOrdersPurchaseInfo: TcxCategoryRow
      Properties.Caption = 'Purchase Info'
      object vgOrdersPaymentType: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.EditProperties.Images = EditorsInPlaceDemoDataDM.PaymentTypeImages
        Properties.EditProperties.Items = <
          item
            Description = 'American Express'
            ImageIndex = 3
            Value = 'AmEx'
          end
          item
            Description = 'Master Card'
            ImageIndex = 2
            Value = 'Master'
          end
          item
            Description = 'Visa Card'
            ImageIndex = 1
            Value = 'Visa'
          end
          item
            Description = 'Cash'
            ImageIndex = 0
            Value = 'Cash'
          end>
        Properties.DataBinding.FieldName = 'PaymentType'
      end
      object vgOrdersPaymentAmount: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxCalcEditProperties'
        Properties.DataBinding.FieldName = 'PaymentAmount'
      end
      object vgOrdersTime: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxTimeEditProperties'
        Properties.EditProperties.AssignedValues.MinValue = True
        Properties.DataBinding.FieldName = 'Time'
      end
      object vgOrdersPurchaseDate: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxDateEditProperties'
        Properties.DataBinding.FieldName = 'PurchaseDate'
      end
      object vgOrdersQuantity: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxSpinEditProperties'
        Properties.DataBinding.FieldName = 'Quantity'
      end
    end
    object vgOrdersCar: TcxCategoryRow
      Properties.Caption = 'Car'
      object vgOrdersProductID: TcxDBEditorRow
        Properties.Caption = 'Car'
        Properties.EditPropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.EditProperties.KeyFieldNames = 'ID'
        Properties.EditProperties.ListColumns = <
          item
            FieldName = 'Car'
          end>
        Properties.EditProperties.ListSource = EditorsInPlaceDemoDataDM.dsCars
        Properties.EditProperties.MaxLength = 100
        Properties.DataBinding.FieldName = 'ProductID'
      end
      object vgOrdersCarInfo: TcxDBEditorRow
        Properties.Caption = 'CarInfo'
        Properties.EditPropertiesClassName = 'TcxPopupEditProperties'
        Properties.EditProperties.MaxLength = 0
        Properties.EditProperties.PopupControl = EditorsInPlaceDemoCarInfoForm.pnlCarInfo
        Properties.EditProperties.PopupSysPanelStyle = True
        Properties.EditProperties.OnCloseUp = vgOrdersCarInfoEditPropertiesCloseUp
        Properties.EditProperties.OnInitPopup = vgOrdersCarInfoEditPropertiesInitPopup
        Properties.OnGetDisplayText = vgOrdersCarInfoPropertiesGetDisplayText
      end
    end
  end
  inherited mmMain: TMainMenu
    inherited miOptions: TMenuItem
      object miShowEditButtons: TMenuItem [0]
        Caption = 'Show &Edit Buttons'
        object miEditBtnsAlways: TMenuItem
          Caption = '&Always'
          Hint = 
            'If checked, the editor buttons are always visible within the Tre' +
            'eList '
          RadioItem = True
          OnClick = miShowEditBtnsClick
        end
        object miEditBtnsFocused: TMenuItem
          Tag = 1
          Caption = '&Focused record only'
          Hint = 
            'If checked, the editor buttons are visible for the focused recor' +
            'd'
          RadioItem = True
          OnClick = miShowEditBtnsClick
        end
        object miEditBtnsNever: TMenuItem
          Tag = 2
          Caption = '&Never'
          Checked = True
          Hint = 
            'If checked, the editor buttons are displayed only for the focuse' +
            'd cell'
          RadioItem = True
          OnClick = miShowEditBtnsClick
        end
      end
      object N1: TMenuItem [1]
        Caption = '-'
      end
    end
  end
end