rttiinspectordemomain.dfm

delphi的的三方控件

inherited RTTIInspectorDemoMainForm: TRTTIInspectorDemoMainForm
  Left = 285
  Top = 212
  Width = 812
  Height = 627
  Caption = 'ExpressVerticalGrid RTTIInspector Demo'
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 804
    Height = 16
    Caption = 
      'This demo shows use of the TcxRTTIInspector component. See Help/' +
      'About for more information.'
  end
  object Splitter1: TSplitter [1]
    Left = 254
    Top = 16
    Height = 539
  end
  inherited sbMain: TStatusBar
    Top = 555
    Width = 804
  end
  inherited memAboutText: TMemo
    Lines.Strings = (
      
        'This demo illustrates use of a cxRTTIInspector (on the left) to ' +
        'display/modify the published properties of a cxDBVerticalGrid in' +
        'stance at run-time.'
      ''
      
        'For example, see the effect of setting the LayoutStyle property ' +
        'to IsMultiView.'
      ''
      
        'The demo also shows how you can change the cxRTTIInspector'#39's tar' +
        'get control at run-time. Select Options/Edit from the main menu ' +
        'and this will display the Rows Editor dialog. Now select a row t' +
        'o see this become the control displayed on the left.'
      ''
      
        'You are now able to modify the row. Try expanding the Properties' +
        ' property followed by setting an image in the ImageIndex via its' +
        ' dropdown combo. You will see the icon displayed in the right ha' +
        'nd panel.'
      ''
      'Other points of interest:'
      ''
      
        ' - you can Add/Delete rows/categories using the appropriate butt' +
        'ons or the corresponding context menu items'
      ''
      
        ' - use Options | Customize (or the corresponding grid context me' +
        'nu item) to customize the vertical grid structure or to set visi' +
        'bility of rows or categories (drag a row or category between the' +
        ' grid and the customize form to hide or show it).'
      ''
      
        ' - see TcxImageIndexProperty (in the RTTIInspectorDemoPropEditor' +
        's unit) for an example of how to create and register a property ' +
        'editor.')
  end
  object cxDBVerticalGrid: TcxDBVerticalGrid [4]
    Left = 257
    Top = 16
    Width = 547
    Height = 539
    Styles.StyleSheet = cxVerticalGridStyleSheetDevExpress
    Align = alClient
    Images = ImageList
    PopupMenu = PopupMenu
    TabOrder = 2
    OnClick = cxVerticalGridClick
    OnLayoutChanged = cxDBVerticalGridLayoutChanged
    DataController.DataSource = RTTIInspectorDemoMainDM.dsOrders
    object cxDBVerticalGridID: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'ID'
    end
    object cxDBVerticalGridCustomerID: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'CustomerID'
    end
    object cxDBVerticalGridProductID: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'ProductID'
    end
    object cxDBVerticalGridPurchaseDate: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'PurchaseDate'
    end
    object cxDBVerticalGridPaymentType: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'PaymentType'
    end
    object cxDBVerticalGridTime: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'Time'
    end
    object cxDBVerticalGridPaymentAmount: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'PaymentAmount'
    end
    object cxDBVerticalGridDescription: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'Description'
    end
    object cxDBVerticalGridQuantity: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'Quantity'
    end
    object cxDBVerticalGridCustomerEmail: TcxDBEditorRow
      Properties.DataBinding.FieldName = 'CustomerEmail'
    end
  end
  object Panel1: TPanel [5]
    Left = 0
    Top = 16
    Width = 254
    Height = 539
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 3
    object lbInspectedObject: TLabel
      Left = 1
      Top = 1
      Width = 252
      Height = 13
      Align = alTop
      Caption = 'lbInspectedObject'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cxRTTIInspector: TcxRTTIInspector
      Left = 1
      Top = 14
      Width = 252
      Height = 524
      Align = alClient
      OptionsView.RowHeaderWidth = 113
      TabOrder = 0
      OnPropertyChanged = cxRTTIInspectorPropertyChanged
    end
  end
  inherited mmMain: TMainMenu
    inherited miOptions: TMenuItem
      object VerticalEdit1: TMenuItem [0]
        Action = actVGEdit
      end
      object Aboutthisdemo1: TMenuItem [1]
        Action = actShowCustomize
      end
      object N2: TMenuItem [2]
        Caption = '-'
      end
      object ExportToHTML1: TMenuItem [3]
        Action = actExportVGToHTML
      end
      object ExportToExcel1: TMenuItem [4]
        Action = actExportVGToExcel
      end
      object N1: TMenuItem [5]
        Caption = '-'
      end
    end
  end
  inherited alMain: TActionList
    object actVGEdit: TAction
      Category = 'Options'
      Caption = 'Edit..'
      OnExecute = actVGEditExecute
    end
    object actExportVGToHTML: TAction
      Category = 'Options'
      Caption = 'ExportToHTML..'
      OnExecute = actExportVGToHTMLExecute
    end
    object actExportVGToExcel: TAction
      Category = 'Options'
      Caption = 'ExportToExcel...'
      OnExecute = actExportVGToExcelExecute
    end
    object actShowCustomize: TAction
      Category = 'Options'
      Caption = 'Customize...'
      OnExecute = actShowCustomizeExecute
    end
  end
  object PopupMenu: TPopupMenu
    Left = 592
    Top = 32
    object VerticalGridEdit1: TMenuItem
      Action = actVGEdit
    end
    object VerticalGridLayoutEditor1: TMenuItem
      Action = actShowCustomize
    end
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 504
    Top = 40
    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