429 lines
9.7 KiB
Plaintext
429 lines
9.7 KiB
Plaintext
object rdChatForm: TrdChatForm
|
|
Left = 433
|
|
Top = 139
|
|
BorderIcons = []
|
|
BorderStyle = bsNone
|
|
Caption = 'rdChatForm'
|
|
ClientHeight = 510
|
|
ClientWidth = 526
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -14
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = False
|
|
Position = poDefault
|
|
OnClose = FormClose
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnKeyPress = FormKeyPress
|
|
OnResize = FormResize
|
|
OnShow = FormResize
|
|
PixelsPerInch = 120
|
|
TextHeight = 16
|
|
object Panel3: TPanel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 518
|
|
Height = 502
|
|
Align = alClient
|
|
ParentBackground = False
|
|
TabOrder = 0
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
object pSplit: TSplitter
|
|
Left = 1
|
|
Top = 218
|
|
Width = 516
|
|
Height = 4
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
Color = clGray
|
|
ParentColor = False
|
|
end
|
|
object pMain: TPanel
|
|
Left = 1
|
|
Top = 37
|
|
Width = 516
|
|
Height = 181
|
|
Align = alTop
|
|
BorderWidth = 2
|
|
ParentBackground = False
|
|
TabOrder = 1
|
|
object mChatLog: TRichEdit
|
|
Left = 3
|
|
Top = 3
|
|
Width = 510
|
|
Height = 175
|
|
TabStop = False
|
|
Align = alClient
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -17
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
PopupMenu = HistoryPopupMenu
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object pBox: TScrollBox
|
|
Left = 1
|
|
Top = 326
|
|
Width = 516
|
|
Height = 175
|
|
VertScrollBar.Smooth = True
|
|
VertScrollBar.Style = ssHotTrack
|
|
VertScrollBar.Tracking = True
|
|
Align = alClient
|
|
BorderStyle = bsNone
|
|
Color = 14737632
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object pTitle: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 516
|
|
Height = 36
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Color = 12704960
|
|
ParentBackground = False
|
|
TabOrder = 2
|
|
OnMouseDown = pTitleMouseDown
|
|
OnMouseMove = pTitleMouseMove
|
|
OnMouseUp = pTitleMouseUp
|
|
object cTitle: TLabel
|
|
Left = 10
|
|
Top = 10
|
|
Width = 32
|
|
Height = 16
|
|
Caption = 'Chat'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Transparent = True
|
|
OnMouseDown = pTitleMouseDown
|
|
OnMouseMove = pTitleMouseMove
|
|
OnMouseUp = pTitleMouseUp
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 383
|
|
Top = 0
|
|
Width = 133
|
|
Height = 36
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
Color = clMoneyGreen
|
|
TabOrder = 0
|
|
object btnClose: TSpeedButton
|
|
Left = 103
|
|
Top = 5
|
|
Width = 26
|
|
Height = 26
|
|
Caption = 'X'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
OnClick = btnCloseClick
|
|
end
|
|
object btnMinimize: TSpeedButton
|
|
Left = 79
|
|
Top = 5
|
|
Width = 24
|
|
Height = 26
|
|
Caption = '_'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
OnClick = btnMinimizeClick
|
|
end
|
|
object btnOnTop: TSpeedButton
|
|
Left = 5
|
|
Top = 4
|
|
Width = 65
|
|
Height = 28
|
|
Caption = 'To Top'
|
|
Flat = True
|
|
Layout = blGlyphRight
|
|
OnClick = btnOnTopClick
|
|
end
|
|
end
|
|
end
|
|
object myBox: TPanel
|
|
Left = 1
|
|
Top = 256
|
|
Width = 516
|
|
Height = 70
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
Color = 14737632
|
|
ParentBackground = False
|
|
TabOrder = 3
|
|
end
|
|
object Panel12: TPanel
|
|
Left = 1
|
|
Top = 222
|
|
Width = 516
|
|
Height = 34
|
|
Align = alTop
|
|
ParentBackground = False
|
|
TabOrder = 4
|
|
object btnLockChatBoxes: TSpeedButton
|
|
Left = 399
|
|
Top = 4
|
|
Width = 114
|
|
Height = 28
|
|
Caption = 'Lock Chat Boxes'
|
|
Flat = True
|
|
Layout = blGlyphRight
|
|
OnClick = btnLockChatBoxesClick
|
|
end
|
|
object btnClearHistory: TSpeedButton
|
|
Left = 84
|
|
Top = 2
|
|
Width = 94
|
|
Height = 30
|
|
Caption = 'Clear History'
|
|
Flat = True
|
|
OnClick = btnClearHistoryClick
|
|
end
|
|
object btnHideHistory: TSpeedButton
|
|
Left = 182
|
|
Top = 2
|
|
Width = 95
|
|
Height = 30
|
|
Caption = 'Hide History'
|
|
Flat = True
|
|
OnClick = btnHideHistoryClick
|
|
end
|
|
object btnDesktop: TSpeedButton
|
|
Left = 5
|
|
Top = 2
|
|
Width = 75
|
|
Height = 30
|
|
Caption = 'Desktop'
|
|
Flat = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -15
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Visible = False
|
|
OnClick = btnDesktopClick
|
|
end
|
|
object btnHideTyping: TSpeedButton
|
|
Left = 281
|
|
Top = 2
|
|
Width = 114
|
|
Height = 30
|
|
Caption = 'Hide my Typing'
|
|
Flat = True
|
|
OnClick = btnHideTypingClick
|
|
end
|
|
end
|
|
end
|
|
object pRight: TPanel
|
|
Left = 522
|
|
Top = 4
|
|
Width = 4
|
|
Height = 502
|
|
Cursor = crSizeWE
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
Color = clGray
|
|
TabOrder = 1
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
object pSize1: TPanel
|
|
Left = 0
|
|
Top = 487
|
|
Width = 4
|
|
Height = 15
|
|
Cursor = crSizeNWSE
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
Color = clBlack
|
|
TabOrder = 0
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
end
|
|
end
|
|
object pBottom: TPanel
|
|
Left = 0
|
|
Top = 506
|
|
Width = 526
|
|
Height = 4
|
|
Cursor = crSizeNS
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
Color = clGray
|
|
TabOrder = 2
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
object pSize2: TPanel
|
|
Left = 507
|
|
Top = 0
|
|
Width = 19
|
|
Height = 4
|
|
Cursor = crSizeNWSE
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
Color = clBlack
|
|
TabOrder = 0
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
end
|
|
end
|
|
object pLeft: TPanel
|
|
Left = 0
|
|
Top = 4
|
|
Width = 4
|
|
Height = 502
|
|
Cursor = crSizeWE
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Color = clGray
|
|
TabOrder = 3
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
object pSize4: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 4
|
|
Height = 15
|
|
Cursor = crSizeNWSE
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Color = clBlack
|
|
TabOrder = 0
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
end
|
|
end
|
|
object pTop: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 526
|
|
Height = 4
|
|
Cursor = crSizeNS
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Color = clGray
|
|
TabOrder = 4
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
object pSize3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 18
|
|
Height = 4
|
|
Cursor = crSizeNWSE
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Color = clBlack
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnMouseDown = Panel3MouseDown
|
|
OnMouseMove = Panel3MouseMove
|
|
OnMouseUp = Panel3MouseUp
|
|
end
|
|
end
|
|
object pTimer: TTimer
|
|
Enabled = False
|
|
Interval = 500
|
|
OnTimer = pTimerTimer
|
|
Left = 248
|
|
Top = 45
|
|
end
|
|
object CopyPastePopupMenu: TPopupMenu
|
|
Left = 280
|
|
Top = 45
|
|
object Copy1: TMenuItem
|
|
Caption = 'Copy'
|
|
OnClick = Copy1Click
|
|
end
|
|
object Paste1: TMenuItem
|
|
Caption = 'Paste'
|
|
OnClick = Paste1Click
|
|
end
|
|
end
|
|
object HistoryPopupMenu: TPopupMenu
|
|
Left = 60
|
|
Top = 89
|
|
object miSaveHistory: TMenuItem
|
|
Caption = 'Save History'
|
|
OnClick = miSaveHistoryClick
|
|
end
|
|
object miLoadHistory: TMenuItem
|
|
Caption = 'Load History'
|
|
OnClick = miLoadHistoryClick
|
|
end
|
|
object miCopyHistory: TMenuItem
|
|
Caption = 'Copy to Clipboard'
|
|
OnClick = miCopyHistoryClick
|
|
end
|
|
end
|
|
object dlgSaveHistory: TSaveDialog
|
|
DefaultExt = '.hst'
|
|
Filter = 'History(*.hst)|*.hst'
|
|
InitialDir = '.'
|
|
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
|
|
Left = 92
|
|
Top = 89
|
|
end
|
|
object dlgLoadHistory: TOpenDialog
|
|
DefaultExt = '.hst'
|
|
Filter = 'History(*.hst)|*.hst'
|
|
InitialDir = '.'
|
|
Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
|
Left = 28
|
|
Top = 89
|
|
end
|
|
object myUI: TRtcPChatUI
|
|
OnInit = myUIInit
|
|
OnOpen = myUIOpen
|
|
OnClose = myUIClose
|
|
OnError = myUIError
|
|
OnLogOut = myUILogOut
|
|
OnUserJoined = myUIUserJoined
|
|
OnUserLeft = myUIUserLeft
|
|
OnMessage = myUIMessage
|
|
Left = 140
|
|
Top = 8
|
|
end
|
|
end
|