object SaveFilterDemo: TSaveFilterDemo
  Left = 305
  Top = 159
  Caption = 'Saving and restoring a filter'
  ClientHeight = 266
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 0
    Width = 419
    Height = 192
    Selected.Strings = (
      'Customer No'#9'10'#9'Customer No'
      'Buyer'#9'5'#9'Buyer'
      'Company Name'#9'26'#9'Company Name'
      'First Name'#9'25'#9'First Name'
      'Last Name'#9'25'#9'Last Name'
      'Street'#9'60'#9'Street'
      'City'#9'25'#9'City'
      'State'#9'25'#9'State'
      'Zip'#9'10'#9'Zip'
      'First Contact Date'#9'14'#9'First Contact Date'
      'Phone Number'#9'20'#9'Phone Number'
      'Information'#9'10'#9'Information'
      'Requested Demo'#9'14'#9'Requested Demo'
      'Logical'#9'6'#9'Logical')
    IniAttributes.FileName = 'delphi32.ini'
    IniAttributes.SectionName = 'SaveFilterDemowwDBGrid1'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alTop
    DataSource = wwDataSource1
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  object Memo1: TMemo
    Left = 5
    Top = 200
    Width = 417
    Height = 73
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    Lines.Strings = (
      
        'Your end-users may wish to use the InfoPower FilterDialog to cre' +
        'ate some'
      
        'common search criteria that they wish to restore later.  This ex' +
        'ample'
      'shows how you can save and restore named filters to a text file.'
      ''
      'Just click on the Filter Menu at the top.')
    ParentFont = False
    TabOrder = 1
  end
  object wwFilterDialog1: TwwFilterDialog
    DataSource = wwDataSource1
    Options = [fdShowCaseSensitive, fdShowOKCancel, fdShowViewSummary, fdShowFieldOrder, fdShowValueRangeTab, fdShowNonMatching]
    SortBy = fdSortByFieldNo
    FilterMethod = fdByFilter
    DefaultMatchType = fdMatchStart
    DefaultFilterBy = fdSmartFilter
    FieldOperators.OrChar = 'or'
    FieldOperators.AndChar = 'and'
    FieldOperators.NullChar = 'null'
    Rounding.Epsilon = 0.000100000000000000
    Rounding.RoundingMethod = fdrmFixed
    FilterPropertyOptions.LikeWildcardChar = '%'
    FilterOptimization = fdNone
    QueryFormatDateMode = qfdMonthDayYear
    SQLTables = <>
    Left = 48
    Top = 8
  end
  object wwDataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 16
    Top = 48
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 8
    object Filter1: TMenuItem
      Caption = '&Filter'
      object Filter2: TMenuItem
        Caption = 'Filter ...'
        OnClick = Filter2Click
      end
      object ClearFilter1: TMenuItem
        Caption = 'Clear Filter'
        OnClick = ClearFilter1Click
      end
      object LoadFilter1: TMenuItem
        Caption = 'Load Filter ...'
        OnClick = LoadFilter1Click
      end
      object SaveFilter1: TMenuItem
        Caption = '&Save Filter ...'
        OnClick = SaveFilter1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Customer No'
        Attributes = [faUnNamed]
        DataType = ftInteger
      end
      item
        Name = 'Buyer'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Company Name'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 40
      end
      item
        Name = 'First Name'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Last Name'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Street'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 60
      end
      item
        Name = 'City'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'State'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Zip'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'First Contact Date'
        Attributes = [faUnNamed]
        DataType = ftDate
      end
      item
        Name = 'Phone Number'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Information'
        Attributes = [faUnNamed]
        DataType = ftMemo
        Size = 80
      end
      item
        Name = 'RichEdit'
        Attributes = [faUnNamed]
        DataType = ftBlob
        Size = 80
      end
      item
        Name = 'Requested Demo'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Logical'
        Attributes = [faUnNamed]
        DataType = ftBoolean
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 48
    Top = 48
    Data = {
      [encoded data, 34368 characters]
      4C0532343331318D1C0B00083332342D33323432024E6F}
  end
end
