cussearchfrm.dfm

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

object frmCusSearch: TfrmCusSearch
  Left = 269
  Top = 195
  Width = 544
  Height = 548
  Caption = 'frmCusSearch'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlInput: TPanel
    Left = 0
    Top = 0
    Width = 249
    Height = 521
    Align = alLeft
    BevelOuter = bvSpace
    Caption = 'pnlInput'
    TabOrder = 0
    object pnlInputID: TPanel
      Left = 1
      Top = 1
      Width = 247
      Height = 144
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object tvIDList: TTreeView
        Left = 0
        Top = 48
        Width = 247
        Height = 96
        Align = alClient
        Enabled = False
        Indent = 19
        MultiSelectStyle = [msControlSelect, msShiftSelect, msVisibleOnly]
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnChange = tvIDListChange
        Items.Data = {
          01000000230000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
          0AD3C3BBA7B6A8D6C64944}
      end
      object gbInput: TGroupBox
        Left = 0
        Top = 0
        Width = 247
        Height = 48
        Align = alTop
        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 = 1
        object rbSelect: TRadioButton
          Left = 32
          Top = 20
          Width = 81
          Height = 17
          Caption = #36873#25321'ID'
          TabOrder = 0
          OnClick = rbSelectClick
        end
        object rbNew: TRadioButton
          Left = 120
          Top = 20
          Width = 113
          Height = 17
          Caption = #20840#26032#36755#20837
          TabOrder = 1
          OnClick = rbSelectClick
        end
      end
    end
    object pnlcustomInput: TPanel
      Left = 1
      Top = 145
      Width = 247
      Height = 375
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object pnlcustombar: TPanel
        Left = 0
        Top = 345
        Width = 247
        Height = 30
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object sbMaintain: TSpeedButton
          Left = 144
          Top = 5
          Width = 81
          Height = 22
          Caption = #23450#21046#32500#25252
          OnClick = sbMaintainClick
        end
        object sbSaveID: TSpeedButton
          Left = 24
          Top = 5
          Width = 65
          Height = 22
          Caption = #20445#23384#23450#21046
          Enabled = False
          OnClick = sbSaveIDClick
        end
      end
      object PnlNewInput: TPanel
        Left = 0
        Top = 0
        Width = 247
        Height = 345
        Align = alClient
        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
        object gbEngineList: TGroupBox
          Left = 0
          Top = 232
          Width = 247
          Height = 113
          Align = alBottom
          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 = 243
            Height = 93
            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 = 0
          Top = 144
          Width = 247
          Height = 88
          Align = alClient
          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 = 243
            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 = 247
          Height = 144
          Align = alTop
          BevelOuter = bvNone
          Caption = 'pnlInputEdits'
          TabOrder = 2
          object Label2: TLabel
            Left = 197
            Top = 108
            Width = 32
            Height = 21
            AutoSize = False
            Caption = #26465
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label1: TLabel
            Left = 72
            Top = 108
            Width = 32
            Height = 21
            AutoSize = False
            Caption = #31186
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object leTimeLimit: TLabeledEdit
            Left = 10
            Top = 108
            Width = 59
            Height = 21
            EditLabel.Width = 105
            EditLabel.Height = 16
            EditLabel.Caption = #26368#22823#36229#26102#26102#38388'           '
            EditLabel.Font.Charset = DEFAULT_CHARSET
            EditLabel.Font.Color = clWindowText
            EditLabel.Font.Height = -13
            EditLabel.Font.Name = 'MS Sans Serif'
            EditLabel.Font.Style = []
            EditLabel.ParentFont = False
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 0
          end
          object leMaxAmount: TLabeledEdit
            Left = 123
            Top = 108
            Width = 67
            Height = 21
            EditLabel.Width = 117
            EditLabel.Height = 16
            EditLabel.Caption = #26368#22823#20445#30041#20449#24687#37327'           '
            EditLabel.Font.Charset = DEFAULT_CHARSET
            EditLabel.Font.Color = clWindowText
            EditLabel.Font.Height = -13
            EditLabel.Font.Name = 'MS Sans Serif'
            EditLabel.Font.Style = []
            EditLabel.ParentFont = False
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 1
          end
          object leKeyword: TLabeledEdit
            Left = 8
            Top = 60
            Width = 225
            Height = 21
            EditLabel.Width = 69
            EditLabel.Height = 16
            EditLabel.Caption = #20851#38190#23383'           '
            EditLabel.Font.Charset = DEFAULT_CHARSET
            EditLabel.Font.Color = clWindowText
            EditLabel.Font.Height = -13
            EditLabel.Font.Name = 'MS Sans Serif'
            EditLabel.Font.Style = []
            EditLabel.ParentFont = False
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 2
          end
          object leID: TLabeledEdit
            Left = 8
            Top = 20
            Width = 225
            Height = 21
            EditLabel.Width = 94
            EditLabel.Height = 16
            EditLabel.Caption = #29992#25143#23450#21046'ID           '
            EditLabel.Font.Charset = DEFAULT_CHARSET
            EditLabel.Font.Color = clWindowText
            EditLabel.Font.Height = -13
            EditLabel.Font.Name = 'MS Sans Serif'
            EditLabel.Font.Style = []
            EditLabel.ParentFont = False
            LabelPosition = lpAbove
            LabelSpacing = 3
            TabOrder = 3
          end
        end
      end
    end
  end
  object pnlView: TPanel
    Left = 249
    Top = 0
    Width = 287
    Height = 521
    Align = alClient
    BevelOuter = bvSpace
    TabOrder = 1
    object pnlBar: TPanel
      Left = 1
      Top = 1
      Width = 285
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object sbSearch: TSpeedButton
        Left = 16
        Top = 8
        Width = 89
        Height = 22
        Caption = #24320#22987#25628#32034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
end