customsearchfrm.dfm

《Delphi实例开发教程》源代码包说明

            FFA5A6A5DEA67B636563A5A6A57D552A7B5900CED3D6CED3D6ADFFFFADFFFFAD
            FFFFADFFFFADFFFFADFFFFADFFFFADFFFF7B59007D552AA5A6A5FFFFFFFFFFFF
            A5A6A56334006334007D552A7D552A7D552A7D552A7D552A7D552A7D552A6334
            009C9A9CFFFFFFFFFFFF}
          ParentFont = False
          OnClick = sbSaveIDClick
        end
      end
      inherited PnlNewInput: TPanel
        Width = 220
        Height = 318
        ParentColor = True
        DesignSize = (
          220
          318)
        inherited gbEngineList: TGroupBox
          Left = 8
          Top = 234
          Width = 204
          Height = 84
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #26032#23435#20307
          Font.Style = [fsBold]
          TabOrder = 1
          inherited clbEngine: TCheckListBox
            Top = 14
            Width = 200
            Height = 68
            TabStop = False
            BevelOuter = bvNone
            BevelKind = bkFlat
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ItemHeight = 12
            Items.Strings = (
              #30334#24230
              '21cn'
              #26032#28010
              #25628#29392
              #38597#34382'(Yahoo)')
            ParentFont = False
            OnEnter = leIDEnter
          end
        end
        inherited gbWebTypeList: TGroupBox
          Left = 8
          Top = 149
          Width = 204
          Height = 72
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #26032#23435#20307
          Font.Style = [fsBold]
          TabOrder = 0
          inherited clbWebType: TCheckListBox
            Top = 14
            Width = 200
            Height = 56
            TabStop = False
            BevelOuter = bvNone
            BevelKind = bkFlat
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ItemHeight = 12
            ParentFont = False
            OnEnter = leIDEnter
          end
        end
        inherited pnlInputEdits: TPanel
          Width = 220
          Height = 145
          ParentColor = True
          DesignSize = (
            220
            145)
          inherited pnlTimelimit: TPanel
            Left = 50
            Top = 120
            Width = 121
            ParentColor = True
            inherited lblTimeLimit: TLabel
              Width = 52
              Height = 12
              AutoSize = True
              Font.Color = clWhite
              Font.Name = #23435#20307
              Font.Style = [fsBold]
            end
            inherited Label1: TLabel
              Left = 108
              Width = 13
              Height = 12
              AutoSize = True
              Font.Color = clWhite
              Font.Name = #26032#23435#20307
              Font.Style = [fsBold]
            end
            inherited cbbTimeLimit: TComboBox
              Left = 54
              Width = 45
              BevelInner = bvNone
              BevelKind = bkFlat
              Font.Style = [fsBold]
              ParentFont = False
              TabStop = False
            end
          end
          inherited gbKeyword: TGroupBox
            Left = 8
            Top = 8
            Width = 204
            Anchors = [akLeft, akTop, akRight]
            Font.Color = clWhite
            Font.Height = -12
            Font.Name = #26032#23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            inherited edtKeyword1: TEdit
              Left = 2
              Width = 200
              Height = 20
              Anchors = [akLeft, akTop, akRight]
              BevelKind = bkFlat
              BevelOuter = bvNone
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = #26032#23435#20307
              Font.Style = [fsBold]
              ParentFont = False
              OnKeyPress = fraInputedtKeyword1KeyPress
            end
            inherited edtKeyword3: TEdit
              Left = 2
              Width = 200
              Height = 20
              Anchors = [akLeft, akTop, akRight]
              BevelKind = bkFlat
              BevelOuter = bvNone
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = #26032#23435#20307
              Font.Style = [fsBold]
              ParentFont = False
              TabOrder = 2
              OnKeyPress = fraInputedtKeyword3KeyPress
            end
            inherited edtKeyword2: TEdit
              Left = 2
              Width = 200
              Height = 20
              Anchors = [akLeft, akTop, akRight]
              BevelKind = bkFlat
              BevelOuter = bvNone
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = #26032#23435#20307
              Font.Style = [fsBold]
              ParentFont = False
              TabOrder = 1
              OnKeyPress = fraInputedtKeyword2KeyPress
            end
          end
        end
      end
    end
    inherited pnlInputID: TPanel
      Width = 220
      ParentColor = True
      DesignSize = (
        220
        88)
      inherited Panel1: TPanel [0]
        Width = 220
        ParentColor = True
      end
      inherited tvIDList: TTreeView [1]
        Left = 8
        Width = 204
        BevelOuter = bvNone
        BevelKind = bkFlat
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabStop = False
        OnChange = tvIDListChange
      end
      inherited gbInput: TGroupBox [2]
        Left = 8
        Top = 9
        Width = 204
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        DesignSize = (
          204
          48)
        inherited rbSelect: TRadioButton
          Width = 59
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabStop = False
          OnClick = rbSelectClick
        end
        inherited rbNew: TRadioButton
          Left = 110
          Width = 70
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabStop = False
          OnClick = rbSelectClick
        end
      end
    end
  end
  object stbStatusBar: TStatusBar
    Left = 0
    Top = 488
    Width = 776
    Height = 19
    Color = clSilver
    Panels = <
      item
        Width = 100
      end
      item
        Width = 400
      end
      item
        Width = 100
      end>
  end
  object tmRefresh: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = tmRefreshTimer
    Left = 293
    Top = 112
  end
  object tmTimeCost: TTimer
    Enabled = False
    OnTimer = tmTimeCostTimer
    Left = 322
    Top = 216
  end
end