main.dfm

2000年11月完成的一个自由软件

object frm_main: Tfrm_main
  Left = 207
  Top = 181
  Width = 554
  Height = 374
  Caption = '局域网聊天室'
  Color = clBtnFace
  Constraints.MinWidth = 554
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel_main: TPanel
    Left = 0
    Top = 0
    Width = 546
    Height = 265
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object RE_Chat: TRichEdit
      Left = 8
      Top = 8
      Width = 345
      Height = 241
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clOlive
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      PopupMenu = PM_REdit
      ReadOnly = True
      TabOrder = 0
      OnChange = RE_ChatChange
    end
    object CLB_UserList: TCheckListBox
      Left = 401
      Top = 0
      Width = 145
      Height = 265
      OnClickCheck = CLB_UserListClickCheck
      Align = alRight
      Color = 12615808
      Columns = 1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      PopupMenu = PM_UserList
      TabOrder = 1
      OnDblClick = CLB_UserListDblClick
      OnMouseDown = CLB_UserListMouseDown
    end
  end
  object Panel_Bottom: TPanel
    Left = 0
    Top = 290
    Width = 546
    Height = 57
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 0
      Top = 8
      Width = 60
      Height = 12
      Caption = '你的妮称：'
    end
    object Label2: TLabel
      Left = 208
      Top = 8
      Width = 48
      Height = 12
      Caption = '对谁说：'
    end
    object Edit_Chat: TEdit
      Left = 0
      Top = 32
      Width = 401
      Height = 20
      Hint = '/e显示表情符号'
      AutoSelect = False
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 127
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnKeyPress = Edit_ChatKeyPress
    end
    object Edit_LuckName: TEdit
      Left = 64
      Top = 6
      Width = 137
      Height = 20
      Hint = '改名后回车生效'
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'Guest'
      OnKeyPress = Edit_LuckNameKeyPress
    end
    object Edit_Who: TEdit
      Left = 264
      Top = 6
      Width = 137
      Height = 20
      Hint = '双击列表名即可'
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnKeyPress = Edit_LuckNameKeyPress
    end
    object Panel1: TPanel
      Left = 401
      Top = 0
      Width = 145
      Height = 57
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 3
      object Panel_Set: TPanel
        Left = 52
        Top = 6
        Width = 75
        Height = 22
        BevelOuter = bvLowered
        TabOrder = 0
        object btnMenu: TSpeedButton
          Left = 1
          Top = 1
          Width = 73
          Height = 20
          Caption = '设置程序'
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = btnMenuClick
        end
      end
      object Panel_Send: TPanel
        Left = 21
        Top = 32
        Width = 75
        Height = 22
        BevelOuter = bvLowered
        Caption = 'Panel_Send'
        TabOrder = 1
        object SB_Send: TSpeedButton
          Left = 1
          Top = 1
          Width = 73
          Height = 20
          Caption = '发送信息'
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clPurple
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = SB_SendClick
        end
      end
      object Panel5: TPanel
        Left = 21
        Top = 6
        Width = 23
        Height = 22
        BevelOuter = bvLowered
        TabOrder = 2
        object SB_1: TSpeedButton
          Left = 1
          Top = 1
          Width = 21
          Height = 20
          Hint = '刷新'
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFF7FFFFFFFFFFFFFF70FFFFFFFFFFFFF7077777FFFFFFFFF0000000
            7FFFFFFFF000000F07FFFFFFFF07FFFFF07FFF07FFF0FFFFF07FFF07FFFFFFFF
            F07FFF07FFFFF7FFF07FFF07FFFFF07FF07FFF07FF777707FFFFFFF077000000
            FFFFFFFF00000000FFFFFFFFFFFFF70FFFFFFFFFFFFFF0FFFFFF}
          Layout = blGlyphRight
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = SB_1Click
        end
      end
      object Panel2: TPanel
        Left = 104
        Top = 32
        Width = 23
        Height = 22
        BevelOuter = bvLowered
        TabOrder = 3
        object SB_Exit: TSpeedButton
          Left = 1
          Top = 1
          Width = 21
          Height = 20
          Hint = '退出'
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF44
            4FFFFFFFFF0FFFFFF4FFFFFFF00FFFFFF4FFFFFF030FFFF44444F0003300000F
            444FFF03330770FFF4FFFF03330770FFFFFFFF03300770FFFFFFFF03330770FF
            FFFFFF03330770FFFFFFFF03330770FFFFFFFF03330770FFFFFFFF03307770FF
            FFFFFF03077770FFFFFFFF00777770FFFFFFFF00000000FFFFFF}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = SB_ExitClick
        end
      end
    end
  end
  object NMUDP_Chat: TNMUDP
    RemotePort = 0
    LocalPort = 0
    ReportLevel = 1
    OnDataReceived = NMUDP_ChatDataReceived
    OnDataSend = NMUDP_ChatDataSend
    OnInvalidHost = NMUDP_ChatInvalidHost
    Left = 32
    Top = 72
  end
  object PM_UserList: TPopupMenu
    AutoPopup = False
    Left = 72
    Top = 72
    object PopItem_PasteUserName: TMenuItem
      Caption = '粘贴姓名'
      OnClick = PopItem_PasteUserNameClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PopItem_IP: TMenuItem
      Caption = '屏蔽IP'
      OnClick = PopItem_IPClick
    end
  end
  object PM_REdit: TPopupMenu
    Left = 112
    Top = 72
    object N2: TMenuItem
      Action = EditCopy1
    end
    object N3: TMenuItem
      Action = EditSelectAll1
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = EditFont1
    end
  end
  object ActionList1: TActionList
    Left = 152
    Top = 72
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '复制'
      Hint = 'Copy'
      ImageIndex = 1
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = '全选'
    end
    object EditFont1: TAction
      Category = 'Edit'
      Caption = '字体[&F]'
      OnExecute = EditFont1Execute
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 192
    Top = 72
  end
end