david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
324 lines
11 KiB
Plaintext
324 lines
11 KiB
Plaintext
object BroadcastChatMainForm: TBroadcastChatMainForm
|
|
Left = 52
|
|
Top = 80
|
|
ActiveControl = ed_Message
|
|
AutoScroll = False
|
|
BorderWidth = 5
|
|
Caption = 'RemObjects SDK Broadcast Channel LAN Chat Client'
|
|
ClientHeight = 239
|
|
ClientWidth = 449
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 250
|
|
Constraints.MinWidth = 416
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 449
|
|
Height = 26
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
449
|
|
26)
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = 2
|
|
Width = 53
|
|
Height = 13
|
|
Caption = 'Nick Name:'
|
|
end
|
|
object Panel8: TPanel
|
|
Left = 60
|
|
Top = 0
|
|
Width = 389
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
BevelInner = bvLowered
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Panel9: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 387
|
|
Height = 19
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 1
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
387
|
|
19)
|
|
object ed_NickName: TEdit
|
|
Left = 1
|
|
Top = 1
|
|
Width = 386
|
|
Height = 17
|
|
Anchors = [akLeft, akTop, akRight]
|
|
BorderStyle = bsNone
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 26
|
|
Width = 449
|
|
Height = 133
|
|
Align = alClient
|
|
BevelInner = bvLowered
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Panel4: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 447
|
|
Height = 131
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 1
|
|
TabOrder = 0
|
|
object ed_Chat: TMemo
|
|
Left = 1
|
|
Top = 1
|
|
Width = 445
|
|
Height = 129
|
|
Align = alClient
|
|
BorderStyle = bsNone
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 159
|
|
Width = 449
|
|
Height = 80
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
449
|
|
80)
|
|
object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
|
Left = 0
|
|
Top = 32
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
ApplicationType = atClient
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 5
|
|
Width = 449
|
|
Height = 21
|
|
Align = alTop
|
|
BevelInner = bvLowered
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Panel6: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 447
|
|
Height = 19
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 1
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
447
|
|
19)
|
|
object ed_Message: TEdit
|
|
Left = 1
|
|
Top = 1
|
|
Width = 445
|
|
Height = 17
|
|
Anchors = [akLeft, akTop, akRight]
|
|
BorderStyle = bsNone
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object Panel7: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 449
|
|
Height = 5
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
end
|
|
object btn_Send: TBitBtn
|
|
Left = 335
|
|
Top = 32
|
|
Width = 114
|
|
Height = 25
|
|
Action = ac_SendMessage
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Send Message'
|
|
TabOrder = 2
|
|
Glyph.Data = {
|
|
36060000424D3606000000000000360000002800000020000000100000000100
|
|
18000000000000060000220B0000220B00000000000000000000FF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FF0170ACFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9B9B9BFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FF0275B00E88C00275B0096EA10174AFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9D9D9DAAAAAA9D
|
|
9D9D9E9E9E9C9C9CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
FF00FFFF00FF0275B0279FDA1379B05FE3FF70EFFC5DD4E50C699A0275B00275
|
|
B0FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9D9D9DBDBDBDA8A8A8DC
|
|
DCDCE0E0E0D4D4D49E9E9E9D9D9D9D9D9DFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
FF00FF0275B03FC7FF147FBA1682BB52D7FF6CEBFE7FFEFF86FFFF8AFFFF5FD7
|
|
E60275B00275B00473ADFF00FFFF00FFFF00FF9D9D9DD0D0D0ABABABACACACD7
|
|
D7D7E0E0E0E6E6E6E8E8E8EAEAEAD5D5D59D9D9D9D9D9D9E9E9EFF00FFFF00FF
|
|
0275B03EC4FC3BC2FF117DB63FC4F847CCFB63E3FC7BF8FF7FFBFF80FEFF7EFB
|
|
FC1D84AF2DA5D90679B4FF00FFFF00FF9D9D9DCFCFCFCFCFCFA9A9A9CECECED2
|
|
D2D2DCDCDCE5E5E5E6E6E6E6E6E6E5E5E5ACACACBFBFBFA1A1A1FF00FF0275B0
|
|
56D9FF48CCFB42C5F8128BC53FC4F83FC4F85ADCFB77F4FF82FFFF73EDF31D84
|
|
AF32B1ED0174AFFF00FFFF00FF9D9D9DD9D9D9D2D2D2D0D0D0ADADADCECECECE
|
|
CECED9D9D9E3E3E3E7E7E7DFDFDFACACACC6C6C69C9C9CFF00FF0275B076F4FF
|
|
64E5FE5DDEFB5FD7E60377B13BC1FE3ABFFA51D4FB72F2FF64DCEA1D84AF35B7
|
|
F338BDFB0174AFFF00FF9D9D9DE3E3E3DDDDDDDADADAD5D5D59E9E9ECECECECD
|
|
CDCDD6D6D6E2E2E2D7D7D7ACACACC9C9C9CDCDCD9C9C9CFF00FF0275B08BFFFF
|
|
77F3FE5FD7E60375B01C8EC7C738382EACE648C9F448BFDE2B9AC751D4FA4FD3
|
|
FE0174AFFF00FFFF00FF9D9D9DEAEAEAE3E3E3D5D5D59E9E9EB3B3B3818181C3
|
|
C3C3D1D1D1CBCBCBB9B9B9D5D5D5D6D6D69C9C9CFF00FFFF00FF0275B08EFFFF
|
|
5FD7E60070AD0172AC006BA4C738380183BD0C8CC25AD5E775F6FFC73838C738
|
|
380D87BCFF00FFFF00FF9D9D9DEAEAEAD5D5D59B9B9B9C9C9C989898818181A1
|
|
A1A1A9A9A9D4D4D4E3E3E3818181818181A8A8A8FF00FFFF00FF0275B05FD7E6
|
|
006FAC0377B10378B2006CA7C73838CC474707A7E06DEBF484FFFFC73838CF4F
|
|
4FC73838FF00FFFF00FF9D9D9DD5D5D59A9A9A9E9E9E9F9F9F9999998181818E
|
|
8E8EAFAFAFDEDEDEE7E7E7818181959595818181FF00FFFF00FF0376B00275B0
|
|
0377B10378B20472AA03669EC73838CE4B4BC73838C73838C73838C73838E290
|
|
90D35C5CC73838FF00FF9E9E9E9D9D9D9E9E9E9E9E9E9E9E9E99999981818190
|
|
9090818181818181818181818181C4C4C49E9E9E818181FF00FFFF00FFFF00FF
|
|
FF00FFFF00FF0378B20379B40279B4C73838D15656D05454D46262D96F6FDE83
|
|
83E39797D76A6AC73838FF00FFFF00FFFF00FFFF00FF9F9F9F9F9F9F9E9E9E81
|
|
81819A9A9A999999A3A3A3ADADADBBBBBBC9C9C9A9A9A9818181FF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838CC4747D05353D56464DA75
|
|
75E18A8AD96F6FC73838FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FF8181818E8E8E979797A4A4A4B1B1B1C0C0C0ACACAC818181FF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838C73838C73838D769
|
|
69D15656C73838FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FFFF00FF818181818181818181A8A8A89A9A9A818181FF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838CA3F
|
|
3FC73838FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFFF00FFFF00FF818181878787818181FF00FFFF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC73838C738
|
|
38FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFFF00FFFF00FF818181818181FF00FFFF00FFFF00FF}
|
|
NumGlyphs = 2
|
|
end
|
|
object BitBtn1: TBitBtn
|
|
Left = 215
|
|
Top = 32
|
|
Width = 114
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'List Users'
|
|
TabOrder = 3
|
|
OnClick = BitBtn1Click
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
18000000000000030000220B0000220B00000000000000000000FF00FF314B62
|
|
AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF
|
|
106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF
|
|
00FF925D5AB48C80C9A391C28F88FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
FF00FFFF00FF3BABFFA1CAE78C7775A38372EBE0B8FEFCCFFEFCCEFCFBCCE3CF
|
|
B1C0998CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBDA4A4CEA58FFF
|
|
EDB2FFFCCAFFFFCFFFFFCFFFFFD5FFFFEAF3EBE5A0746FFF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFB67F76F4D9A1F6D095FCF4C2FFFFCFFFFFD8FFFFEEFFFF
|
|
FAFFFFFFD5C2ACFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD0A792FBDC9AEE
|
|
B87FFBF0BDFFFFD0FFFFDCFFFFF7FFFFFAFFFFE6EEEAC2B7847EFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFDCB79AFAD796EAA76CF7DAA3FFFFCEFFFFD4FFFFE1FFFF
|
|
E3FFFFD7F8F6CBB69782FF00FFFF00FFFF00FFFF00FFFF00FFD5AF96FEE2A1EA
|
|
A96AEFBD80FAE9B4FFFFD0FFFFD3FFFFD1FFFFD1F3EEC5B88B80FF00FFFF00FF
|
|
FF00FFFF00FFFF00FFBB8980FCEBB1F8E2B5F0C690F0C286F7DCA5FEF3C1FEF8
|
|
C6FFFFCFDDCEA9FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD3B499FF
|
|
FFFFFFF4E2EFBD80EBAB6FF0C086FBDEA3FCF3B8AC8676FF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FFC6ADA7F3EBD1FFEEAFFCDE9DFEE2A1F0D4
|
|
A4C29886FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FFBB987EC19983D3AD93D1A592FF00FFFF00FFFF00FFFF00FF}
|
|
end
|
|
end
|
|
object ROBINMessage: TROBinMessage
|
|
Left = 49
|
|
Top = 43
|
|
end
|
|
object ROBroadcastServer: TROBroadcastServer
|
|
Active = True
|
|
Dispatchers = <
|
|
item
|
|
Name = 'ROBINMessage'
|
|
Message = ROBINMessage
|
|
Enabled = True
|
|
end>
|
|
IndyUDPServer.BroadcastEnabled = True
|
|
IndyUDPServer.Bindings = <>
|
|
IndyUDPServer.DefaultPort = 8090
|
|
Left = 49
|
|
Top = 139
|
|
end
|
|
object ROBroadcastChannel: TROBroadcastChannel
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
AsyncTimeOut = 100
|
|
Retrys = 5
|
|
IndyClient.BroadcastEnabled = True
|
|
IndyClient.Port = 8090
|
|
Port = 8090
|
|
OnBroadCastResponseReceived = ROBroadcastChannelBroadCastResponseReceived
|
|
Left = 49
|
|
Top = 91
|
|
end
|
|
object ActionList1: TActionList
|
|
OnUpdate = ActionList1Update
|
|
Left = 137
|
|
Top = 43
|
|
object ac_SendMessage: TAction
|
|
Caption = '&Send Message'
|
|
ShortCut = 13
|
|
OnExecute = ac_SendMessageExecute
|
|
end
|
|
end
|
|
end
|