gridmodedemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object GridModeDemoMainForm: TGridModeDemoMainForm
  Left = 55
  Top = 52
  Width = 872
  Height = 587
  Caption = 'ExpressQuantumGrid GridMode Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescription: TLabel
    Left = 0
    Top = 0
    Width = 864
    Height = 25
    Align = alTop
    AutoSize = False
    Caption = 
      'This demo loads and processes 100,000 records using gridmode. Cl' +
      'ick "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 = 514
    Width = 864
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object cxGrid: TcxGrid
    Left = 0
    Top = 65
    Width = 864
    Height = 449
    Align = alClient
    TabOrder = 1
    object tvCars: TcxGridDBTableView
      DataController.DataModeController.GridMode = True
      DataController.DataSource = GridModeDemoDataDM.dsCars
      DataController.Filter.OnGetValueList = tvDataControllerFilterGetValueList
      DataController.Filter.AutoDataSetFilter = True
      DataController.KeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'Trademark'
          Column = tvCarsTrademark
        end>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsBehavior.FocusCellOnTab = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsCustomize.ColumnSorting = False
      OptionsView.CellAutoHeight = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.MaxLineCount = 1
      Preview.RightIndent = 10
      Styles.StyleSheet = GridModeDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvCarsTrademark: TcxGridDBColumn
        DataBinding.FieldName = 'Trademark'
        Width = 100
      end
      object tvCarsModel: TcxGridDBColumn
        DataBinding.FieldName = 'Model'
        Width = 180
      end
      object tvCarsPicture: TcxGridDBColumn
        DataBinding.FieldName = 'Picture'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekPict
        Properties.PictureGraphicClassName = 'TJPEGImage'
      end
      object tvCarshp: TcxGridDBColumn
        DataBinding.FieldName = 'hp'
        PropertiesClassName = 'TcxSpinEditProperties'
        Properties.Increment = 10
      end
      object tvCarsliter: TcxGridDBColumn
        DataBinding.FieldName = 'liter'
        PropertiesClassName = 'TcxSpinEditProperties'
        Properties.Increment = 0.1
      end
      object tvCarscyl: TcxGridDBColumn
        DataBinding.FieldName = 'cyl'
        PropertiesClassName = 'TcxSpinEditProperties'
      end
      object tvCarsTransmissSpeedCount: TcxGridDBColumn
        DataBinding.FieldName = 'TransmissSpeedCount'
        PropertiesClassName = 'TcxSpinEditProperties'
        Width = 130
      end
      object tvCarsTransmissAutomatic: TcxGridDBColumn
        Caption = 'Automatic Transmission'
        DataBinding.FieldName = 'TransmissAutomatic'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ValueChecked = 'Yes'
        Properties.ValueUnchecked = 'No'
        Width = 135
      end
      object tvCarsMPG_City: TcxGridDBColumn
        DataBinding.FieldName = 'MPG_City'
        Width = 70
      end
      object tvCarsMPG_Highway: TcxGridDBColumn
        DataBinding.FieldName = 'MPG_Highway'
        Width = 100
      end
      object tvCarsCategory: TcxGridDBColumn
        DataBinding.FieldName = 'Category'
        Width = 70
      end
      object tvCarsDescription: TcxGridDBColumn
        DataBinding.FieldName = 'Description'
        PropertiesClassName = 'TcxBlobEditProperties'
        Properties.BlobEditKind = bekMemo
        Properties.MemoScrollBars = ssVertical
      end
      object tvCarsHyperlink: TcxGridDBColumn
        DataBinding.FieldName = 'Hyperlink'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
        Width = 150
      end
      object tvCarsPrice: TcxGridDBColumn
        DataBinding.FieldName = 'Price'
        PropertiesClassName = 'TcxCurrencyEditProperties'
        Properties.Alignment.Horz = taRightJustify
        Properties.ValidateOnEnter = True
        Width = 80
      end
    end
    object tvOrders: TcxGridDBTableView
      DataController.DataModeController.GridMode = True
      DataController.DataSource = GridModeDemoDataDM.dsOrders
      DataController.DetailKeyFieldNames = 'ProductID'
      DataController.Filter.OnGetValueList = tvDataControllerFilterGetValueList
      DataController.Filter.AutoDataSetFilter = True
      DataController.KeyFieldNames = 'ID'
      DataController.MasterKeyFieldNames = 'ID'
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'CustomerID'
          Column = tvOrdersCustomerID
        end
        item
          Kind = skSum
          FieldName = 'PaymentAmount'
          Column = tvOrdersPaymentAmount
        end
        item
          Kind = skMax
          FieldName = 'PurchaseDate'
          Column = tvOrdersPurchaseDate
        end>
      DataController.Summary.SummaryGroups = <>
      NavigatorButtons.ConfirmDelete = False
      OptionsBehavior.FocusCellOnTab = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsCustomize.ColumnSorting = False
      OptionsView.CellAutoHeight = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Styles.StyleSheet = GridModeDemoDataDM.GridTableViewStyleSheetDevExpress
      object tvOrdersCustomerID: TcxGridDBColumn
        Caption = 'Company'
        DataBinding.FieldName = 'CustomerID'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ID'
        Properties.ListColumns = <
          item
            FieldName = 'Company'
          end>
        Properties.ListOptions.AnsiSort = True
        Properties.ListOptions.CaseInsensitive = True
        Properties.ListOptions.GridLines = glNone
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = GridModeDemoDataDM.dsCustomers
        Properties.MaxLength = 50
        Options.Sorting = False
        Width = 100
      end
      object tvOrdersPurchaseDate: TcxGridDBColumn
        DataBinding.FieldName = 'PurchaseDate'
        PropertiesClassName = 'TcxDateEditProperties'
        Width = 60
      end
      object tvOrdersPaymentType: TcxGridDBColumn
        DataBinding.FieldName = 'PaymentType'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Alignment.Vert = taVCenter
        Properties.Images = GridModeDemoDataDM.PaymentTypeImages
        Properties.Items = <
          item
            Description = 'Am. Express'
            ImageIndex = 3
            Value = 'AmEx'
          end
          item
            Description = 'Cash'
            ImageIndex = 0
            Value = 'Cash'
          end
          item
            Description = 'Master'
            ImageIndex = 2
            Value = 'Master'
          end
          item
            Description = 'Visa'
            ImageIndex = 1
            Value = 'Visa'
          end>
      end
      object tvOrdersPaymentAmount: TcxGridDBColumn
        DataBinding.FieldName = 'PaymentAmount'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.Alignment.Horz = taRightJustify
      end
    end
    object lvCars: TcxGridLevel
      GridView = tvCars
      MaxDetailHeight = 300
      object lvOrders: TcxGridLevel
        GridView = tvOrders
      end
    end
  end
  object pnlPopulate: TPanel
    Left = 0
    Top = 25
    Width = 864
    Height = 40
    Align = alTop
    BevelOuter = bvNone
    Color = 4707838
    TabOrder = 2
    object btnPopulate: TcxButton
      Left = 8
      Top = 8
      Width = 153
      Height = 25
      Hint = 'Click here to populate the Orders table (100000 records)'
      Caption = 'Add about 100,000 orders'
      TabOrder = 0
      OnClick = btnPopulateClick
      Colors.Default = 16247513
      Colors.Normal = 16247513
    end
    object pnlProgress: TPanel
      Left = 176
      Top = 8
      Width = 681
      Height = 25
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = 'Please wait ...'
      ParentColor = True
      TabOrder = 1
      Visible = False
      object ProgressBar: TProgressBar
        Left = 77
        Top = 3
        Width = 596
        Height = 17
        Min = 0
        Max = 1000
        Smooth = True
        Step = 1
        TabOrder = 0
      end
    end
  end
  object mmMain: TMainMenu
    Left = 504
    Top = 24
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Press to quit the demo-program'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = 'Options'
      object miCustomizeViews: TMenuItem
        Caption = 'Customize &Views'
        object miCalculateSummaries: TMenuItem
          Caption = 'Calculate &Summaries'
          Hint = 'Summary calculation. If checked, the demo will work more slowly'
          OnClick = miCalculateSummariesClick
        end
        object miEnableSorting: TMenuItem
          Caption = 'Enable S&orting'
          Hint = 'Enable Sorting. If checked, the demo will work more slowly'
          OnClick = miEnableSortingClick
        end
        object miEnableFiltering: TMenuItem
          Caption = 'Enable &Filtering'
          Hint = 'Enable Filtering. If checked, the demo will work more slowly'
          OnClick = miEnableFilteringClick
        end
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miRecreateDB: TMenuItem
        Caption = 'Re&create the database'
        OnClick = miRecreateDBClick
      end
    end
    object miAbout: TMenuItem
      Caption = '&About this demo'
      Hint = 'Displays the brief description of the current demo features'
      OnClick = miAboutClick
    end
  end
  object LookAndFeelController: TcxLookAndFeelController
    NativeStyle = True
    Left = 408
    Top = 25
  end
end