PC World 2001 April/PCWorld_2001-04_cd.bin/Software/TemaCD/xnews/Xnews.exe/0/RCDATA/TFMSEARCH/TFMSEARCH.txt

Text File | 2001-01-31 | 6KB | 288 lines

object fmSearch: TfmSearch
  Left = 264
  Top = 223
  Width = 530
  Height = 380
  ActiveControl = coSearch
  Caption = 'Search in folders'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBtnText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel0: TPanel
    Left = 0
    Top = 322
    Width = 522
    Height = 27
    Align = alBottom
    BevelOuter = bvNone
    Caption = 'Panel0'
    TabOrder = 2
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 241
      Height = 27
      Align = alLeft
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 241
      Top = 0
      Width = 281
      Height = 27
      Align = alClient
      BevelInner = bvLowered
      BorderWidth = 2
      Caption = 'Panel3'
      TabOrder = 1
      object Gauge: TProgress
        Left = 4
        Top = 4
        Width = 273
        Height = 19
        Align = alClient
        Color = clSilver
        Enabled = False
        HintIsText = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -17
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ForeColor = clRed
        BackColor = clBlack
        ParentColor = False
        ParentFont = False
        Progress = 0
        UpdateFrequency = 500
        UseDockManager = False
        TabOrder = 0
      end
    end
  end
  object pnTop: TPanel
    Left = 0
    Top = 0
    Width = 522
    Height = 145
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = True
    OnResize = pnTopResize
    object Label1: TLabel
      Left = 10
      Top = 12
      Width = 64
      Height = 16
      Caption = '&Text to find'
    end
    object bGo: TButton
      Left = 416
      Top = 10
      Width = 97
      Height = 25
      Hint = 'Start or continue search'
      Anchors = [akTop, akRight]
      Caption = '&Start'
      Default = True
      Enabled = False
      TabOrder = 1
      OnClick = bGoClick
    end
    object bClose: TButton
      Left = 416
      Top = 42
      Width = 97
      Height = 25
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = '&Close'
      TabOrder = 5
      OnClick = bCloseClick
    end
    object coSearch: TMyComboBox
      Left = 89
      Top = 9
      Width = 313
      Height = 24
      Hint = 'Enter search regex'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnChange = coSearchChange
      RegKey = 'Software\Xnews\coSearch'
    end
    object cbLarge: TCheckBox
      Left = 368
      Top = 76
      Width = 137
      Height = 17
      Hint = 'Skip articles >1000 lines'
      Anchors = [akTop, akRight]
      Caption = 'Skip large articles'
      Checked = True
      State = cbChecked
      TabOrder = 6
    end
    object lvWhere: TMyListView
      Left = 88
      Top = 48
      Width = 250
      Height = 87
      Checkboxes = True
      Columns = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      GridLines = True
      HideSelection = False
      HotTrackStyles = []
      ReadOnly = True
      RowSelect = True
      ParentFont = False
      PopupMenu = Menu
      TabOrder = 3
      ViewStyle = vsSmallIcon
    end
    object bRefresh: TButton
      Left = 16
      Top = 112
      Width = 65
      Height = 25
      Hint = 'Refresh list of folders'
      Caption = 'Refresh'
      TabOrder = 4
      OnClick = bRefreshClick
    end
    object bWhere: TButton
      Left = 16
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Search in'
      TabOrder = 2
      OnClick = bWhereClick
    end
    object cbOneMatch: TCheckBox
      Left = 368
      Top = 98
      Width = 137
      Height = 17
      Hint = 'Find only first occurence in article'
      Anchors = [akTop, akRight]
      Caption = '1 match per article'
      TabOrder = 7
    end
    object cbCase: TCheckBox
      Left = 368
      Top = 120
      Width = 137
      Height = 17
      Hint = 'Find only first occurence in article'
      Anchors = [akTop, akRight]
      Caption = 'Case sensitive'
      TabOrder = 8
    end
  end
  object LV: TMyListView
    Left = 0
    Top = 145
    Width = 522
    Height = 177
    Align = alClient
    Columns = <
      item
        Caption = 'Folder'
        Width = 100
      end
      item
        Caption = 'Subject'
        Width = 230
      end
      item
        Caption = 'From'
        Width = 100
      end
      item
        Caption = 'Pos'
        Width = 55
      end
      item
        Caption = 'Length'
        Width = 55
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    GridLines = True
    HideSelection = False
    HotTrackStyles = []
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = LVDblClick
  end
  object Menu: TPopupMenu
    Left = 40
    Top = 72
    object miSelectall: TMenuItem
      Caption = '&All folders'
      OnClick = miSelect
    end
    object miSelectopened: TMenuItem
      Caption = '&Opened folders'
      OnClick = miSelectopenedClick
    end
    object miClearall: TMenuItem
      Caption = '&Clear all'
      OnClick = miSelect
    end
    object miInvert: TMenuItem
      Caption = '&Invert selection'
      OnClick = miSelect
    end
  end
end