object fmXPat: TfmXPat Left = 239 Top = 269 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'XPAT Search' ClientHeight = 236 ClientWidth = 469 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnKeyPress = FormKeyPress OnShow = edRangeChange PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 16 Top = 18 Width = 64 Height = 16 Caption = 'Search for:' end object Label2: TLabel Left = 104 Top = 45 Width = 106 Height = 16 Caption = 'Example: *xnews*' end object Label3: TLabel Left = 30 Top = 200 Width = 78 Height = 16 Caption = 'Assign score' end object Label4: TLabel Left = 16 Top = 76 Width = 41 Height = 16 Caption = 'Range' end object lbRange: TLabel Left = 248 Top = 76 Width = 3 Height = 16 end object coXPat: TMyComboBox Left = 88 Top = 16 Width = 361 Height = 24 Hint = 'Enter one or more wildcard patterns, separate by space' DropDownCount = 10 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentFont = False TabOrder = 0 RegKey = 'Software\Xnews\coXPat' end object rgHeader: TRadioGroup Left = 16 Top = 105 Width = 433 Height = 80 Caption = 'Search header' Columns = 3 ItemIndex = 0 Items.Strings = ( 'Subject' 'From' 'References' 'Message-ID' 'Keyword' 'Organization') TabOrder = 1 end object bOkay: TButton Left = 280 Top = 199 Width = 75 Height = 25 Caption = 'Okay' Default = True ModalResult = 1 TabOrder = 3 end object bCancel: TButton Left = 376 Top = 199 Width = 75 Height = 25 Caption = 'Cancel' ModalResult = 2 TabOrder = 4 end object edScore: TSpinEdit Left = 120 Top = 198 Width = 81 Height = 26 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] MaxValue = 20000 MinValue = -20000 ParentFont = False TabOrder = 2 Value = 0 end object cbCase: TCheckBox Left = 335 Top = 45 Width = 111 Height = 19 Caption = 'Case sensitive' TabOrder = 5 end object edRange: TEdit Left = 88 Top = 71 Width = 145 Height = 24 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnChange = edRangeChange end end