492 lines
14 KiB
Plaintext
492 lines
14 KiB
Plaintext
object rdFileTransfer: TrdFileTransfer
|
|
Left = 555
|
|
Top = 113
|
|
BorderStyle = bsNone
|
|
Caption = 'File Transfer'
|
|
ClientHeight = 234
|
|
ClientWidth = 273
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
PrintScale = poNone
|
|
Scaled = False
|
|
OnClose = FormClose
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 120
|
|
TextHeight = 16
|
|
object pTitlebar: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 273
|
|
Height = 28
|
|
Align = alTop
|
|
Color = 12704960
|
|
ParentBackground = False
|
|
TabOrder = 0
|
|
OnMouseDown = pTitlebarMouseDown
|
|
OnMouseMove = pTitlebarMouseMove
|
|
OnMouseUp = pTitlebarMouseUp
|
|
object cTitleBar: TLabel
|
|
Left = 8
|
|
Top = 8
|
|
Width = 99
|
|
Height = 16
|
|
Caption = '(NOT READY)'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Transparent = True
|
|
OnMouseDown = pTitlebarMouseDown
|
|
OnMouseMove = pTitlebarMouseMove
|
|
OnMouseUp = pTitlebarMouseUp
|
|
end
|
|
object cUserName: TLabel
|
|
Left = 208
|
|
Top = 8
|
|
Width = 16
|
|
Height = 16
|
|
Alignment = taRightJustify
|
|
Caption = '---'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
OnMouseDown = pTitlebarMouseDown
|
|
OnMouseMove = pTitlebarMouseMove
|
|
OnMouseUp = pTitlebarMouseUp
|
|
end
|
|
object btnMinimize: TButton
|
|
Left = 228
|
|
Top = 4
|
|
Width = 21
|
|
Height = 21
|
|
Caption = '_'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
TabStop = False
|
|
OnClick = btnMinimizeClick
|
|
end
|
|
object btnClose: TButton
|
|
Left = 248
|
|
Top = 4
|
|
Width = 21
|
|
Height = 21
|
|
Caption = 'X'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
TabStop = False
|
|
OnClick = btnCloseClick
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 28
|
|
Width = 273
|
|
Height = 206
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object DownPanel: TPanel
|
|
Left = 1
|
|
Top = 149
|
|
Width = 271
|
|
Height = 56
|
|
Align = alBottom
|
|
BevelInner = bvLowered
|
|
TabOrder = 0
|
|
OnClick = DownPanelClick
|
|
object DownLabel: TLabel
|
|
Left = 60
|
|
Top = 4
|
|
Width = 209
|
|
Height = 49
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption =
|
|
'Drag Files && Folders from Windows Explorer HERE to send them (u' +
|
|
'pload).'
|
|
Layout = tlCenter
|
|
WordWrap = True
|
|
OnClick = DownPanelClick
|
|
end
|
|
object btnExplore: TSpeedButton
|
|
Left = 4
|
|
Top = 4
|
|
Width = 53
|
|
Height = 49
|
|
Caption = 'Explore'
|
|
Enabled = False
|
|
Flat = True
|
|
Glyph.Data = {
|
|
76060000424D7606000000000000360400002800000018000000180000000100
|
|
0800000000004002000000000000000000000001000000010000FF00FF000453
|
|
79004551590068535800765857007A5856007A6362007B6563007A696D007570
|
|
6D006D6E7400706C7D00864A4300804A4400814C4700824E4900844F4B008753
|
|
4D008E5C58008E665F0093665C0095675C0096685E0082696900976960009A68
|
|
60009E6E67009F7369008A7376008F737600877078008972780093757B00A074
|
|
6B00A5746900A0766C00A9776A00A77E6D00AA7A6D00AA797400B2817700B186
|
|
7900B5907D00BD957E00EAA36500E9AB6B00EAAB6C00EDAF6D00EBAF7400EBB0
|
|
7600045982001A5E8000175A97001F5D9700185A990005628F00016391000566
|
|
9500036C9C00046D9E000A6E9A000B709D003B608200175EA5001A5DA7000271
|
|
A5000274A9000578AC00037FB700486B8B00507683006E7981001F73CF000C67
|
|
D3001073EA001074F0001680A7001C86AB001D8BB4001C95BB00248FB600289C
|
|
BC003297B400438297007F8489004D9CBB0041A0BC006CACBD00099ACE001195
|
|
C10016A9D70019ACD70026ABCF003AAFC7003FB4CB003FB1D30033B8DC00358A
|
|
E7003A8EE5003590EE002D8CF2002B93FE002F9CFF00359EFF00389FFF0014B1
|
|
E2001BB6E00012BDEF0025BBE30027BFE2002BB8E2003CA7FC0035AAFF004490
|
|
C70044A9C50045ACCE0054B1CA0062AFC90066BBCE0044BDE10040ABFB0040AB
|
|
FC0041AFFF004AB0FA0018C1EF000CC2F7000DC5FB000DC7FE0019C9F8001ACC
|
|
FE0036C7ED0025D7FE003AD3FB003DD3FB0053C2DD006CC7DC0049CEE2005BD5
|
|
E2005CD5E2005BD4F00050DAF00070CFE50063D5E20069D5E2007BD5E20045E6
|
|
FE0056EEFE006AEFF7007DE9FE007AEEFE0066F2FB0069F6FE0076F3FA007FF7
|
|
FE007BFCFE0080808400B18E8400CBA48A00CEA58C00D0A78C00CFAF9000D3B2
|
|
9A00DCB89800F0BF8000E3BD9500C9ACA400D5BFBD00EFC08600F0C48B00F4C7
|
|
8900F8CB8800E2C79C00F3CF9300F0C99700F4CE9800FBD59000F4D19900FFDE
|
|
9A00FFDD9D00FFE19C00D9C1A700DAC7A700DDCCB400EACCA000EFD7A700F6DD
|
|
A500E3D3B600FDE2A500FFEBA700F7E3AF00FFEDAB00FEEEB200F8EBB600FCEB
|
|
B600FCEEB600FEF2B2008BABC7008ED5E300B2D5E30081FFFE0087FFFE008EFF
|
|
FE0092F7FE009FF7FF0095FFFE0098FAFE009FFFFE00A0E9EF00AAEEF600A6FF
|
|
FE00BAFFFE00F2E7C200F2EDCD00FCF3C100FEF7C500FFFEC500FDFAC900FFFF
|
|
CB00FFFFCD00FBF4D000FFFFD100FFFFD400FFFFD900FEFCDD00C1FFFF00D5FF
|
|
FF00DDFFFF00FEF4E500FFFFE600FFFFEB00EBF4F800F2FFFF00FFFFFA00F8FF
|
|
FF00FFFFFE000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000B0209000000000000000000000000000000
|
|
00000000001E3F4054000000003939393939393939390000000000001F344B70
|
|
7100003939595958696E7773503D37370000001C364A68786200394C8891837F
|
|
81848B87724E3B3232001C354A677861000042899791837F81828676564D3B39
|
|
01203E4965786300000042899791837F7C60271A211B160D014548676F640000
|
|
000042899791837D521729B4D3DBBA2A0508C47B64000000000042899791835B
|
|
17A5E4DDDDDDDEDDAB281A640000000000004289979183469CEAE4D7D9D9D9C2
|
|
BEA40D00000000000000428999959513B6E5DDD9D9DDDDBDA9BB260D00000000
|
|
000042CFD08D5F16D4D9D9DDD9D9DDB930B29E100000000000004174515C6A16
|
|
DEDDD9D9DDDDD5A72CB2A2100000000000003B5E96918316D4D9DDD9DDD5B02E
|
|
2EBC9E10000000000000418997918306B4DDD9D9C2ACA3ACC2C2240D00000000
|
|
000042899791835325D7BBA7302EAEE3EAA1100000000000000042899791836B
|
|
0A2BC3B3AAAFD9EAA612100000000000000042899791837F6C47219FB7B8A021
|
|
0310000000000000000042899791837F8184579B060410103300000000000000
|
|
0000428ECDCBCACCC7C7C7C7988C5A443900000000000000000042C6EAE2E0D1
|
|
CCC7C7C7C79A926C390000000000000000004255E6E7E1D2CDC7C7C7C7C7934F
|
|
390000000000000000000042437575C5908F89895D5D3C390000000000000000
|
|
0000000000424242424242424242000000000000000000000000}
|
|
Layout = blGlyphTop
|
|
OnClick = DownPanelClick
|
|
end
|
|
end
|
|
object pMain: TPageControl
|
|
Left = 1
|
|
Top = 1
|
|
Width = 271
|
|
Height = 148
|
|
ActivePage = pSending
|
|
Align = alClient
|
|
MultiLine = True
|
|
TabOrder = 1
|
|
object pSending: TTabSheet
|
|
Caption = 'Sending'
|
|
object Bevel1: TBevel
|
|
Left = 3
|
|
Top = 51
|
|
Width = 259
|
|
Height = 35
|
|
Style = bsRaised
|
|
end
|
|
object gSendCurrent: TGauge
|
|
Left = 4
|
|
Top = 52
|
|
Width = 257
|
|
Height = 12
|
|
BorderStyle = bsNone
|
|
ForeColor = clNavy
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
MaxValue = 10000
|
|
ParentFont = False
|
|
Progress = 0
|
|
ShowText = False
|
|
end
|
|
object lSendFileName: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 31
|
|
Height = 16
|
|
Caption = '------'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lSendCompleted: TLabel
|
|
Left = 223
|
|
Top = 88
|
|
Width = 36
|
|
Height = 16
|
|
Alignment = taRightJustify
|
|
Caption = '-- / --'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object gSendTotal: TGauge
|
|
Left = 4
|
|
Top = 64
|
|
Width = 257
|
|
Height = 4
|
|
BorderStyle = bsNone
|
|
ForeColor = clTeal
|
|
MaxValue = 10000
|
|
Progress = 0
|
|
ShowText = False
|
|
end
|
|
object lSendTime: TLabel
|
|
Left = 4
|
|
Top = 104
|
|
Width = 12
|
|
Height = 16
|
|
Caption = '---'
|
|
end
|
|
object lSendSpeed: TLabel
|
|
Left = 4
|
|
Top = 88
|
|
Width = 79
|
|
Height = 16
|
|
Caption = 'NOT READY'
|
|
end
|
|
object gSendCompleted: TGauge
|
|
Left = 4
|
|
Top = 68
|
|
Width = 257
|
|
Height = 17
|
|
BorderStyle = bsNone
|
|
ForeColor = clGreen
|
|
MaxValue = 10000
|
|
Progress = 0
|
|
end
|
|
object Label2: TLabel
|
|
Left = 4
|
|
Top = 20
|
|
Width = 26
|
|
Height = 16
|
|
Caption = 'from'
|
|
end
|
|
object lSendFromFolder: TLabel
|
|
Left = 30
|
|
Top = 20
|
|
Width = 20
|
|
Height = 16
|
|
Cursor = crHandPoint
|
|
Caption = '-----'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
OnClick = lSendFromFolderClick
|
|
end
|
|
object lSendCurrent: TLabel
|
|
Left = 4
|
|
Top = 36
|
|
Width = 28
|
|
Height = 16
|
|
Caption = '-- / --'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lSendTotal: TLabel
|
|
Left = 231
|
|
Top = 36
|
|
Width = 28
|
|
Height = 16
|
|
Alignment = taRightJustify
|
|
Caption = '-- / --'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clTeal
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object btnCancelSend: TSpeedButton
|
|
Left = 240
|
|
Top = 0
|
|
Width = 23
|
|
Height = 22
|
|
Caption = 'X'
|
|
OnClick = btnCancelSendClick
|
|
end
|
|
end
|
|
object pReceiving: TTabSheet
|
|
Caption = 'Receiving'
|
|
ImageIndex = 1
|
|
object Bevel2: TBevel
|
|
Left = 3
|
|
Top = 51
|
|
Width = 259
|
|
Height = 35
|
|
Style = bsRaised
|
|
end
|
|
object gRecvCurrent: TGauge
|
|
Left = 4
|
|
Top = 52
|
|
Width = 257
|
|
Height = 12
|
|
BorderStyle = bsNone
|
|
ForeColor = clNavy
|
|
MaxValue = 10000
|
|
Progress = 0
|
|
ShowText = False
|
|
end
|
|
object gRecvTotal: TGauge
|
|
Left = 4
|
|
Top = 64
|
|
Width = 257
|
|
Height = 21
|
|
BorderStyle = bsNone
|
|
ForeColor = clGreen
|
|
MaxValue = 10000
|
|
Progress = 0
|
|
end
|
|
object lRecvFileName: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 21
|
|
Height = 16
|
|
Caption = '----'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lRecvTotal: TLabel
|
|
Left = 223
|
|
Top = 88
|
|
Width = 36
|
|
Height = 16
|
|
Alignment = taRightJustify
|
|
Caption = '-- / --'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lRecvTime: TLabel
|
|
Left = 4
|
|
Top = 104
|
|
Width = 12
|
|
Height = 16
|
|
Caption = '---'
|
|
end
|
|
object lRecvSpeed: TLabel
|
|
Left = 4
|
|
Top = 88
|
|
Width = 79
|
|
Height = 16
|
|
Caption = 'NOT READY'
|
|
end
|
|
object lRecvToFolder: TLabel
|
|
Left = 18
|
|
Top = 20
|
|
Width = 20
|
|
Height = 16
|
|
Cursor = crHandPoint
|
|
Caption = '-----'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
OnClick = btnOpenInboxClick
|
|
end
|
|
object Label1: TLabel
|
|
Left = 4
|
|
Top = 20
|
|
Width = 11
|
|
Height = 16
|
|
Caption = 'to'
|
|
end
|
|
object lRecvCurrent: TLabel
|
|
Left = 4
|
|
Top = 36
|
|
Width = 28
|
|
Height = 16
|
|
Caption = '-- / --'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object btnCancelFetch: TSpeedButton
|
|
Left = 240
|
|
Top = 0
|
|
Width = 23
|
|
Height = 22
|
|
Caption = 'X'
|
|
OnClick = btnCancelFetchClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object myUI: TRtcPFileTransferUI
|
|
OnInit = myUIInit
|
|
OnOpen = myUIOpen
|
|
OnClose = myUIClose
|
|
OnError = myUIError
|
|
OnLogOut = myUILogOut
|
|
OnSendStart = myUISend
|
|
OnSend = myUISend
|
|
OnSendUpdate = myUISend
|
|
OnSendStop = myUISend
|
|
OnSendCancel = myUISendCancel
|
|
OnRecvStart = myUIRecv
|
|
OnRecv = myUIRecv
|
|
OnRecvStop = myUIRecv
|
|
OnRecvCancel = myUIRecvCancel
|
|
Left = 140
|
|
Top = 8
|
|
end
|
|
end
|