providermodedemomain.dfm

delphi的的三方控件

inherited ProviderModeDemoMainForm: TProviderModeDemoMainForm
  Left = 350
  Top = 208
  Width = 602
  Height = 307
  Caption = 'ExpressVerticalGrid ProviderModeDemo'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 594
    Caption = 
      'Uses the ExpressVerticalGrid in provider mode with a text file a' +
      's its data. Experiment by selecting the Options above and also s' +
      'ee Help/About for other things to try.'
  end
  inherited sbMain: TStatusBar
    Top = 235
    Width = 594
  end
  inherited memAboutText: TMemo
    Left = 656
    Top = 256
    Lines.Strings = (
      'In this demo you can:'
      ''
      
        '- edit the customer list by pressing the Insert and Delete butto' +
        'ns (note the effect on the ID value)'
      ''
      
        '- use the cxNavigator buttons. In particular try setting/using t' +
        'he bookmark and filtering (the rightmost three buttons)'
      ''
      
        '- examine the code in the LoadData method to see how easy it is ' +
        'to handle text data'
      ''
      '')
    TabOrder = 2
  end
  object cxVirtualVerticalGrid: TcxVirtualVerticalGrid [3]
    Left = 0
    Top = 32
    Width = 594
    Height = 160
    Styles.StyleSheet = cxVerticalGridStyleSheetDevExpress
    Align = alTop
    Anchors = [akLeft, akTop, akRight, akBottom]
    LayoutStyle = lsMultiRecordView
    OptionsView.CellAutoHeight = True
    OptionsView.CellEndEllipsis = True
    OptionsView.RowHeaderWidth = 143
    OptionsView.ValueWidth = 55
    TabOrder = 1
  end
  object cxNavigator1: TcxNavigator [4]
    Left = 160
    Top = 208
    Width = 225
    Height = 25
    Control = cxVirtualVerticalGrid
    Anchors = [akLeft, akBottom]
    TabOrder = 3
  end
  inherited mmMain: TMainMenu
    Top = 40
    inherited miOptions: TMenuItem
      object CellEndEllipsis1: TMenuItem [0]
        Action = actCellEndEllipsis
      end
      object CellAutoHeight1: TMenuItem [1]
        Action = actCellAutoHeight
      end
      object GridLines1: TMenuItem [2]
        Caption = 'Grid Lines'
        object Node1: TMenuItem
          Caption = 'None'
          RadioItem = True
          OnClick = miLinesClick
        end
        object Horizontal1: TMenuItem
          Tag = 1
          Caption = 'Horizontal'
          RadioItem = True
          OnClick = miLinesClick
        end
        object Vertical1: TMenuItem
          Tag = 2
          Caption = 'Vertical'
          RadioItem = True
          OnClick = miLinesClick
        end
        object Both1: TMenuItem
          Tag = 3
          Caption = 'Both'
          Checked = True
          RadioItem = True
          OnClick = miLinesClick
        end
      end
      object miSeparator1: TMenuItem [3]
        Caption = '-'
      end
    end
  end
  inherited ilMain: TImageList
    Left = 464
    Top = 40
  end
  inherited alMain: TActionList
    Left = 408
    Top = 40
    object actCellAutoHeight: TAction
      Category = 'Options'
      Caption = '&CellAutoHeight'
      Checked = True
      OnExecute = actCellAutoHeightExecute
    end
    object actCellEndEllipsis: TAction
      Category = 'Options'
      Caption = 'CellEnd&Ellipsis'
      Checked = True
      OnExecute = actCellEndEllipsisExecute
    end
  end
  inherited cxLookAndFeelController: TcxLookAndFeelController
    Left = 376
    Top = 32
  end
  object StyleRepository: TcxStyleRepository
    Left = 336
    Top = 32
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = 14590588
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 13795663
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clYellow
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clNavy
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 14590588
      TextColor = clWhite
    end
    object cxStyle5: TcxStyle
      AssignedValues = [svColor]
      Color = 15185807
    end
    object cxStyle6: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle7: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 15120279
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clWhite
    end
    object cxVerticalGridStyleSheetDevExpress: TcxVerticalGridStyleSheet
      Caption = 'DevExpress'
      Styles.Background = cxStyle1
      Styles.Content = cxStyle3
      Styles.Inactive = cxStyle5
      Styles.Selection = cxStyle7
      Styles.Category = cxStyle2
      Styles.Header = cxStyle4
      Styles.IncSearch = cxStyle6
      BuiltIn = True
    end
  end
end