Do It Yourself Pak/Do_ItPak1.iso/meshindex.exe/0/RCDATA/TWWFILTERDLG/TWWFILTERDLG.txt

Text File | 1999-12-06 | 9KB | 342 lines

object wwFilterDlg: TwwFilterDlg
  Left = 219
  Top = 165
  BorderStyle = bsDialog
  Caption = 'Super Search'
  ClientHeight = 240
  ClientWidth = 476
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  KeyPreview = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object FieldsLbl: TLabel
    Left = 8
    Top = 4
    Width = 34
    Height = 13
    Caption = '&Fields'
    FocusControl = FieldsListBox
  end
  object FieldsListBox: TListBox
    Left = 8
    Top = 20
    Width = 165
    Height = 160
    ItemHeight = 13
    TabOrder = 0
    OnClick = FieldsListBoxClick
  end
  object FieldOrder: TRadioGroup
    Left = 5
    Top = 201
    Width = 170
    Height = 37
    Hint = 'Sort field list alphabetically or in their natural logical order'
    Caption = 'Field Order'
    Columns = 2
    ItemIndex = 1
    Items.Strings = (
      'Alpha&betic'
      '&Logical')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = FieldOrderClick
  end
  object FieldCriteria: TGroupBox
    Left = 180
    Top = 3
    Width = 205
    Height = 179
    TabOrder = 1
    object SelectNotebook: TNotebook
      Left = 2
      Top = 15
      Width = 201
      Height = 162
      Align = alClient
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'AsString'
        object FieldValueLbl: TLabel
          Left = 8
          Top = 7
          Width = 64
          Height = 13
          Caption = 'Field &Value'
          FocusControl = FilterValueEdit
        end
        object MatchTypeGroup: TRadioGroup
          Left = 8
          Top = 48
          Width = 182
          Height = 73
          Hint = 'Specify how the Field Value should be compared'
          Caption = 'Search Type'
          Items.Strings = (
            '&Exact Match'
            '&Partial Match at Beginning'
            'Partial Match Any&where')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = MatchTypeGroupClick
        end
        object Panel1: TPanel
          Left = 8
          Top = 118
          Width = 182
          Height = 42
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 2
          object CaseSensitive: TCheckBox
            Left = 9
            Top = 6
            Width = 164
            Height = 14
            Hint = 'Searching is case-sensitive'
            Caption = 'Case Sensi&tive'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
          end
          object Nonmatching: TCheckBox
            Left = 9
            Top = 22
            Width = 168
            Height = 17
            Hint = 'Show records that do not match the field value criteria'
            Caption = 'N&on-matching records'
            TabOrder = 1
          end
        end
        object FilterValueClearButton: TBitBtn
          Left = 144
          Top = 23
          Width = 45
          Height = 21
          Hint = 'Clear the current field'#39's search value'
          Caption = '&Clear'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = FilterValueClearButtonClick
          NumGlyphs = 2
        end
        object FilterValueCombo: TwwDBComboBox
          Left = 8
          Top = 22
          Width = 133
          Height = 21
          Hint = 'Enter field'#39's search value'
          ShowButton = False
          Style = csDropDown
          MapList = False
          AllowClearKey = False
          AutoSize = False
          DropDownCount = 8
          ItemHeight = 0
          ParentShowHint = False
          ShowHint = True
          Sorted = False
          TabOrder = 3
          UnboundDataType = wwDefault
          OnChange = FilterValueComboChange
        end
        object FilterValueEdit: TwwDBEdit
          Left = 8
          Top = 22
          Width = 133
          Height = 21
          Hint = 'Enter field'#39's search value'
          AutoSize = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
          OnChange = FilterValueComboChange
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'asValue'
        object StartingRangeLbl: TLabel
          Left = 7
          Top = 9
          Width = 86
          Height = 13
          Caption = '&Starting Range'
          FocusControl = MinValueEdit
        end
        object EndingRangeLbl: TLabel
          Left = 7
          Top = 52
          Width = 81
          Height = 13
          Caption = 'En&ding Range'
          FocusControl = MaxValueEdit
        end
        object MinValueEdit: TEdit
          Left = 7
          Top = 24
          Width = 140
          Height = 21
          Hint = 'Enter starting range for field'
          AutoSize = False
          TabOrder = 0
          OnChange = MinValueEditChange
        end
        object MaxValueEdit: TEdit
          Left = 7
          Top = 67
          Width = 140
          Height = 21
          Hint = 'Enter ending range for field'
          AutoSize = False
          TabOrder = 1
          OnChange = MaxValueEditChange
        end
        object MinValueClearButton: TBitBtn
          Left = 152
          Top = 24
          Width = 45
          Height = 21
          Hint = 'Clear starting range for field'
          Caption = '&Clear'
          Enabled = False
          TabOrder = 2
          OnClick = MinValueClearButtonClick
          NumGlyphs = 2
        end
        object MaxValueClearButton: TBitBtn
          Left = 152
          Top = 68
          Width = 45
          Height = 21
          Hint = 'Clear ending range for field'
          Caption = 'Cl&ear'
          Enabled = False
          TabOrder = 3
          OnClick = MaxValueClearButtonClick
          NumGlyphs = 2
        end
        object MinDateEdit: TwwDBDateTimePicker
          Left = 7
          Top = 24
          Width = 140
          Height = 21
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          Epoch = 1950
          ShowButton = True
          TabOrder = 4
          OnChange = MinValueEditChange
        end
        object MaxDateEdit: TwwDBDateTimePicker
          Left = 7
          Top = 67
          Width = 140
          Height = 21
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          Epoch = 1950
          ShowButton = True
          TabOrder = 5
          OnChange = MaxValueEditChange
        end
      end
    end
  end
  object ClearSearchButton: TButton
    Left = 284
    Top = 209
    Width = 95
    Height = 25
    Hint = 'Start a new search'
    Caption = '&New Search'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TabStop = False
    OnClick = ClearSearchButtonClick
  end
  object ViewButton: TButton
    Left = 180
    Top = 209
    Width = 95
    Height = 25
    Hint = 'View summary of current search criteria'
    Caption = 'View Su&mmary'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TabStop = False
    OnClick = ViewButtonClick
  end
  object ValueRangeTabSet: TTabSet
    Left = 180
    Top = 180
    Width = 199
    Height = 21
    Hint = 'Search fields by value or by range'
    DitherBackground = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [