inputfra.dfm

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

object fraInput: TfraInput
  Left = 0
  Top = 0
  Width = 219
  Height = 523
  TabOrder = 0
  object pnlcustomInput: TPanel
    Left = 0
    Top = 88
    Width = 219
    Height = 425
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object pnlcustombar: TPanel
      Left = 0
      Top = 382
      Width = 219
      Height = 43
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        219
        43)
      object sbMaintain: TSpeedButton
        Left = 126
        Top = 10
        Width = 65
        Height = 21
        Anchors = [akTop]
        Caption = #23450#21046#32500#25252
      end
      object sbSaveID: TSpeedButton
        Left = 32
        Top = 10
        Width = 65
        Height = 22
        Anchors = [akTop]
        Caption = #20445#23384#23450#21046
        Enabled = False
      end
    end
    object PnlNewInput: TPanel
      Left = 0
      Top = 0
      Width = 219
      Height = 382
      Align = alTop
      AutoSize = True
      BevelOuter = bvNone
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        219
        382)
      object gbEngineList: TGroupBox
        Left = 16
        Top = 258
        Width = 187
        Height = 124
        Anchors = [akLeft, akTop, akRight]
        Caption = #25628#32034#24341#25806
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object clbEngine: TCheckListBox
          Left = 2
          Top = 18
          Width = 183
          Height = 104
          Align = alClient
          ItemHeight = 16
          Items.Strings = (
            #30334#24230
            'Google'
            '21cn'
            #26032#28010
            #25628#29392
            #38597#34382'(Yahoo)')
          TabOrder = 0
        end
      end
      object gbWebTypeList: TGroupBox
        Left = 16
        Top = 164
        Width = 187
        Height = 88
        Anchors = [akLeft, akTop, akRight]
        Caption = #32593#31449#31867#22411
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object clbWebType: TCheckListBox
          Left = 2
          Top = 18
          Width = 183
          Height = 68
          Align = alClient
          Columns = 1
          ItemHeight = 16
          Items.Strings = (
            #21830#19994#32593
            #20844#20247#32593
            #25945#32946#32593
            #20854#20182)
          TabOrder = 0
        end
      end
      object pnlInputEdits: TPanel
        Left = 0
        Top = 0
        Width = 219
        Height = 161
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        DesignSize = (
          219
          161)
        object pnlTimelimit: TPanel
          Left = 42
          Top = 140
          Width = 135
          Height = 21
          Anchors = [akTop]
          AutoSize = True
          BevelOuter = bvNone
          TabOrder = 0
          DesignSize = (
            135
            21)
          object lblTimeLimit: TLabel
            Left = 0
            Top = 4
            Width = 49
            Height = 13
            Anchors = [akLeft]
            AutoSize = False
            Caption = #36229#26102#38480#21046
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label1: TLabel
            Left = 123
            Top = 4
            Width = 12
            Height = 13
            AutoSize = False
            Caption = #31186
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object cbbTimeLimit: TComboBox
            Left = 51
            Top = 0
            Width = 67
            Height = 21
            Style = csDropDownList
            Anchors = [akLeft]
            ItemHeight = 13
            TabOrder = 0
          end
        end
        object gbKeyword: TGroupBox
          Left = 16
          Top = 24
          Width = 185
          Height = 105
          Caption = #20851#38190#23383
          TabOrder = 1
          object edtKeyword1: TEdit
            Left = 8
            Top = 16
            Width = 169
            Height = 21
            TabOrder = 0
          end
          object edtKeyword3: TEdit
            Left = 8
            Top = 76
            Width = 169
            Height = 21
            TabOrder = 1
          end
          object edtKeyword2: TEdit
            Left = 8
            Top = 46
            Width = 169
            Height = 21
            TabOrder = 2
          end
        end
      end
    end
  end
  object pnlInputID: TPanel
    Left = 0
    Top = 0
    Width = 219
    Height = 88
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      219
      88)
    object tvIDList: TTreeView
      Left = 16
      Top = 68
      Width = 187
      Height = 20
      Anchors = [akLeft, akTop, akRight]
      Enabled = False
      Indent = 19
      MultiSelectStyle = [msControlSelect, msShiftSelect, msVisibleOnly]
      ReadOnly = True
      RowSelect = True
      TabOrder = 1
      OnCollapsed = tvIDListCollapsed
      OnExpanded = tvIDListExpanded
      Items.Data = {
        01000000230000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
        0AD3C3BBA7B6A8D6C64944}
    end
    object gbInput: TGroupBox
      Left = 16
      Top = 8
      Width = 187
      Height = 48
      Anchors = [akLeft, akTop, akRight]
      Caption = #36755#20837#26041#24335
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      DesignSize = (
        187
        48)
      object rbSelect: TRadioButton
        Left = 22
        Top = 20
        Width = 65
        Height = 17
        Anchors = [akTop]
        Caption = #36873#25321'ID'
        Checked = True
        TabOrder = 1
        TabStop = True
      end
      object rbNew: TRadioButton
        Left = 104
        Top = 20
        Width = 73
        Height = 17
        Anchors = [akTop]
        Caption = #20840#26032#36755#20837
        TabOrder = 0
        TabStop = True
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 219
      Height = 9
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
end