object FormFilters: TFormFilters
  Left = 143
  Height = 546
  Top = 28
  Width = 877
  HorzScrollBar.Page = 795
  VertScrollBar.Page = 427
  ActiveControl = Panel1
  AutoScroll = True
  Caption = 'Custom Filter'
  ClientHeight = 546
  ClientWidth = 877
  SessionProperties = 'DBGridFilters.Columns;PairSplitter1.Position;PairSplitter3.Position;PairSplitter4.Position;Width;Height'
  LCLVersion = '8.0'
  object Panel1: TPanel
    Left = 0
    Height = 546
    Top = 0
    Width = 877
    Align = alClient
    ClientHeight = 546
    ClientWidth = 877
    TabOrder = 0
    object PairSplitter1: TPairSplitter
      Cursor = crVSplit
      Left = 1
      Height = 544
      Top = 1
      Width = 875
      Align = alClient
      Position = 220
      SplitterType = pstVertical
      object PairSplitterSide1: TPairSplitterSide
        Cursor = crArrow
        Left = 0
        Height = 220
        Top = 0
        Width = 875
        ClientWidth = 875
        ClientHeight = 220
        object Panel2: TPanel
          Left = 0
          Height = 190
          Top = 30
          Width = 875
          Align = alClient
          Caption = 'Panel2'
          ClientHeight = 190
          ClientWidth = 875
          TabOrder = 0
          object DBNavigatorFilters: TDBNavigator
            Left = 1
            Height = 28
            Top = 1
            Width = 873
            Align = alTop
            BevelOuter = bvNone
            ChildSizing.EnlargeHorizontal = crsScaleChilds
            ChildSizing.EnlargeVertical = crsScaleChilds
            ChildSizing.ShrinkHorizontal = crsScaleChilds
            ChildSizing.ShrinkVertical = crsScaleChilds
            ChildSizing.Layout = cclLeftToRightThenTopToBottom
            ChildSizing.ControlsPerLine = 100
            ClientHeight = 28
            ClientWidth = 873
            DataSource = DatasourceFilters
            Options = []
            TabOrder = 0
          end
          object DBGridFilters: TDBGrid
            Left = 1
            Height = 160
            Top = 29
            Width = 873
            Align = alClient
            Color = clWindow
            Columns = <            
              item
                Color = clSkyBlue
                ReadOnly = True
                Title.Caption = 'Id'
                Width = 27
                FieldName = 'FILTER_ID'
              end            
              item
                Title.Caption = 'FilterName'
                Width = 81
                FieldName = 'FilterName'
              end            
              item
                Title.Caption = 'Comment'
                Width = 73
                FieldName = 'FilterComment'
              end>
            DataSource = DatasourceFilters
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderHotTracking, dgHeaderPushedLook, dgAutoSizeColumns]
            TabOrder = 1
          end
        end
        object Panel19: TPanel
          Left = 0
          Height = 30
          Top = 0
          Width = 875
          Align = alTop
          BevelOuter = bvNone
          Caption = 'Saved Filters'
          TabOrder = 1
        end
      end
      object PairSplitterSide2: TPairSplitterSide
        Cursor = crArrow
        Left = 0
        Height = 319
        Top = 225
        Width = 875
        ClientWidth = 875
        ClientHeight = 319
        object Panel6: TPanel
          Left = 0
          Height = 184
          Top = 135
          Width = 875
          Align = alClient
          ClientHeight = 184
          ClientWidth = 875
          TabOrder = 0
          object DBMemoFilter: TDBMemo
            Left = 1
            Height = 152
            Top = 31
            Width = 873
            Align = alClient
            DataField = 'FilterText'
            DataSource = DatasourceFilters
            TabOrder = 0
          end
          object Panel4: TPanel
            Left = 1
            Height = 30
            Top = 1
            Width = 873
            Align = alTop
            BevelInner = bvRaised
            BevelOuter = bvNone
            Caption = 'Filter Expression'
            TabOrder = 1
          end
        end
        object Panel3: TPanel
          Left = 0
          Height = 30
          Top = 0
          Width = 875
          Align = alTop
          BevelOuter = bvNone
          Caption = 'Construct And Apply Filter'
          TabOrder = 1
        end
        object Panel5: TPanel
          Left = 0
          Height = 105
          Top = 30
          Width = 875
          Align = alTop
          ClientHeight = 105
          ClientWidth = 875
          TabOrder = 2
          object PairSplitter3: TPairSplitter
            Left = 1
            Height = 103
            Top = 1
            Width = 873
            Align = alClient
            Position = 680
            object PairSplitterSide5: TPairSplitterSide
              Cursor = crArrow
              Left = 0
              Height = 103
              Top = 0
              Width = 680
              ClientWidth = 680
              ClientHeight = 103
              object Panel7: TPanel
                Left = 0
                Height = 103
                Top = 0
                Width = 680
                Align = alClient
                ClientHeight = 103
                ClientWidth = 680
                TabOrder = 0
                object PairSplitter4: TPairSplitter
                  Left = 1
                  Height = 101
                  Top = 1
                  Width = 678
                  Align = alClient
                  Position = 160
                  object PairSplitterSide7: TPairSplitterSide
                    Cursor = crArrow
                    Left = 0
                    Height = 101
                    Top = 0
                    Width = 160
                    ClientWidth = 160
                    ClientHeight = 101
                    object Panel13: TPanel
                      Left = 0
                      Height = 101
                      Top = 0
                      Width = 160
                      Align = alClient
                      ClientHeight = 101
                      ClientWidth = 160
                      TabOrder = 0
                      object ButtonAppendFilterField: TButton
                        Left = 5
                        Height = 40
                        Top = 10
                        Width = 146
                        Anchors = [akTop, akLeft, akRight, akBottom]
                        Caption = 'Append Field'
                        OnClick = ButtonAppendFilterFieldClick
                        ParentFont = False
                        TabOrder = 0
                      end
                      object ButtonAppendFilterExpression: TButton
                        Left = 5
                        Height = 40
                        Top = 56
                        Width = 146
                        Anchors = [akTop, akLeft, akRight, akBottom]
                        Caption = 'Append Expression'
                        OnClick = ButtonAppendFilterExpressionClick
                        TabOrder = 1
                      end
                    end
                  end
                  object PairSplitterSide8: TPairSplitterSide
                    Cursor = crArrow
                    Left = 165
                    Height = 101
                    Top = 0
                    Width = 513
                    ClientWidth = 513
                    ClientHeight = 101
                    object Panel14: TPanel
                      Left = 0
                      Height = 101
                      Top = 0
                      Width = 513
                      Align = alClient
                      ClientHeight = 101
                      ClientWidth = 513
                      TabOrder = 0
                      object Panel8: TPanel
                        Left = 1
                        Height = 49
                        Top = 1
                        Width = 511
                        Align = alTop
                        BevelOuter = bvNone
                        ClientHeight = 49
                        ClientWidth = 511
                        TabOrder = 0
                        object Panel17: TPanel
                          Left = 0
                          Height = 20
                          Top = 0
                          Width = 511
                          Align = alTop
                          BevelOuter = bvNone
                          Caption = 'Choose Fields'
                          TabOrder = 0
                        end
                        object ComboBoxFilterFields: TComboBox
                          Left = 0
                          Height = 29
                          Top = 20
                          Width = 511
                          Align = alClient
                          ItemHeight = 0
                          TabOrder = 1
                          Text = 'ComboBoxFilterFields'
                        end
                      end
                      object Panel9: TPanel
                        Left = 1
                        Height = 50
                        Top = 50
                        Width = 511
                        Align = alClient
                        BevelOuter = bvNone
                        ClientHeight = 50
                        ClientWidth = 511
                        TabOrder = 1
                        object Panel18: TPanel
                          Left = 0
                          Height = 20
                          Top = 0
                          Width = 511
                          Align = alTop
                          BevelOuter = bvNone
                          Caption = 'Choose Expression'
                          TabOrder = 0
                        end
                        object ComboBoxFilterExpressions: TComboBox
                          Left = 0
                          Height = 30
                          Top = 20
                          Width = 511
                          Align = alClient
                          ItemHeight = 0
                          ItemIndex = 0
                          Items.Strings = (
                            '='
                            '<>'
                            '<'
                            '>'
                            '<='
                            '>='
                            'IS NULL'
                            'IS NOT NULL'
                            'AND'
                            'OR'
                            'NOT'
                            '+'
                            '-'
                            '*'
                            '/'
                            'LIKE'
                            'IN'
                            '*'
                            'Upper'
                            'Lower'
                            'SubString'
                            'Trim'
                            'TrimLeft'
                            'TrimRight'
                            'Year'
                            'Month'
                            'Day'
                            'Hour'
                            'Minute'
                            'Second'
                            'GetDate'
                            'Date'
                            'Time'
                          )
                          TabOrder = 1
                          Text = '='
                        end
                      end
                    end
                  end
                end
              end
            end
            object PairSplitterSide6: TPairSplitterSide
              Cursor = crArrow
              Left = 685
              Height = 103
              Top = 0
              Width = 188
              ClientWidth = 188
              ClientHeight = 103
              object Panel10: TPanel
                Left = 0
                Height = 103
                Top = 0
                Width = 188
                Align = alClient
                ClientHeight = 103
                ClientWidth = 188
                TabOrder = 0
                object ButtonApplyFilter: TButton
                  Left = 8
                  Height = 40
                  Top = 8
                  Width = 168
                  Anchors = [akTop, akLeft, akRight, akBottom]
                  Caption = 'Apply Filter'
                  Font.Style = [fsBold]
                  OnClick = ButtonApplyFilterClick
                  ParentFont = False
                  TabOrder = 0
                end
                object ButtonRemoveFilter: TButton
                  Left = 8
                  Height = 40
                  Top = 57
                  Width = 168
                  Anchors = [akTop, akLeft, akRight, akBottom]
                  Caption = 'Remove Filter'
                  Font.Style = [fsBold]
                  OnClick = ButtonRemoveFilterClick
                  ParentFont = False
                  TabOrder = 1
                end
              end
            end
          end
        end
      end
    end
  end
  object DatasourceFilters: TDataSource
    DataSet = DataModule1.Filters
    Left = 19
    Top = 18
  end
end
