home *** CD-ROM | disk | FTP | other *** search
- 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
-