filtercontroldemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = btnApplyClick
        Colors.Default = 15451300
        Colors.Normal = 15451300
        Colors.Pressed = 15451300
      end
      object btnOK: TcxButton
        Left = 168
        Top = 16
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = 'OK'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ModalResult = 1
        ParentFont = False
        TabOrder = 3
        Visible = False
        OnClick = btnApplyClick
        Colors.Default = 15451300
        Colors.Normal = 15451300
        Colors.Pressed = 15451300
      end
      object btnCancel: TcxButton
        Left = 248
        Top = 16
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = 'Cancel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ModalResult = 2
        ParentFont = False
        TabOrder = 4
        Visible = False
        Colors.Default = 15451300
        Colors.Normal = 15451300
        Colors.Pressed = 15451300
      end
    end
    object cxDBFilterControl: TcxDBFilterControl
      Left = 0
      Top = 184
      Width = 233
      Height = 201
      DataSet = FilterControlDemoDataDM.tblOrdersStd
      Items = <
        item
          Caption = 'Car'
          FieldName = 'ProductID'
          RepositoryItem = CarsEditorItem
        end
        item
          FieldName = 'PurchaseDate'
          PropertiesClassName = 'TcxDateEditProperties'
        end
        item
          FieldName = 'Time'
          PropertiesClassName = 'TcxTimeEditProperties'
          Properties.AssignedValues.MinValue = True
        end
        item
          FieldName = 'Quantity'
          PropertiesClassName = 'TcxSpinEditProperties'
        end
        item
          Caption = 'Company'
          FieldName = 'CustomerID'
          RepositoryItem = CustomersEditorItem
        end
        item
          Caption = 'Payment Amount'
          FieldName = 'PaymentAmount'
          PropertiesClassName = 'TcxCalcEditProperties'
        end>
      TabOrder = 1
      TabStop = True
      Visible = False
      OnApplyFilter = cxDBFilterControlApplyFilter
    end
  end
  object mmMain: TMainMenu
    Left = 448
    Top = 8
    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 miFilterControl: TMenuItem
        Caption = '&Filter Dialog'
        object miFilterControlPosition: TMenuItem
          Caption = '&Position'
          object miFiltConrolNone: TMenuItem
            Caption = '&None'
            GroupIndex = 1
            Hint = 'Setting this option hides the filter dialog '
            RadioItem = True
            OnClick = miFiltConrolPosClick
          end
          object miFiltConrolLeft: TMenuItem
            Tag = 1
            Caption = '&Left'
            Checked = True
            GroupIndex = 1
            Hint = 'Setting this option aligns the filter dialog to the left'
            RadioItem = True
            OnClick = miFiltConrolPosClick
          end
          object miFiltConrolTop: TMenuItem
            Tag = 2
            Caption = '&Top'
            GroupIndex = 1
            Hint = 'Setting this option aligns the filter dialog to the top'
            RadioItem = True
            OnClick = miFiltConrolPosClick
          end
        end
        object N2: TMenuItem
          Caption = '-'
        end
        object miFillterControlModal: TMenuItem
          Caption = 'Show &modal'
          Hint = 'Setting this option displays the modal filter dialog'
          OnClick = miFillterControlModalClick
        end
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miLookAndFeel: TMenuItem
        Caption = '&Look&&Feel'
        object miKind: TMenuItem
          Caption = '&Kind'
          object miFlat: TMenuItem
            Caption = '&Flat'
            GroupIndex = 1
            Hint = 
              'Setting this option changes the grid view appearance to Flat sty' +
              'le'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miStandard: TMenuItem
            Caption = '&Standard'
            GroupIndex = 1
            Hint = 
              'Setting this option changes the grid view appearance to Standard' +
              ' style'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miUltraFlat: TMenuItem
            Caption = '&Ultra Flat'
            Checked = True
            GroupIndex = 1
            Hint = 
              'Setting this option changes the grid view appearance to Ultra Fl' +
              'at style'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
          object miOffice11: TMenuItem
            Tag = 3
            Caption = '&Office11'
            GroupIndex = 1
            Hint = 
              'Setting this option changes the grid view appearance to Office11' +
              ' style'
            RadioItem = True
            OnClick = miLookAndFeelKindClick
          end
        end
        object miNativeStyle: TMenuItem
          Caption = '&Native Style'
          Checked = True
          Hint = 
            'Setting this option changes the appearance of grid items to Nati' +
            've style'
          OnClick = miNativeStyleClick
        end
      end
    end
    object miAbout: TMenuItem
      Caption = '&About this demo'
      Hint = 'Displays the brief description of the current demo features'
      OnClick = miAboutClick
    end
  end
  object cxGridPopupMenu1: TcxGridPopupMenu
    Grid = Grid
    PopupMenus = <
      item
        GridView = tvOrders
        HitTypes = [gvhtColumnHeader]
        Index = 0
        PopupMenu = PopupMenu
      end>
    UseBuiltInPopupMenus = False
    Left = 416
    Top = 8
  end
  object OpenDialog: TOpenDialog
    Filter = 'GridFilters(*.flt)|*.flt|All files|*.*'
    Left = 720
  end
  object SaveDialog: TSaveDialog
    Filter = 'Filters(*.flt)|*.flt'
    Left = 688
  end
  object LookAndFeelController: TcxLookAndFeelController
    NativeStyle = True
    Left = 136
    Top = 416
  end
  object PopupMenu: TPopupMenu
    Left = 416
    Top = 40
    object miShowFilterPanel: TMenuItem
      Caption = 'Show filter &panel'
      object miFilterPnlNever: TMenuItem
        Caption = '&Never'
        GroupIndex = 1
        Hint = 'Setting this option hides the filter panel '
        RadioItem = True
        OnClick = miShowFilterPnlClick
      end
      object miFilterPnlNeverNonEmpty: TMenuItem
        Tag = 1
        Caption = 'Non &Empty'
        GroupIndex = 1
        Hint = 
          'Setting this option makes the filter panel visible if filter is ' +
          'non empty'
        RadioItem = True
        OnClick = miShowFilterPnlClick
      end
      object miFilterPnlAlways: TMenuItem
        Tag = 2
        Caption = '&Always'
        Checked = True
        GroupIndex = 1
        Hint = 'Displays the brief description of the current demo features'
        RadioItem = True
        OnClick = miShowFilterPnlClick
      end
    end
    object miShowFilterBtn: TMenuItem
      Caption = 'Show customize filter &button'
      Checked = True
      OnClick = miShowFilterBtnClick
    end
  end
  object cxEditRepository: TcxEditRepository
    Left = 480
    Top = 8
    object CustomersEditorItem: TcxEditRepositoryLookupComboBoxItem
      Properties.Alignment.Horz = taLeftJustify
      Properties.DropDownWidth = 150
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'Company'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListSource = FilterControlDemoDataDM.dsCustomers
      Properties.PopupAlignment = taRightJustify
    end
    object CarsEditorItem: TcxEditRepositoryLookupComboBoxItem
      Properties.DropDownWidth = 300
      Properties.KeyFieldNames = 'ID'
      Properties.ListColumns = <
        item
          FieldName = 'Name'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListSource = FilterControlDemoDataDM.dsCars
      Properties.PopupAlignment = taRightJustify
    end
  end
end