simpleverticalgriddemomain.dfm

delphi的的三方控件

inherited SimpleVerticalGridDemoMainForm: TSimpleVerticalGridDemoMainForm
  Left = 204
  Top = 116
  Width = 719
  Height = 486
  Caption = 'ExpressVerticalGrid SimpleVerticalGrid Demo'
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 711
    Caption = 
      'Demonstrates the basic facilities of the ExpressVerticalGrid pro' +
      'duct. See Help/About for more information'
  end
  inherited sbMain: TStatusBar
    Top = 414
    Width = 711
  end
  inherited memAboutText: TMemo
    Left = 552
    Top = 280
    Lines.Strings = (
      'In this demo you can:'
      ''
      
        'This simple demo illustrates the basic display options available' +
        ' within ExpressVerticalGrid 3.0:'
      ''
      
        'Experiment with changing the settings available via Options on t' +
        'he main menu:'
      ''
      
        'View: change to explorer style categories and see the effect of ' +
        'disabling headers and/or grid lines'
      ''
      
        'Behavior: examine the facilities available such as incremental s' +
        'earch, element sizing and cell hints. '
      ''
      
        'PaintStyle/LayoutStyle: examine how you can change the basic dis' +
        'play. In particular, compare single and multi records'
      ''
      
        'LookAndFeel: shows the basic support provided by the cxLibrary c' +
        'ommon to our VCL products'
      ''
      ''
      'In particular:'
      ''
      
        '- see cell hints by placing mouse over incompletely displayed te' +
        'st, such as Hperlink cells'
      ''
      '- try Incremental Search by typing any Trademark'
      ''
      
        '- try displaying resizable images by clicking on the focused ico' +
        'n'
      ''
      '- try record insertion/deletion (via the Ins/Ctrl+Del keys)'
      ''
      
        '- look at the source to see the small amount of code required by' +
        ' this demo')
  end
  object cxDBVerticalGrid: TcxDBVerticalGrid [3]
    Left = 0
    Top = 32
    Width = 711
    Height = 382
    BorderStyle = cxcbsNone
    Styles.OnGetContentStyle = cxDBVerticalGridStylesGetContentStyle
    Styles.StyleSheet = SimpleVerticalGridDemoMainDM.cxVerticalGridStyleSheetDevExpress
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Images = ImageList
    LayoutStyle = lsMultiRecordView
    OptionsView.CellTextMaxLineCount = 10
    OptionsView.GridLineColor = clGrayText
    OptionsView.RowHeaderMinWidth = 0
    OptionsView.RowHeaderWidth = 116
    OptionsView.ValueWidth = 87
    OptionsView.RecordsInterval = 5
    OptionsBehavior.AlwaysShowEditor = False
    OptionsBehavior.IncSearch = True
    ParentFont = False
    TabOrder = 2
    DataController.DataSource = SimpleVerticalGridDemoMainDM.dsCars
    object cxDBVerticalGridID: TcxDBMultiEditorRow
      Properties.Editors = <
        item
          ImageIndex = 16
          DataBinding.FieldName = 'ID'
          Options.Editing = False
        end>
    end
    object fldTrademark: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'Trademark'
    end
    object fldModel: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'Model'
    end
    object fldCategory: TcxDBEditorRow
      Properties.RepositoryItem = cxEditRepository1ImageComboBoxItem1
      Properties.DataBinding.FieldName = 'Category'
    end
    object rowPerformance_Attributes: TcxCategoryRow
      Properties.Caption = 'Performance Attributes'
      Properties.HeaderAlignmentVert = vaCenter
      object fldHP: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'HP'
      end
      object fldLiter: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Liter'
      end
      object fldCyl: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxSpinEditProperties'
        Properties.DataBinding.FieldName = 'Cyl'
      end
      object fldTransmissSpeedCount: TcxDBEditorRow
        Properties.Caption = '# of Gears'
        Properties.EditPropertiesClassName = 'TcxSpinEditProperties'
        Properties.DataBinding.FieldName = 'TransmissSpeedCount'
      end
      object fldTransmissAutomatic: TcxDBEditorRow
        Properties.Caption = 'Automatic Transmission'
        Properties.ImageIndex = 28
        Properties.RepositoryItem = cxEditRepository1ImageComboBoxItem2
        Properties.DataBinding.FieldName = 'TransmissAutomatic'
      end
      object cxDBVerticalGrid1DBMultiEditorRow1: TcxDBMultiEditorRow
        Properties.Editors = <
          item
            Caption = 'MPG City'
            HeaderAlignmentHorz = taCenter
            DataBinding.FieldName = 'MPG_City'
          end
          item
            Caption = 'MPG Highway'
            HeaderAlignmentHorz = taCenter
            DataBinding.FieldName = 'MPG_Highway'
          end>
        Properties.SeparatorString = 'and'
      end
    end
    object rowNotes: TcxCategoryRow
      Properties.Caption = 'Notes'
      Properties.HeaderAlignmentVert = vaCenter
      Properties.ImageIndex = 20
      object fldDescription: TcxDBEditorRow
        Properties.ImageIndex = 1
        Properties.EditPropertiesClassName = 'TcxBlobEditProperties'
        Properties.EditProperties.BlobEditKind = bekMemo
        Properties.DataBinding.FieldName = 'Description'
      end
      object fldHyperlink: TcxDBEditorRow
        Properties.ImageIndex = 7
        Properties.EditPropertiesClassName = 'TcxHyperLinkEditProperties'
        Properties.DataBinding.FieldName = 'Hyperlink'
      end
    end
    object rowOthers: TcxCategoryRow
      Properties.Caption = 'Others'
      Properties.HeaderAlignmentVert = vaBottom
      object fldPrice: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxCurrencyEditProperties'
        Properties.EditProperties.DisplayFormat = '$,0.00;-$,0.00'
        Properties.EditProperties.ValidateOnEnter = True
        Properties.DataBinding.FieldName = 'Price'
      end
      object fldPicture: TcxDBEditorRow
        Height = 60
        Properties.HeaderAlignmentVert = vaCenter
        Properties.ImageIndex = 14
        Properties.EditPropertiesClassName = 'TcxImageProperties'
        Properties.EditProperties.GraphicClassName = 'TJPEGImage'
        Properties.EditProperties.Stretch = True
        Properties.DataBinding.FieldName = 'Picture'
      end
    end
  end
  inherited mmMain: TMainMenu
    inherited miOptions: TMenuItem
      object miView: TMenuItem [0]
        Caption = '&View'
        object miExplorerStyleCategory: TMenuItem
          Caption = '&ExplorerStyleCategory'
          OnClick = miExplorerStyleCategoryClick
        end
        object miHeaders: TMenuItem
          Caption = '&Headers'
          Checked = True
          Hint = 'Shows/hides column headers within a tree list control'
          OnClick = miHeadersClick
        end
        object miGridLines: TMenuItem
          Caption = '&Grid Lines'
          Checked = True
          Hint = 'Displays lines that separate vertical grid items'
          OnClick = miGridLinesClick
        end
      end
      object miBehavior: TMenuItem [1]
        Caption = '&Behavior'
        object miIncSearch: TMenuItem
          Caption = '&Incremental Search'
          Checked = True
          Hint = 
            'Enables a user to start typing and make the vertical grid automa' +
            'tically navigate to the closest match'
          OnClick = miIncSearchClick
        end
        object miImmediateEditor: TMenuItem
          Action = actImmediateEditor
        end