sitesearchfrm.dfm

来自「《Delphi实例开发教程》源代码包说明」· DFM 代码 · 共 257 行

object frmSiteSearch: TfrmSiteSearch
  Left = 158
  Top = 79
  Width = 600
  Height = 450
  Caption = #31449#20869#25628#32034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mSite
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlControl: TPanel
    Left = 0
    Top = 0
    Width = 592
    Height = 33
    Align = alTop
    BevelInner = bvLowered
    Color = clMedGray
    TabOrder = 0
    object lblKeyWord: TLabel
      Left = 16
      Top = 11
      Width = 60
      Height = 16
      AutoSize = False
      Caption = #20851#38190#23383':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblSite: TLabel
      Left = 232
      Top = 11
      Width = 60
      Height = 18
      AutoSize = False
      Caption = #25152#36873#31449#28857':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object sbClose: TSpeedButton
      Left = 666
      Top = 5
      Width = 58
      Height = 24
      Caption = #20851' '#38381
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = sbCloseClick
    end
    object edtKeyWord: TEdit
      Left = 64
      Top = 8
      Width = 121
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentFont = False
      TabOrder = 0
      OnKeyPress = edtKeyWordKeyPress
    end
    object edtSite: TEdit
      Left = 298
      Top = 8
      Width = 159
      Height = 18
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object bbtnOK: TBitBtn
      Left = 480
      Top = 4
      Width = 65
      Height = 25
      Caption = #25628#32034
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #26032#23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = bbtnOKClick
    end
  end
  object pnlDisplay: TPanel
    Left = 0
    Top = 33
    Width = 592
    Height = 340
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
  end
  object pnlState: TPanel
    Left = 0
    Top = 373
    Width = 592
    Height = 23
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object pnlState3: TPanel
      Left = 153
      Top = 0
      Width = 439
      Height = 23
      Align = alRight
      BevelInner = bvLowered
      TabOrder = 0
      object lblTime: TLabel
        Left = 5
        Top = 5
        Width = 7
        Height = 13
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
    object pnlState2: TPanel
      Left = 113
      Top = 0
      Width = 40
      Height = 23
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 1
      object lblNum: TLabel
        Left = 8
        Top = 5
        Width = 7
        Height = 13
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
    object pnlState1: TPanel
      Left = 0
      Top = 0
      Width = 113
      Height = 23
      Align = alLeft
      BevelInner = bvLowered
      TabOrder = 2
      object lblState: TLabel
        Left = 5
        Top = 5
        Width = 7
        Height = 13
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object mSite: TMainMenu
    AutoHotkeys = maManual
    Left = 120
    Top = 56
    object mmimanager: TMenuItem
      Caption = #31649' '#29702'(&M)'
      Checked = True
      object N2: TMenuItem
        Caption = #28155#21152#31449#28857'(&A)'
        ImageIndex = 1
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #25972#29702#31449#28857'(&T)'
        ImageIndex = 1
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = #36864' '#20986'(&Q)'
        OnClick = N5Click
      end
    end
    object mmiSiteSelect: TMenuItem
      AutoHotkeys = maManual
      Caption = #31449#28857#36873#25321'(&S)'
    end
  end
  object tmRefresh: TTimer
    Enabled = False
    OnTimer = tmRefreshTimer
    Left = 152
    Top = 56
  end
  object idhttpSite: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 15
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 288
    Top = 208
  end
end