stylesmultidemomain.dfm

delphi的的三方控件

inherited StylesMultiDemoMainForm: TStylesMultiDemoMainForm
  Left = 216
  Top = 123
  Width = 806
  Height = 623
  Caption = 'ExpressVerticalGrid StylesMulti Demo'
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 798
    Height = 16
    Caption = 
      'Experiment using StyleSheets. See Help/About for more informatio' +
      'n'
  end
  object Splitter: TSplitter [1]
    Left = 217
    Top = 16
    Width = 2
    Height = 535
    MinSize = 4
  end
  inherited sbMain: TStatusBar
    Top = 551
    Width = 798
  end
  inherited memAboutText: TMemo
    Lines.Strings = (
      'In this demo you can:'
      ''
      
        '- switch between different style sheets (via the StyleSheets gri' +
        'd to the left of the mainform)'
      
        '- use a different pre-defined style sheets (just select any item' +
        ' in the Predefined Style Sheets branch of the Style Sheets grid)' +
        '.'
      ''
      
        '- select a user defined style sheet via the combobox (just selec' +
        't any item in the User Defined Style Sheets branch of the Style ' +
        'Sheets grid).'
      '- modify one or more fonts and/or colors using the Edit button'
      
        '- load/save user defined style sheets from/to ini-files using op' +
        'enfile/savefile dialogs'
      '')
  end
  object pnlLeft: TPanel [4]
    Left = 0
    Top = 16
    Width = 217
    Height = 535
    Align = alLeft
    Anchors = [akLeft]
    BevelInner = bvLowered
    BevelOuter = bvNone
    Color = 15451300
    Constraints.MinWidth = 215
    TabOrder = 0
    object gbUserDefined: TGroupBox
      Left = 1
      Top = 419
      Width = 215
      Height = 115
      Align = alBottom
      Caption = 'User Defined Style Sheets'
      TabOrder = 2
      TabStop = True
      object btnLoad: TcxButton
        Left = 11
        Top = 49
        Width = 193
        Height = 25
        Action = actLoadFromFile
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
      end
      object btnSave: TcxButton
        Left = 11
        Top = 76
        Width = 193
        Height = 25
        Action = actSaveToFile
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 2
      end
      object btnEdit: TcxButton
        Left = 11
        Top = 22
        Width = 193
        Height = 25
        Action = actEditStyleSheet
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
      end
    end
    object gbPredefined: TGroupBox
      Left = 1
      Top = 36
      Width = 215
      Height = 383
      Align = alClient
      Caption = 'Predefined Style Sheets'
      TabOrder = 1
      TabStop = True
      object vgStyleSheets: TcxVerticalGrid
        Left = 2
        Top = 15
        Width = 211
        Height = 366
        Styles.StyleSheet = StylesMultiDemoDataDM.cxVerticalGridStyleSheetDevExpress
        Styles.OnGetCategoryStyle = vgStyleSheetsStylesGetCategoryStyle
        Align = alClient
        OptionsView.RowHeaderWidth = 24
        OptionsBehavior.HeaderSizing = False
        TabOrder = 0
        OnDrawRowHeader = vgStyleSheetsDrawRowHeader
        OnItemChanged = vgStyleSheetsItemChanged
        object vgStyleSheetsNone: TcxCategoryRow
          Properties.Caption = 'None'
        end
        object vgStyleSheetsUserDefinedStyleSheets: TcxCategoryRow
          Tag = -1
          Properties.Caption = 'User defined style sheets'
        end
        object vgStyleSheetsPredefinedStyleSheets: TcxCategoryRow
          Tag = -1
          Properties.Caption = 'Predefined style sheets'
        end
      end
    end
    object pnlCurrentStyleSheet: TPanel
      Left = 1
      Top = 1
      Width = 215
      Height = 35
      Align = alTop
      BevelOuter = bvLowered
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
  end
  object cxDBVerticalGrid: TcxDBVerticalGrid [5]
    Left = 219
    Top = 16
    Width = 579
    Height = 535
    Align = alClient
    OptionsView.RowHeaderWidth = 268
    OptionsBehavior.AlwaysShowEditor = False
    OptionsBehavior.CellHints = False
    OptionsBehavior.BandSizing = False
    OptionsBehavior.RowTracking = False
    OptionsBehavior.IncSearch = True
    OptionsData.Deleting = False
    OptionsData.Inserting = False
    TabOrder = 3
    DataController.DataSource = StylesMultiDemoDataDM.dsOrders
    object cxDBVerticalGridOrderInfo: TcxCategoryRow
      Properties.Caption = 'Order Info'
      object cxDBVerticalGridPurchaseDate: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'PurchaseDate'
      end
      object cxDBVerticalGridTime: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Time'
      end
      object cxDBVerticalGridPaymentType: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'PaymentType'
      end
      object cxDBVerticalGridPaymentAmount: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'PaymentAmount'
      end
      object cxDBVerticalGridQuantity: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Quantity'
      end
    end
    object cxDBVerticalGridCustomerInfo: TcxCategoryRow
      Properties.Caption = 'Customer Info'
      object cxDBVerticalGridCommonCustomerInfo: TcxCategoryRow
        Properties.Caption = 'Common Customer Info'
        object cxDBVerticalGridFirstName: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'FirstName'
        end
        object cxDBVerticalGridLastName: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'LastName'
        end
        object cxDBVerticalGridSpouse: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Spouse'
        end
        object cxDBVerticalGridPrefix: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Prefix'
        end
        object cxDBVerticalGridTitle: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Title'
        end
      end
      object cxDBVerticalGridCustomerContacts: TcxCategoryRow
        Properties.Caption = 'Customer Contacts'
        object cxDBVerticalGridPhonesAndFaxes: TcxCategoryRow
          Properties.Caption = 'Phones&Faxes'
          object cxDBVerticalGridFaxPhone: TcxDBEditorRow
            Properties.DataBinding.FieldName = 'FaxPhone'
          end
          object cxDBVerticalGridHomePhone: TcxDBEditorRow
            Properties.DataBinding.FieldName = 'HomePhone'
          end
        end
        object cxDBVerticalGridCategoryAddress: TcxCategoryRow
          Properties.Caption = 'Address'
          object cxDBVerticalGridState: TcxDBEditorRow
            Properties.DataBinding.FieldName = 'State'
          end
          object cxDBVerticalGridCity: TcxDBEditorRow
            Properties.DataBinding.FieldName = 'City'
          end
          object cxDBVerticalGridAddress: TcxDBEditorRow
            Properties.Caption = 'Street'
            Properties.DataBinding.FieldName = 'Address'
          end
          object cxDBVerticalGridZipCode: TcxDBEditorRow
            Properties.DataBinding.FieldName = 'ZipCode'
          end
        end
        object cxDBVerticalGridEmail: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Email'
        end
      end
      object cxDBVerticalGridOccupation: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Occupation'
      end
      object cxDBVerticalGridCustomer: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Customer'
      end
      object cxDBVerticalGridCompany: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Company'
      end
    end
  end
  inherited alMain: TActionList
    object actEditStyleSheet: TAction
      Category = 'Options'
      Caption = '&Edit Style Sheet'
      OnExecute = actEditStyleSheetExecute
      OnUpdate = actEditAndSaveStyleSheetUpdate
    end
    object actLoadFromFile: TAction
      Category = 'Options'
      Caption = '&LoadFromFile...'
      OnExecute = actLoadFromFileExecute
    end
    object actSaveToFile: TAction
      Category = 'Options'
      Caption = '&SaveToFile...'
      OnExecute = actSaveToFileExecute
      OnUpdate = actEditAndSaveStyleSheetUpdate
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = '*.ini'
    Filter = '*.ini|*.ini'
    FilterIndex = 0
    Options = [ofHideReadOnly, ofExtensionDifferent, ofEnableSizing]
    Left = 536
    Top = 8
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.ini'
    Filter = '*.ini|*.ini'
    Left = 568
    Top = 8
  end
end