chatchannelpage.dfm

Last change: 2008-02-03 This is the source code of KCeasy。

object ChatChannelFrame: TChatChannelFrame
  Left = 0
  Top = 0
  Width = 443
  Height = 277
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Align = alClient
  AutoScroll = False
  TabOrder = 0
  object VSplitter: TSplitter
    Left = 310
    Top = 22
    Width = 3
    Height = 255
    Cursor = crHSplit
    Align = alRight
    AutoSnap = False
    MinSize = 50
  end
  object UserPanel: TPanel
    Left = 313
    Top = 22
    Width = 130
    Height = 255
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object UserListBox: TListBox
      Left = 0
      Top = 0
      Width = 130
      Height = 255
      Align = alClient
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      Constraints.MinWidth = 50
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Fixedsys'
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      Sorted = True
      TabOrder = 0
      OnDblClick = UserListBoxDblClick
    end
  end
  object TextPanel: TPanel
    Left = 0
    Top = 22
    Width = 310
    Height = 255
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object RecvRichEdit: TRichEdit
      Left = 0
      Top = 0
      Width = 310
      Height = 231
      TabStop = False
      Align = alClient
      BevelInner = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
      OnKeyPress = RecvRichEditKeyPress
    end
    object SendEditPanel: TPanel
      Left = 0
      Top = 231
      Width = 310
      Height = 24
      Align = alBottom
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        310
        24)
      object SendEdit: TEdit
        Left = 0
        Top = 3
        Width = 310
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BevelInner = bvSpace
        BevelKind = bkFlat
        BorderStyle = bsNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyDown = SendEditKeyDown
        OnKeyPress = SendEditKeyPress
      end
    end
  end
  object TopicPanel: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 22
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object TopicStatic: TStaticText
      Left = 0
      Top = 0
      Width = 443
      Height = 19
      Align = alTop
      AutoSize = False
      BevelInner = bvSpace
      BevelKind = bkFlat
      Color = clGradientActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ShowAccelChar = False
      TabOrder = 0
    end
  end
end