filtercontroldemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object FilterControlDemoMainForm: TFilterControlDemoMainForm
  Left = 50
  Top = 113
  Width = 953
  Height = 574
  ActiveControl = pnlFilterDialog
  Caption = 'ExpressQuantumGrid Filter Control 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
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescription: TLabel
    Left = 0
    Top = 0
    Width = 945
    Height = 25
    Align = alTop
    AutoSize = False
    Caption = 
      'This demo shows use of the FilterControl with EQGrid and also wi' +
      'th a standard DBGrid. Click '#39'About this demo'#39' for more informati' +
      'on.'
    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 Splitter: TSplitter
    Left = 401
    Top = 25
    Height = 476
    Beveled = True
    ResizeStyle = rsLine
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 501
    Width = 945
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object PageControl: TPageControl
    Left = 404
    Top = 25
    Width = 541
    Height = 476
    ActivePage = tsGrid4DisplayStyle
    Align = alClient
    MultiLine = True
    TabOrder = 1
    OnChange = PageControlChange
    object tsGrid4DisplayStyle: TTabSheet
      Caption = 'Filtered EQGrid'
      object Grid: TcxGrid
        Left = 0
        Top = 0
        Width = 533
        Height = 448
        Align = alClient
        TabOrder = 0
        object tvOrders: TcxGridDBTableView
          DataController.DataSource = FilterControlDemoDataDM.dsOrders
          DataController.DetailKeyFieldNames = 'ProductID'
          DataController.Filter.OnChanged = tvOrdersDataControllerFilterChanged
          DataController.Filter.Active = True
          DataController.KeyFieldNames = 'ID'
          DataController.MasterKeyFieldNames = 'ID'
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          NavigatorButtons.ConfirmDelete = False
          OptionsBehavior.FocusCellOnTab = True
          OptionsView.CellAutoHeight = True
          OptionsView.Indicator = True
          Styles.StyleSheet = FilterControlDemoDataDM.GridTableViewStyleSheetDevExpress
          OnFilterControlDialogShow = tvOrdersFilterControlDialogShow
          object tvOrdersCustomerID: TcxGridDBColumn
            Caption = 'Company'
            DataBinding.FieldName = 'CustomerID'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'ID'
            Properties.ListColumns = <
              item
                FieldName = 'Company'
              end>
            Properties.ListSource = FilterControlDemoDataDM.dsCustomers
            Width = 150
          end
          object tvOrdersProductID: TcxGridDBColumn
            Caption = 'Car'
            DataBinding.FieldName = 'ProductID'
            PropertiesClassName = 'TcxLookupComboBoxProperties'
            Properties.KeyFieldNames = 'ID'
            Properties.ListColumns = <
              item
                FieldName = 'Name'
              end>
            Properties.ListSource = FilterControlDemoDataDM.dsCars
            Width = 200
          end
          object tvOrdersPurchaseDate: TcxGridDBColumn
            DataBinding.FieldName = 'PurchaseDate'
            PropertiesClassName = 'TcxDateEditProperties'
            Width = 101
          end
          object tvOrdersTime: TcxGridDBColumn
            DataBinding.FieldName = 'Time'
            PropertiesClassName = 'TcxTimeEditProperties'
            Properties.AssignedValues.MinValue = True
            Properties.TimeFormat = tfHourMin
            Width = 68
          end
          object tvOrdersPaymentAmount: TcxGridDBColumn
            DataBinding.FieldName = 'PaymentAmount'
            PropertiesClassName = 'TcxCalcEditProperties'
            Properties.Alignment.Horz = taRightJustify
            Width = 111
          end
          object tvOrdersPaymentType: TcxGridDBColumn
            DataBinding.FieldName = 'PaymentType'
            PropertiesClassName = 'TcxImageComboBoxProperties'
            Properties.Alignment.Vert = taVCenter
            Properties.Images = FilterControlDemoDataDM.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>
            Width = 100
          end
          object tvOrdersQuantity: TcxGridDBColumn
            DataBinding.FieldName = 'Quantity'
            PropertiesClassName = 'TcxSpinEditProperties'
            Width = 83
          end
        end
        object lvOrders: TcxGridLevel
          GridView = tvOrders
        end
      end
    end
    object tsStandardDisplayStyle: TTabSheet
      Caption = 'Standard DBGrid using the FilterControl'
      ImageIndex = 1
      object Label1: TLabel
        Left = 0
        Top = 408
        Width = 533
        Height = 40
        Align = alBottom
        AutoSize = False
        Caption = 
          'Note that, although our filter control will work with a standard' +
          ' grid, you do not have the cool built in functionality provided ' +
          'by ExpressQuantumGrid'
        Color = 4707838
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object DBGrid: TDBGrid
        Left = 0
        Top = 0
        Width = 533
        Height = 408
        Align = alClient
        Color = 16247513
        DataSource = FilterControlDemoDataDM.dsOrdersStd
        FixedColor = 12937777
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWhite
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
      end
    end
  end
  object pnlFilterDialog: TPanel
    Left = 0
    Top = 25
    Width = 401
    Height = 476
    Align = alLeft
    BevelOuter = bvNone
    Color = 16247513
    Constraints.MinHeight = 150
    Constraints.MinWidth = 225
    TabOrder = 2
    object cxFilterControl: TcxFilterControl
      Left = 0
      Top = 0
      Width = 233
      Height = 161
      LinkComponent = tvOrders
      TabOrder = 0
      TabStop = True
      OnApplyFilter = cxFilterControlApplyFilter
    end
    object pnlButtons: TPanel
      Left = 0
      Top = 424
      Width = 401
      Height = 52
      Align = alBottom
      BevelOuter = bvNone
      Color = 16247513
      TabOrder = 2
      object btnLoad: TcxButton
        Left = 8
        Top = 16
        Width = 65
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Load...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = btnLoadClick
        Colors.Default = 15451300
        Colors.Normal = 15451300
        Colors.Pressed = 15451300
      end
      object btnSaveAs: TcxButton
        Left = 80
        Top = 16
        Width = 65
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Save As...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = btnSaveAsClick
        Colors.Default = 15451300
        Colors.Normal = 15451300
        Colors.Pressed = 15451300
      end
      object btnApply: TcxButton
        Left = 328
        Top = 16
        Width = 65
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = 'Apply'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'