chatroomunit.~dfm

企业通comicq是一个通讯工具软件,一个通讯工具软件

object ChatRoomForm: TChatRoomForm
  Left = 11
  Top = 47
  Width = 743
  Height = 531
  ActiveControl = ChatEdit
  Caption = #32842#22825#23460
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 125
    Top = 0
    Width = 3
    Height = 485
    Cursor = crHSplit
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 485
    Width = 735
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 128
    Top = 0
    Width = 607
    Height = 485
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Top = 459
      Width = 607
      Height = 26
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        607
        26)
      object ChatEdit: TEdit
        Left = 0
        Top = 4
        Width = 269
        Height = 20
        Hint = #24744#35201#35828#30340#35805
        Anchors = [akLeft, akRight, akBottom]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyPress = ChatEditKeyPress
      end
      object cbUserList: TComboBox
        Left = 452
        Top = 4
        Width = 101
        Height = 20
        Hint = #35828#35805#23545#35937
        Anchors = [akRight, akBottom]
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object cbStyle: TComboBox
        Left = 364
        Top = 4
        Width = 85
        Height = 20
        Hint = #34920#24773
        Anchors = [akRight, akBottom]
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = #24494#31505#30528
        Items.Strings = (
          #24494#31505#30528
          #21704#21704#22823#31505#30340
          #30171#33510#22320
          #24551#37057#22320
          #21451#22909#30340
          #22823#21483#30528
          #24868#24594#22320
          #30504#20102#30504#30524
          #20667#31505#30528
          #25277#27875#30528
          #29983#27668#22320
          #24651#24651#19981#33293#30340
          #28145#24773#22320
          #36855#24785#22320
          #24778#35766#22320
          #30634#22823#20102#30524#30555
          #25171#30528#21704#27424
          #23047#28404#28404#30340
          #22953#23194#30340
          #25243#20102#20010#23194#30524
          #32824#20102#32824#32937
          #25671#20102#25671#22836
          #26080#22856#22320
          #25381#20102#25381#25163
          #24708#24708#22320
          #20146#20102#19968#20010)
      end
      object btnSend: TButton
        Left = 273
        Top = 4
        Width = 34
        Height = 20
        Anchors = [akRight, akBottom]
        Caption = #21457#36865
        TabOrder = 4
        OnClick = btnSendClick
      end
      object PrivateChatCheckBox: TCheckBox
        Left = 312
        Top = 6
        Width = 49
        Height = 17
        Anchors = [akRight, akBottom]
        Caption = #31169#32842
        TabOrder = 3
      end
    end
    object ChatMsgRichEdit: TRichEdit
      Left = 0
      Top = 0
      Width = 607
      Height = 459
      TabStop = False
      Align = alClient
      HideSelection = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object UserListBox: TListBox
    Left = 0
    Top = 0
    Width = 125
    Height = 485
    Hint = #32842#22825#23460#29992#25143
    Align = alLeft
    ItemHeight = 12
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnDblClick = UserListBoxDblClick
    OnMouseMove = UserListBoxMouseMove
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 364
    Top = 40
    object N1: TMenuItem
      Caption = #28165#38500#20869#23481
      OnClick = N1Click
    end
  end
end