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 = [fsBold] ParentShowHint = False ShowHint = True Tabs.Strings = ( 'By &Value' 'By &Range') TabIndex = 0 OnChange = ValueRangeTabSetChange end object FieldTabSet: TTabSet Left = 8 Top = 179 Width = 165 Height = 17 Hint = 'Show all fields or only currently searched fields' DitherBackground = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentShowHint = False ShowHint = True Tabs.Strings = ( '&All' '&Searched') TabIndex = 0 OnChange = FieldTabSetChange end end