un_chart.dfm

局域网的一个聊天程序

object form_chat: Tform_chat
  Left = 197
  Top = 105
  Width = 581
  Height = 391
  Caption = #28040#24687
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  WindowState = wsMinimized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 242
    Width = 573
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter2: TSplitter
    Left = 385
    Top = 0
    Height = 242
    Align = alRight
  end
  object Panel1: TPanel
    Left = 0
    Top = 245
    Width = 573
    Height = 100
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object mm_msginput: TMemo
      Left = 0
      Top = 30
      Width = 464
      Height = 70
      Align = alClient
      MaxLength = 2600
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = mm_msginputChange
      OnEnter = mm_msginputEnter
      OnKeyPress = mm_msginputKeyPress
      OnKeyUp = mm_msginputKeyUp
    end
    object Panel2: TPanel
      Left = 464
      Top = 30
      Width = 109
      Height = 70
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object lb: TLabel
        Left = 8
        Top = 16
        Width = 24
        Height = 12
        Caption = #23383#25968
      end
      object lb_sizecnt: TLabel
        Left = 36
        Top = 16
        Width = 6
        Height = 12
      end
      object Button1: TButton
        Left = 16
        Top = 37
        Width = 75
        Height = 22
        Action = ac_sendmsg
        TabOrder = 0
      end
    end
    object ControlBar1: TControlBar
      Left = 0
      Top = 0
      Width = 573
      Height = 30
      Align = alTop
      AutoDock = False
      AutoDrag = False
      AutoSize = True
      DockSite = False
      TabOrder = 2
      object ActionMainMenuBar1: TActionMainMenuBar
        Left = 11
        Top = 2
        Width = 286
        Height = 22
        UseSystemFont = False
        ActionManager = ActionManager1
        Align = alClient
        Caption = 'ActionMainMenuBar1'
        ColorMap.HighlightColor = 14410210
        ColorMap.BtnSelectedColor = clBtnFace
        ColorMap.UnusedColor = 14410210
        DragKind = dkDrag
        EdgeInner = esNone
        EdgeOuter = esNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        HorzMargin = 0
        ParentBiDiMode = False
        PersistentHotKeys = True
        Shadows = False
        Spacing = 0
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 345
    Width = 573
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Text = #29366#24577#65306#22312#32447
        Width = 100
      end>
  end
  object panel3: TPanel
    Left = 388
    Top = 0
    Width = 185
    Height = 242
    Align = alRight
    BevelOuter = bvNone
    Caption = 'panel3'
    TabOrder = 2
    object pc_list: TListView
      Left = 0
      Top = 0
      Width = 185
      Height = 242
      Align = alClient
      BiDiMode = bdLeftToRight
      Checkboxes = True
      Columns = <
        item
          Caption = #29992#25143
          Tag = 1
          Width = 80
        end
        item
          Caption = #32842#22825#32452
          Tag = 1
          Width = 80
        end
        item
          Caption = #35745#31639#26426
          Tag = 1
          Width = 80
        end
        item
          Caption = 'IP'#22320#22336
          Tag = 1
          Width = 100
        end
        item
          Caption = #21457#36865
          Tag = 1
        end
        item
          Caption = #25509#25910
          Tag = 1
        end>
      Constraints.MinWidth = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FullDrag = True
      GridLines = True
      HideSelection = False
      IconOptions.AutoArrange = True
      MultiSelect = True
      ReadOnly = True
      RowSelect = True
      ParentBiDiMode = False
      ParentFont = False
      PopupMenu = pm_pclist
      SmallImages = form_main.ImageList1
      SortType = stBoth
      TabOrder = 0
      ViewStyle = vsReport
      OnColumnClick = pc_listColumnClick
      OnDeletion = pc_listDeletion
      OnInsert = pc_listInsert
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 385
    Height = 242
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel4'
    TabOrder = 3
    object Splitter3: TSplitter
      Left = 0
      Top = 150
      Width = 385
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Visible = False
    end
    object msgall: TWebBrowser
      Left = 0
      Top = 0
      Width = 385
      Height = 150
      Align = alClient
      TabOrder = 0
      ControlData = {
        4C000000CA270000810F00000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
    object mm_msgall: TMemo
      Left = 0
      Top = 153
      Width = 385
      Height = 89
      Align = alBottom
      Constraints.MinHeight = 30
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
      Visible = False
    end
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = as_sendlocalfile
                Caption = #21457#36865#25991#20214'(&X)'
              end
              item
                Items = <
                  item
                    Action = ac_sendlocalimg
                    Caption = #26412#22320#22270#29255'(&Z)'
                  end
                  item
                    Action = ac_sendnetimg
                    Caption = #32593#32476#19978#30340#22270#29255'(&Y)'
                  end>
                Caption = #22270#29255'(&Z)'
              end
              item
                Items = <
                  item
                    Action = ac_sendlocalflash
                    Caption = #26412#22320#21160#30011'(&Z)'
                  end
                  item
                    Action = ac_sendnetflash
                    Caption = #32593#32476#19978#30340#21160#30011'(&Y)'
                  end>
                Caption = #21160#30011'(&Y)'
              end
              item
                Items = <
                  item
                    Items = <
                      item
                        Action = ac_sendlocalmp
                        Caption = #26412#22320'Windows Media Player'#23186#20307'(&W)'
                      end
                      item
                        Action = ac_sendnetmp
                        Caption = #32593#32476'Windows Media Player'#23186#20307'(&I)'
                      end>
                    Caption = 'Windows Media Player'#23186#20307'(&W)'
                  end
                  item
                    Items = <
                      item
                        Action = ac_sendlocalrm
                        Caption = #26412#22320'Real Player'#23186#20307'(&R)'
                      end
                      item
                        Action = ac_sendnetrm
                        Caption = #32593#32476'Real Player'#23186#20307'(&E)'
                      end>
                    Caption = 'Real Player'#23186#20307'(&R)'
                  end>
                Caption = #23186#20307'(&W)'
              end>
            Caption = #25554#20837'(&Z)'
          end
          item
            Items = <
              item
                Action = ac_clearmsg
                Caption = #28165#31354'(&Y)'
              end
              item
                Action = ac_savemsg
                Caption = #20445#23384#20026'HTML'#39029#38754'(&H)'
              end
              item
                Action = ac_savemsgtext
              end>
            Caption = #32842#22825#35760#24405'(&Y)'
          end
          item
            Items = <
              item
                Action = ac_scrmsg
                Caption = #33258#21160#28378#23631'(&Y)'
              end
              item
                Action = ac_userlist
                Caption = #26174#31034#29992#25143#21015#34920'(&Z)'
              end
              item
                Action = ac_viewtextmsg
                Caption = #26174#31034#32431#25991#26412#32842#20869#23481'(&U)'
              end
              item
                Action = ac_user
                Caption = #29992#25143#21517'(&X)'
              end
              item
                Action = ac_part
                Caption = #32842#22825#32452'(&W)'
              end
              item
                Items = <
                  item
                    Action = ac_setstatus
                    Caption = #31163#24320'(&Z)'
                  end
                  item
                    Caption = '-'
                  end
                  item
                    Action = ac_setoffresponse
                    Caption = #35774#32622#31163#24320#22238#22797'(&Y)'
                  end>
                Caption = #29366#24577'(&V)'
              end>
            Caption = #32842#22825#35774#32622'(&W)'
          end>
        ActionBar = ActionMainMenuBar1
      end>
    Left = 8
    Top = 8
    StyleName = 'XP Style'
    object ac_sendlocalimg: TAction
      Caption = #26412#22320#22270#29255
      ImageIndex = 2
      OnExecute = ac_sendlocalimgExecute
    end
    object ac_sendnetimg: TAction
      Caption = #32593#32476#19978#30340#22270#29255
      OnExecute = ac_sendnetimgExecute
    end
    object as_sendlocalfile: TAction
      Caption = #21457#36865#25991#20214
      OnExecute = as_sendlocalfileExecute
    end
    object ac_userlist: TAction
      AutoCheck = True
      Caption = #26174#31034#29992#25143#21015#34920
      Checked = True
      OnExecute = ac_userlistExecute
    end
    object ac_clearmsg: TAction
      Caption = #28165#31354
      OnExecute = ac_clearmsgExecute
    end
    object ac_savemsg: TAction
      Caption = #20445#23384#20026'HTML'#39029#38754
      OnExecute = ac_savemsgExecute
    end
    object ac_scrmsg: TAction
      AutoCheck = True
      Caption = #33258#21160#28378#23631
      Checked = True
      OnExecute = ac_scrmsgExecute
    end
    object ac_user: TAction
      Caption = #29992#25143#21517
      OnExecute = ac_userExecute
    end
    object ac_part: TAction
      Caption = #32842#22825#32452
      OnExecute = ac_partExecute
    end
    object ac_refreshuserlist: TAction
      Caption = #21047#26032#29992#25143#21015#34920
      OnExecute = ac_refreshuserlistExecute
    end
    object ac_sendmsg: TAction
      Caption = #21457#36865#28040#24687
      OnExecute = ac_sendmsgExecute
    end
    object ac_selectothers: TAction
      Caption = #21453#21521#36873#25321
      OnExecute = ac_selectothersExecute
    end
    object ac_disableothers: TAction
      Caption = #21453#21521#23631#34109
      OnExecute = ac_disableothersExecute
    end
    object ac_selectall: TAction
      Caption = #20840#37096#36873#25321
      OnExecute = ac_selectallExecute
    end
    object ac_disableall: TAction
      Caption = #20840#37096#23631#34109
      OnExecute = ac_disableallExecute
    end
    object ac_setstatus: TAction
      Caption = #31163#24320
      OnExecute = ac_setstatusExecute
    end
    object ac_setoffresponse: TAction
      Caption = #35774#32622#31163#24320#22238#22797
      OnExecute = ac_setoffresponseExecute
    end
    object ac_sendlocalflash: TAction
      Caption = #26412#22320#21160#30011
      OnExecute = ac_sendlocalflashExecute
    end
    object ac_sendnetflash: TAction
      Caption = #32593#32476#19978#30340#21160#30011
      OnExecute = ac_sendnetflashExecute
    end
    object ac_sendlocalmp: TAction
      Caption = #26412#22320'Windows Media Player'#23186#20307
      OnExecute = ac_sendlocalmpExecute
    end
    object ac_sendnetmp: TAction
      Caption = #32593#32476'Windows Media Player'#23186#20307
      OnExecute = ac_sendnetmpExecute
    end
    object ac_sendlocalrm: TAction
      Caption = #26412#22320'Real Player'#23186#20307
      OnExecute = ac_sendlocalrmExecute
    end
    object ac_sendnetrm: TAction
      Caption = #32593#32476'Real Player'#23186#20307
      OnExecute = ac_sendnetrmExecute
    end
    object ac_viewtextmsg: TAction
      AutoCheck = True
      Caption = #26174#31034#32431#25991#26412#32842#20869#23481
      OnExecute = ac_viewtextmsgExecute
    end
    object ac_savemsgtext: TAction
      Caption = #20445#23384#20026'Text'#25991#26412
      OnExecute = ac_savemsgtextExecute
    end
    object ac_cleanuserlist: TAction
      Caption = #28165#31354#29992#25143#21015#34920
      OnExecute = ac_cleanuserlistExecute
    end
  end
  object pm_pclist: TPopupMenu
    Left = 8
    Top = 40
    object N2: TMenuItem
      Action = ac_refreshuserlist
    end
    object N6: TMenuItem
      Action = ac_cleanuserlist
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = ac_selectall
    end
    object N5: TMenuItem
      Action = ac_disableall
    end
    object N3: TMenuItem
      Action = ac_selectothers
    end
    object N1: TMenuItem
      Action = ac_disableothers
    end
  end
end