customdrawtableviewdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object CustomDrawTableViewDemoMainForm: TCustomDrawTableViewDemoMainForm
  Left = 46
  Top = 29
  Width = 966
  Height = 676
  Caption = 'ExpressQuantumGrid CustomDrawTableView Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescription: TLabel
    Left = 0
    Top = 0
    Width = 958
    Height = 18
    Align = alTop
    AutoSize = False
    Caption = 
      'This demo shows some examples of custom draw. Click "About this ' +
      'demo" for more information.'
    Color = 12937777
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    WordWrap = True
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 601
    Width = 958
    Height = 21
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object cxgCars: TcxGrid
    Left = 0
    Top = 18
    Width = 958
    Height = 583
    Align = alClient
    TabOrder = 1
    object tvCars: TcxGridDBTableView
      DataController.DataSource = CustomDrawTableViewDemoDataDM.dsCars
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          Column = tvCarsTrademark
        end
        item
          Kind = skMax
          Column = tvCarsPrice
        end
        item
          Kind = skMin
          Column = tvCarsCyl
        end
        item
          Kind = skMin
          Column = tvCarsMPG_City
        end
        item
          Kind = skMin
          Column = tvCarsMPG_Highway
        end
        item
          Kind = skMax
          Column = tvCarsHP
        end
        item
          Kind = skMax
          Column = tvCarsLiter
        end
        item
          Kind = skMax
          Column = tvCarsTransmissSpeedCount
        end>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OnCustomDrawCell = tvCarsCustomDrawCell
      OnCustomDrawPartBackground = tvCarsCustomDrawPartBackground
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GridLines = glNone
      OptionsView.Indicator = True
      Styles.StyleSheet = CustomDrawTableViewDemoDataDM.GridTableViewStyleSheetDevExpress
      OnCustomDrawColumnHeader = tvCarsCustomDrawColumnHeader
      OnCustomDrawFooterCell = tvCarsCustomDrawFooterCell
      OnCustomDrawGroupCell = tvCarsCustomDrawGroupCell
      OnCustomDrawIndicatorCell = tvCarsCustomDrawIndicatorCell
      object tvCarsTrademark: TcxGridDBColumn
        DataBinding.FieldName = 'Trademark'
        Width = 150
      end
      object tvCarsModel: TcxGridDBColumn
        DataBinding.FieldName = 'Model'
        Width = 250
      end
      object tvCarsHP: TcxGridDBColumn
        DataBinding.FieldName = 'HP'
        Width = 130
      end
      object tvCarsLiter: TcxGridDBColumn
        DataBinding.FieldName = 'Liter'
        Width = 110
      end
      object tvCarsCyl: TcxGridDBColumn
        DataBinding.FieldName = 'Cyl'
        Width = 110
      end
      object tvCarsTransmissSpeedCount: TcxGridDBColumn
        DataBinding.FieldName = 'TransmissSpeedCount'
        Width = 110
      end
      object tvCarsMPG_City: TcxGridDBColumn
        DataBinding.FieldName = 'MPG_City'
        Width = 120
      end
      object tvCarsMPG_Highway: TcxGridDBColumn
        DataBinding.FieldName = 'MPG_Highway'
        Width = 120
      end
      object tvCarsCategory: TcxGridDBColumn
        DataBinding.FieldName = 'Category'
      end
      object tvCarsDescription: TcxGridDBColumn
        DataBinding.FieldName = 'Description'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
      end
      object tvCarsPicture: TcxGridDBColumn
        DataBinding.FieldName = 'Picture'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekPict
        Properties.PictureGraphicClassName = 'TJPEGImage'
      end
      object tvCarsPrice: TcxGridDBColumn
        DataBinding.FieldName = 'Price'
      end
    end
    object tvOrders: TcxGridDBTableView
      DataController.DataSource = CustomDrawTableViewDemoDataDM.dsOrders
      DataController.DetailKeyFieldNames = 'ProductID'
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          Column = tvOrdersQuantity
        end
        item
          Kind = skSum
          Column = tvOrdersPaymentAmount
        end>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OnCustomDrawCell = tvOrdersCustomDrawCell
      OnCustomDrawPartBackground = tvOrdersCustomDrawPartBackground
      OptionsView.Footer = True
      OptionsView.GridLines = glNone
      OptionsView.Indicator = True
      Styles.StyleSheet = CustomDrawTableViewDemoDataDM.GridTableViewStyleSheetDevExpress
      OnCustomDrawColumnHeader = tvOrdersCustomDrawColumnHeader
      OnCustomDrawFooterCell = tvOrdersCustomDrawFooterCell
      OnCustomDrawGroupCell = tvOrdersCustomDrawGroupCell
      OnCustomDrawIndicatorCell = tvOrdersCustomDrawIndicatorCell
      object tvOrdersPurchaseDate: TcxGridDBColumn
        DataBinding.FieldName = 'PurchaseDate'
      end
      object tvOrdersTime: TcxGridDBColumn
        DataBinding.FieldName = 'Time'
        PropertiesClassName = 'TcxTimeEditProperties'
        Properties.AssignedValues.MinValue = True
        Width = 80
      end
      object tvOrdersPaymentType: TcxGridDBColumn
        DataBinding.FieldName = 'PaymentType'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Images = imPaymentType
        Properties.Items = <
          item
            Description = 'Master Card'
            ImageIndex = 2
            Value = 'Master'
          end
          item
            Description = 'American Express'
            ImageIndex = 3
            Value = 'AmEx'
          end
          item
            Description = 'Cash'
            ImageIndex = 0
            Value = 'Cash'
          end
          item
            Description = 'Visa Card'
            ImageIndex = 1
            Value = 'Visa'
          end>
        Width = 100
      end
      object tvOrdersPaymentAmount: TcxGridDBColumn
        DataBinding.FieldName = 'PaymentAmount'
      end
      object tvOrdersQuantity: TcxGridDBColumn
        DataBinding.FieldName = 'Quantity'
      end
    end
    object lvCars: TcxGridLevel
      GridView = tvCars
      MaxDetailHeight = 300
      object lvOrders: TcxGridLevel
        GridView = tvOrders
      end
    end
  end
  object mmMain: TMainMenu
    Left = 512
    Top = 32
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = '&Options'
      object miCustomDrawEditor: TMenuItem
        Caption = 'Show &Custom Draw Editor...'
        OnClick = miCustomDrawEditorClick
      end
      object miSeparator1: TMenuItem
        Caption = '-'
      end
      object miLookAndFeel: TMenuItem
        Caption = '&Look&&Feel'
        object miKind: TMenuItem
          Caption = '&Kind'
          object miFlat: TMenuItem
            Caption = '&Flat'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miStandard: TMenuItem
            Caption = '&Standard'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miUltraFlat: TMenuItem
            Caption = '&Ultra Flat'
            Checked = True