Chip 2001 September/Chip_2001-09_cd1.bin/zkuste/irc/prog/virc97.exe/0/RCDATA/TDCCCHAT/TDCCCHAT.txt

Text File | 2001-06-24 | 6.6 KB | 283 lines

object DCCChat: TDCCChat
  Left = 242
  Top = 247
  Width = 563
  Height = 440
  Caption = 'DCC Chat'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object WholePanel: TPanel
    Tag = 31337
    Left = 9
    Top = 30
    Width = 537
    Height = 349
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = 'WholePanel'
    TabOrder = 0
    object MainPanel: TPanel
      Tag = 31337
      Left = 2
      Top = 2
      Width = 533
      Height = 313
      Align = alClient
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 3
        Top = 153
        Width = 527
        Height = 3
        Cursor = crVSplit
        Align = alTop
        Beveled = False
      end
      object tbRemote: TBestScroller
        Left = 3
        Top = 3
        Width = 527
        Height = 150
        Align = alTop
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        PopupMenu = PopupMenu1
        LazyWriteLimit = 4
        HyperlinkColor = clBlue
        OnMouseDown = tbRemoteMouseDown
        OnMouseMove = tbRemoteMouseMove
        OnMouseUp = tbRemoteMouseUp
        OnVScroll = tbRemoteVScroll
      end
      object tbLocal: TBestScroller
        Left = 3
        Top = 156
        Width = 527
        Height = 154
        Align = alClient
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        PopupMenu = PopupMenu2
        LazyWriteLimit = 4
        HyperlinkColor = clBlue
        OnMouseDown = tbRemoteMouseDown
        OnMouseMove = tbLocalMouseMove
        OnMouseUp = tbLocalMouseUp
        OnVScroll = tbLocalVScroll
      end
    end
    object EntryPanel: TPanel
      Left = 2
      Top = 315
      Width = 533
      Height = 32
      Align = alBottom
      BevelOuter = bvNone
      Caption = 'EntryPanel'
      TabOrder = 1
      object tbChatCommand: TWheelRichEdit
        Left = 0
        Top = 0
        Width = 533
        Height = 32
        Align = alClient
        PlainText = True
        PopupMenu = ServerForm.PopupMenu2
        TabOrder = 0
        WordWrap = False
        OnKeyDown = tbChatCommandKeyDown
        OnKeyPress = tbChatCommandKeyPress
        TargetControl = tbLocal
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 388
    Width = 555
    Height = 24
    Panels = <>
    SimplePanel = True
  end
  object ToggleToolbar: TPanel
    Left = 5
    Top = 5
    Width = 8
    Height = 8
    Hint = 'Hide DCC chat toolbar|Click to hide the DCC chat toolbar'
    BevelOuter = bvLowered
    Color = clRed
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = ToggleToolbarClick
  end
  object DockTop: TDock97
    Left = 0
    Top = 0
    Width = 555
    Height = 30
    object DCCChatToolbar: TToolbar97
      Left = 0
      Top = 0
      Width = 41
      Height = 30
      Caption = 'DCC Chat toolbar'
      DefaultDock = DockTop
      DockedTo = DockTop
      DockPos = 0
      object pbAbort: TToolbarButton97
        Left = 11
        Top = 2
        Width = 28
        Height = 26
        Hint = 'Close query|Close this query (private message) window'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333339999933333333399999999933333399337073999333399993000339
          9933393999707333993399339993333339939933399033333993993333707333
          3993993333101933399399333300099339933993330009993933399933000399
          9933339993707339933333399999999933333333399999333333}
        ParentShowHint = False
        ShowHint = True
        OnClick = pbAbortClick
      end
    end
  end
  object DockBottom: TDock97
    Left = 0
    Top = 379
    Width = 555
    Height = 9
    Position = dpBottom
  end
  object DockLeft: TDock97
    Left = 0
    Top = 30
    Width = 9
    Height = 349
    Position = dpLeft
  end
  object DockRight: TDock97
    Left = 546
    Top = 30
    Width = 9
    Height = 349
    Position = dpRight
  end
  object BorderTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = BorderTimerTimer
    Left = 264
    Top = 4
  end
  object PopupMenu1: TPopupMenu
    Left = 372
    Top = 8
    object ServerCut: TMenuItem
      Caption = '&Cut'
      Enabled = False
    end
    object ServerCopy: TMenuItem
      Caption = 'C&opy'
      OnClick = ServerCopyClick
    end
    object ServerPaste: TMenuItem
      Caption = '&Paste'
      Enabled = False
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Logging: TMenuItem
      Caption = '&Logging'
      object LoggingEnabled: TMenuItem
        Caption = '&Enabled'
        OnClick = LoggingEnabledClick
      end
      object LoggingOptions: TMenuItem
        Caption = '&Options ...'
        OnClick = LoggingOptionsClick
      end
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 416
    Top = 8
    object MenuItem1: TMenuItem
      Caption = '&Cut'
      Enabled = False
    end
    object LocalCopy: TMenuItem
      Caption = 'C&opy'
      OnClick = LocalCopyClick
    end
    object MenuItem3: TMenuItem
      Caption = '&Paste'
      Enabled = False
    end
    object MenuItem4: TMenuItem
      Caption = '-'
    end
    object MenuItem5: TMenuItem
      Caption = '&Logging'
      object MenuItem6: TMenuItem
        Caption = '&Enabled'
        OnClick = LoggingEnabledClick
      end
      object MenuItem7: TMenuItem
        Caption = '&Options ...'
        OnClick = LoggingOptionsClick
      end
    end
  end
  object KickTimerR: TTimer
    Enabled = False
    Interval = 500
    OnTimer = KickTimerRTimer
    Left = 336
    Top = 4
  end
  object KickTimerL: TTimer
    Enabled = False
    Interval = 500
    OnTimer = KickTimerLTimer
    Left = 300
    Top = 4
  end
end