customdrawdemomain.dfm

delphi的的三方控件

inherited CustomDrawDemoMainForm: TCustomDrawDemoMainForm
  Left = 127
  Top = 108
  Width = 853
  Height = 590
  Caption = 'ExpressVerticalGrid CustomDrawDemo'
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 845
    Height = 16
    Caption = 
      'This demo shows some examples of custom draw. See Help/About reg' +
      'arding the various Options available above.'
  end
  inherited sbMain: TStatusBar
    Top = 518
    Width = 845
  end
  inherited memAboutText: TMemo
    Lines.Strings = (
      
        'This demo illustrates how to customize the vertical grid'#39's appea' +
        'rance by using custom painting. '
      ' '
      
        'The custom painting techniques are available by using the Custom' +
        ' Draw Settings dialog  (if closed, you can invoke it by choosing' +
        ' the Options | Show Custom Draw Editor: menu item).'
      ' '
      
        'In the editor, you can choose one of four elements to be customi' +
        'zed: control background, category rows, data cells and data row ' +
        'headers. There are three common options for each row '
      
        '-  painting a background image (choose one of the predefined or ' +
        'load your own);'
      
        '-  fill the background with a gradient (several color schemes av' +
        'ailable);'
      '-  default painting (custom draw is disabled).'
      ' '
      
        'Data cells can be painted depending on data values by selecting ' +
        'the '#39'Depends on Data'#39' option. If enabled, records are painted di' +
        'fferently, according to the Customer field value. You will appre' +
        'ciate this better if you enable MultiRecord View layout. To do s' +
        'o, use the Options | LayoutStyle | MultiRecord View menu item.'
      ' '
      
        'Finally, when custom painting cells using either a background im' +
        'age or gradient filling, the Owner Draw Text option is available' +
        '. Enable it and choose the font required.')
  end
  object cxDBVerticalGrid: TcxDBVerticalGrid [3]
    Left = 0
    Top = 16
    Width = 845
    Height = 502
    Styles.StyleSheet = CustomDrawDemoDataDM.cxVerticalGridStyleSheetDevExpress
    Align = alClient
    Images = ImageList
    LayoutStyle = lsBandsView
    OptionsView.GridLineColor = 5863594
    OptionsView.RowHeaderWidth = 285
    OptionsBehavior.AlwaysShowEditor = False
    OptionsBehavior.CellHints = False
    OptionsBehavior.BandSizing = False
    OptionsBehavior.RowTracking = False
    OptionsBehavior.IncSearch = True
    OptionsData.Deleting = False
    OptionsData.Inserting = False
    TabOrder = 2
    OnDrawBackground = cxDBVerticalGridDrawBackground
    OnDrawRowHeader = cxDBVerticalGridDrawRowHeader
    OnDrawValue = cxDBVerticalGridDrawValue
    DataController.DataSource = CustomDrawDemoDataDM.dsOrders
    object cxDBVerticalGridOrderInfo: TcxCategoryRow
      Properties.Caption = 'Order Info'
      object cxDBVerticalGridPurchaseDate: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'PurchaseDate'
      end
      object cxDBVerticalGridTime: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Orders_Time'
      end
      object cxDBVerticalGridPaymentType: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.EditProperties.Images = ImageList
        Properties.EditProperties.Items = <
          item
            Description = 'American Express'
            ImageIndex = 14
            Value = 'AmEx'
          end
          item
            Description = 'Master Card'
            ImageIndex = 13
            Value = 'Master'
          end
          item
            Description = 'Visa Card'
            ImageIndex = 12
            Value = 'Visa'
          end
          item
            Description = 'Cash'
            ImageIndex = 11
            Value = 'Cash'
          end>
        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 cxDBVerticalGridState: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'State'
          object cxDBVerticalGridCategoryAddress: TcxCategoryRow
            Properties.Caption = 'Address'
            object cxDBVerticalGridCity: TcxDBEditorRow
              Properties.DataBinding.FieldName = 'City'
              object cxDBVerticalGridZipCode: TcxDBEditorRow
                Properties.DataBinding.FieldName = 'ZipCode'
              end
              object cxDBVerticalGridAddress: TcxDBEditorRow
                Properties.Caption = 'Street'
                Properties.DataBinding.FieldName = 'Address'
              end
            end
          end
        end
        object cxDBVerticalGridEmail: TcxDBEditorRow
          Properties.EditPropertiesClassName = 'TcxHyperLinkEditProperties'
          Properties.DataBinding.FieldName = 'Email'
        end
      end
      object cxDBVerticalGridOccupation: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Occupation'
      end
      object cxDBVerticalGridCustomer: TcxDBEditorRow
        Properties.EditPropertiesClassName = 'TcxCheckBoxProperties'
        Properties.EditProperties.ValueChecked = 'Y'
        Properties.EditProperties.ValueUnchecked = 'N'
        Properties.DataBinding.FieldName = 'Customer'
      end
      object cxDBVerticalGridCompany: TcxDBEditorRow
        Properties.DataBinding.FieldName = 'Company'
      end
    end
    object cxDBVerticalGridCarInfo: TcxCategoryRow
      Properties.Caption = 'CarInfo'
      object cxDBVerticalGridCar: TcxCategoryRow
        Properties.Caption = 'Car'
        object cxDBVerticalGridTrademark: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Trademark'
        end
        object cxDBVerticalGridModel: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Model'
        end
      end
      object cxDBVerticalGridMPG: TcxCategoryRow
        Properties.Caption = 'MPG'
        object cxDBVerticalGridMPG_City: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'MPG_City'
        end
        object cxDBVerticalGridMPG_Highway: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'MPG_Highway'
        end
      end
      object cxDBVerticalGridEngine: TcxCategoryRow
        Properties.Caption = 'Engine'
        object cxDBVerticalGridHP: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'HP'
        end
        object cxDBVerticalGridLiter: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Liter'
        end
        object cxDBVerticalGridCyl: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'Cyl'
        end
      end
      object cxDBVerticalGridNotes: TcxCategoryRow
        Properties.Caption = 'Notes'
        object cxDBVerticalGridCars_Description: TcxDBEditorRow
          Properties.Caption = 'Description'
          Properties.EditPropertiesClassName = 'TcxBlobEditProperties'
          Properties.EditProperties.BlobEditKind = bekMemo
          Properties.DataBinding.FieldName = 'Cars_Description'
        end
      end
      object cxDBVerticalGridTransmission: TcxCategoryRow
        Properties.Caption = 'Transmission'
        object cxDBVerticalGridTransmissSpeedCount: TcxDBEditorRow
          Properties.DataBinding.FieldName = 'TransmissSpeedCount'
        end
        object cxDBVerticalGridTransmissAutomatic: TcxDBEditorRow
          Properties.ImageIndex = 10
          Properties.EditPropertiesClassName = 'TcxCheckBoxProperties'
          Properties.EditProperties.ValueChecked = 'Yes'
          Properties.EditProperties.ValueUnchecked = 'No'
          Properties.DataBinding.FieldName = 'TransmissAutomatic'
        end
      end
      object cxDBVerticalGridOthers: TcxCategoryRow
        Properties.Caption = 'Others'
        object cxDBVerticalGridCategory: TcxDBEditorRow
          Properties.EditPropertiesClassName = 'TcxImageComboBoxProperties'
          Properties.EditProperties.Images = ImageList
          Properties.EditProperties.Items = <
            item
              Description = 'Sport Car'
              ImageIndex = 8
              Value = 'SPORTS'
            end
            item