serverunit.dfm

一个支持多用在线聊天的工具

object ChatServer: TChatServer
  Left = 216
  Top = 135
  Width = 445
  Height = 370
  Caption = #39118#38632#21516#33311#32842#22825#23460'-Server 1.0'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 437
    Height = 2
    Align = alTop
  end
  object Splitter1: TSplitter
    Left = 0
    Top = 162
    Width = 437
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object ChatServerStatusBar: TStatusBar
    Left = 0
    Top = 302
    Width = 437
    Height = 22
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ConnectionsListView: TListView
    Left = 0
    Top = 34
    Width = 437
    Height = 128
    Align = alTop
    Columns = <
      item
        Caption = #29992#25143#21517
        Width = 100
      end
      item
        Alignment = taCenter
        Caption = #24050#36830#25509#30340#20027#26426
        Width = 200
      end
      item
        Alignment = taCenter
        Caption = #36830#25509#26102#38388
        Width = 133
      end>
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    ViewStyle = vsReport
  end
  object LogEntryListView: TListView
    Left = 0
    Top = 165
    Width = 437
    Height = 137
    Align = alClient
    Columns = <
      item
        Caption = #20837#21475#31867#22411
        Width = 100
      end
      item
        Alignment = taCenter
        Caption = #25552#31034#20449#24687
        Width = 200
      end
      item
        Alignment = taCenter
        Caption = #25552#31034#26102#38388
        Width = 133
      end>
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    ViewStyle = vsReport
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 437
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object SpeedButton1: TSpeedButton
      Left = 7
      Top = 3
      Width = 25
      Height = 25
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF0DD
        D0FFFFFFF000F00000FFFFFF08000F0F0FFFFFF0FB08000F00FFFF08BF0BF00F
        F00FF08B8B08B00FFF0F0FB8B80B0F0F000F0BFB8080FF0F0F0008B0080FFEF0
        0EF00B0880FFEFEFEF0F0F0FB0FEFEFEF0FF000BFB0FEFEF0FFF0FF0F000FEF0
        FFFFFFFF0FF00F0FFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 131
    Top = 4
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object StartStopServerMenuItem: TMenuItem
        Caption = #21551#21160#26381#21153#22120'(&S)'
        OnClick = StartStopServerMenuItemClick
      end
      object AutoRunMenuItem: TMenuItem
        Caption = #33258#21160#36816#34892'(&A)'
        OnClick = AutoRunMenuItemClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986#39118#38632#21516#33311'(&X)'
        OnClick = X1Click
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object AboutMenuItem: TMenuItem
        Caption = #20851#20110'...(&A)'
        OnClick = AboutMenuItemClick
      end
    end
  end
  object ChatServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientConnect = ChatServerSocketClientConnect
    OnClientDisconnect = ChatServerSocketClientDisconnect
    OnClientRead = ChatServerSocketClientRead
    OnClientError = ChatServerSocketClientError
    Left = 272
    Top = 2
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 88
    object RestorePopItem: TMenuItem
      Caption = #25171#24320#39118#38632#21516#33311'(&O)'
      OnClick = RestorePopItemClick
    end
    object StartStopServerPopItem: TMenuItem
      Caption = #21551#21160#32842#22825#26381#21153#22120'(&S)'
      OnClick = StartStopServerPopItemClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object ExitPopItem: TMenuItem
      Caption = #36864#20986#39118#38632#21516#33311'(&X)'
      OnClick = ExitPopItemClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object A1: TMenuItem
      Caption = #20851#20110'(&A)...'
      OnClick = A1Click
    end
  end
  object NMUDP1: TNMUDP
    RemotePort = 1234
    LocalPort = 1235
    ReportLevel = 1
    OnDataReceived = NMUDP1DataReceived
    Left = 336
    Top = 2
  end
end