ssmain.dfm

基于delphi的聊天室工具

object frmChat: TfrmChat
  Left = 262
  Top = 278
  BorderStyle = bsSingle
  Caption = #32842#22825#23460#26381#21153#22120#31471'                                          '#20316#32773#65306#24429#21451#25996
  ClientHeight = 422
  ClientWidth = 712
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 345
    Top = 61
    Width = 2
    Height = 361
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 712
    Height = 61
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 57
        Width = 708
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 695
      Height = 57
      ButtonHeight = 51
      ButtonWidth = 55
      Caption = 'ToolBar1'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Images = ilMain
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      object tlbbStart: TToolButton
        Left = 0
        Top = 0
        Hint = #21551#21160
        Caption = '  '#21551#21160'  '
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = tlbbStartClick
      end
      object tlbbStop: TToolButton
        Left = 55
        Top = 0
        Hint = #20572#27490
        Caption = '  '#20572#27490'  '
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = tlbbStopClick
      end
      object tlbbAbout: TToolButton
        Left = 110
        Top = 0
        Hint = #20851#20110
        Caption = '  '#20851#20110'  '
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = tlbbAboutClick
      end
      object tlbbExit: TToolButton
        Left = 165
        Top = 0
        Hint = #36864#20986
        Caption = '  '#36864#20986'  '
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = tlbbExitClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 61
    Width = 345
    Height = 361
    Align = alLeft
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object TPanel
      Left = 2
      Top = 2
      Width = 341
      Height = 64
      Align = alTop
      TabOrder = 0
      DesignSize = (
        341
        64)
      object lbname: TLabel
        Left = 6
        Top = 8
        Width = 72
        Height = 12
        Caption = #26165#31216#65306#26381#21153#22120
      end
      object lbChat: TLabel
        Left = 5
        Top = 24
        Width = 156
        Height = 12
        Caption = #36755#20837#35848#35805#20869#23481#65292#25353#22238#36710#38190#21457#36865
      end
      object cbChat: TComboBox
        Left = 1
        Top = 39
        Width = 339
        Height = 20
        Anchors = [akLeft, akRight, akBottom]
        ItemHeight = 12
        TabOrder = 0
        Text = #20320#22909#65281
        OnKeyPress = cbChatKeyPress
        Items.Strings = (
          #20320#22909#65281
          #20320#22312#24537#20160#20040#65311)
      end
    end
    object Panel3: TPanel
      Left = 2
      Top = 66
      Width = 341
      Height = 293
      Align = alClient
      TabOrder = 1
      object mChatRec: TMemo
        Left = 1
        Top = 1
        Width = 339
        Height = 291
        Align = alClient
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 347
    Top = 61
    Width = 365
    Height = 361
    Align = alClient
    BevelInner = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Lv1: TListView
      Left = 2
      Top = 2
      Width = 361
      Height = 357
      Align = alClient
      Columns = <
        item
          Caption = '   '#26165'  '#31216
          Width = 80
        end
        item
          Caption = '   '#23458#25143#26426#21517
          Width = 100
        end
        item
          Caption = '  '#23458#25143#26426#22320#22336
          Width = 100
        end
        item
          Caption = ' '#23458#25143#26426#31471#21475
          Width = 80
        end>
      RowSelect = True
      SortType = stData
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = Lv1DblClick
    end