unit1.~dfm

明小子旁注Domain3.0和Domain2.2两个版本源码

object Form1: TForm1
  Left = 199
  Top = 172
  Width = 691
  Height = 533
  ActiveControl = SiteName
  Caption = 'ming'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseMove = FormMouseMove
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object FlatSplitter1: TFlatSplitter
    Left = 135
    Top = 81
    Width = 4
    Height = 406
    Cursor = crHSplit
    AdvColorBorder = 0
    AdvColorFocused = 0
    ColorFocused = 5079287
  end
  object SiteList: TListBox
    Left = 0
    Top = 81
    Width = 135
    Height = 406
    Hint = #21452#20987#25110#21491#20987#25171#24320
    Align = alLeft
    Color = 14671839
    Ctl3D = True
    ItemHeight = 12
    ParentCtl3D = False
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ShowHint = True
    TabOrder = 0
    OnClick = SiteListClick
    OnDblClick = SiteListDblClick
    OnMouseDown = SiteListMouseDown
    OnMouseMove = SiteListMouseMove
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 487
    Width = 683
    Height = 19
    Panels = <
      item
        Width = 430
      end
      item
        Width = 130
      end
      item
        Width = 50
      end>
  end
  object FlatPanel1: TFlatPanel
    Left = 0
    Top = 0
    Width = 683
    Height = 81
    ParentColor = True
    Align = alTop
    TabOrder = 2
    OnMouseMove = FlatPanel1MouseMove
    object btQuery: TFlatSpeedButton
      Left = 413
      Top = 8
      Width = 50
      Height = 18
      Hint = #26597#35810
      ColorShadow = clWindow
      Caption = #26597#35810
      ParentShowHint = False
      ShowHint = True
      OnClick = btQueryClick
      OnMouseMove = btQueryMouseMove
    end
    object Label1: TLabel
      Left = 128
      Top = 62
      Width = 89
      Height = 14
      AutoSize = False
      Caption = #20849#26377#31449#28857':0'
    end
    object BtUp: TSpeedButton
      Left = 8
      Top = 58
      Width = 50
      Height = 19
      Caption = #19978#19968#39029
      Enabled = False
      Flat = True
      OnClick = BtUpClick
    end
    object BtDown: TSpeedButton
      Left = 64
      Top = 58
      Width = 50
      Height = 19
      Caption = #19979#19968#39029
      Enabled = False
      Flat = True
      OnClick = BtDownClick
    end
    object Label2: TLabel
      Left = 208
      Top = 62
      Width = 89
      Height = 14
      AutoSize = False
      Caption = #24403#21069#39029#38754': '
    end
    object Label3: TLabel
      Left = 304
      Top = 62
      Width = 97
      Height = 14
      AutoSize = False
      Caption = #26412#39029#26174#31034': 0 - 0'
    end
    object Bevel1: TBevel
      Left = 8
      Top = 32
      Width = 668
      Height = 5
      Shape = bsTopLine
    end
    object Label4: TLabel
      Left = 8
      Top = 12
      Width = 57
      Height = 12
      AutoSize = False
      Caption = #36755#20837#22495#21517':'
    end
    object Label5: TLabel
      Left = 8
      Top = 40
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #24403#21069#36335#24452':'
    end
    object BtOpen: TFlatSpeedButton
      Left = 413
      Top = 37
      Width = 50
      Height = 18
      Hint = #25171#24320#32593#22336
      ColorShadow = clWindow
      Caption = #36830#25509
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      OnClick = BtOpenClick
    end
    object BtCopy: TFlatSpeedButton
      Left = 466
      Top = 37
      Width = 50
      Height = 18
      Hint = #22797#21046#32593#22336
      ColorShadow = clWindow
      Caption = #22797#21046
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      OnClick = BtCopyClick
    end
    object GoForward: TFlatSpeedButton
      Left = 520
      Top = 37
      Width = 50
      Height = 18
      Hint = #21069#36827
      ColorShadow = clWindow
      Caption = #21069#36827
      ParentShowHint = False
      ShowHint = True
      OnClick = GoForwardClick
    end
    object GoBack: TFlatSpeedButton
      Left = 574
      Top = 37
      Width = 50
      Height = 18
      Hint = #21518#36864
      ColorShadow = clWindow
      Caption = #21518#36864
      ParentShowHint = False
      ShowHint = True
      OnClick = GoBackClick
    end
    object About: TFlatSpeedButton
      Left = 628
      Top = 37
      Width = 50
      Height = 18
      Hint = #20851#20110#31243#24207
      ColorShadow = clWindow
      Caption = #20851#20110
      ParentShowHint = False
      ShowHint = True
      OnClick = AboutClick
    end
    object Label6: TLabel
      Left = 440
      Top = 62
      Width = 233
      Height = 12
      AutoSize = False
    end
    object btPing: TFlatSpeedButton
      Left = 247
      Top = 8
      Width = 32
      Height = 18
      Hint = 'PING'
      ColorShadow = clWindow
      Caption = '>>'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btPingClick
    end
    object SiteName: TFlatEdit
      Left = 64
      Top = 8
      Width = 177
      Height = 18
      Hint = #36755#20837#32593#22336
      ColorFocused = 14671839
      ColorFlat = clBtnFace
      ParentColor = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnKeyPress = SiteNameKeyPress
      OnMouseMove = SiteNameMouseMove
    end
    object IPaddress: TFlatEdit
      Left = 285
      Top = 8
      Width = 123
      Height = 18
      Hint = 'IP'#22320#22336#26639
      ColorFocused = 14671839
      ColorFlat = clBtnFace
      ParentColor = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnKeyPress = IPaddressKeyPress
      OnMouseMove = IPaddressMouseMove
    end
    object URL: TFlatEdit
      Left = 64
      Top = 37
      Width = 344
      Height = 18
      Hint = #22320#22336#26639
      ColorFocused = 14671839
      ColorFlat = 14671839
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = URLChange
      OnKeyPress = URLKeyPress
    end
    object CBox: TFlatCheckBox
      Left = 472
      Top = 9
      Width = 65
      Height = 17
      Caption = #38468#21152#39029#38754
      TabOrder = 3
      TabStop = True
      OnClick = CBoxClick
    end
    object AddPage: TFlatComboBox
      Left = 542
      Top = 7
      Width = 138
      Height = 20
      Color = clWindow
      DropDownCount = 20