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
192 lines
4.0 KiB
Plaintext
192 lines
4.0 KiB
Plaintext
object HTTPChatClientMainForm: THTTPChatClientMainForm
|
|
Left = 398
|
|
Top = 191
|
|
BorderStyle = bsDialog
|
|
Caption = 'HTTP Chat Client'
|
|
ClientHeight = 449
|
|
ClientWidth = 368
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnClose = FormClose
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 3
|
|
Top = 33
|
|
Width = 40
|
|
Height = 13
|
|
Caption = 'User ID:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 3
|
|
Top = 8
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Server:'
|
|
end
|
|
object ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
|
Left = 78
|
|
Top = 378
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
Anchors = [akLeft, akBottom]
|
|
ApplicationType = atClient
|
|
end
|
|
object Label3: TLabel
|
|
Left = 3
|
|
Top = 56
|
|
Width = 79
|
|
Height = 13
|
|
Caption = 'Message History'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 216
|
|
Top = 56
|
|
Width = 69
|
|
Height = 13
|
|
Caption = 'Logged Users:'
|
|
end
|
|
object Memo: TMemo
|
|
Left = 3
|
|
Top = 72
|
|
Width = 207
|
|
Height = 258
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
TabOrder = 5
|
|
end
|
|
object eUserID: TEdit
|
|
Left = 45
|
|
Top = 29
|
|
Width = 180
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
Text = 'JOHN'
|
|
end
|
|
object LoginButton: TBitBtn
|
|
Left = 229
|
|
Top = 27
|
|
Width = 67
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Login'
|
|
Default = True
|
|
TabOrder = 2
|
|
OnClick = LoginButtonClick
|
|
end
|
|
object LogoutButton: TBitBtn
|
|
Left = 299
|
|
Top = 27
|
|
Width = 67
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Log&out'
|
|
TabOrder = 3
|
|
OnClick = LogoutButtonClick
|
|
end
|
|
object eMessage: TEdit
|
|
Left = 3
|
|
Top = 335
|
|
Width = 298
|
|
Height = 21
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
TabOrder = 7
|
|
OnChange = eMessageChange
|
|
end
|
|
object SendButton: TBitBtn
|
|
Left = 305
|
|
Top = 333
|
|
Width = 61
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = '&Send'
|
|
Default = True
|
|
TabOrder = 8
|
|
OnClick = SendButtonClick
|
|
end
|
|
object cbServer: TComboBox
|
|
Left = 45
|
|
Top = 4
|
|
Width = 322
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'http://localhost:8099/BIN'
|
|
Items.Strings = (
|
|
'http://localhost:8099/BIN'
|
|
'http://localhost:8101/BIN')
|
|
end
|
|
object lvLoggedUsers: TListView
|
|
Left = 216
|
|
Top = 72
|
|
Width = 148
|
|
Height = 258
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Checkboxes = True
|
|
Columns = <>
|
|
TabOrder = 6
|
|
ViewStyle = vsList
|
|
end
|
|
object cbPrivateMessage: TCheckBox
|
|
Left = 3
|
|
Top = 359
|
|
Width = 158
|
|
Height = 17
|
|
Caption = 'Send Only to Selected Users'
|
|
TabOrder = 9
|
|
end
|
|
object StatusBar: TStatusBar
|
|
Left = 0
|
|
Top = 430
|
|
Width = 368
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = True
|
|
end
|
|
object RefreshButton: TButton
|
|
Left = 299
|
|
Top = 55
|
|
Width = 67
|
|
Height = 16
|
|
Caption = 'Refresh'
|
|
TabOrder = 4
|
|
OnClick = RefreshButtonClick
|
|
end
|
|
object ROMessage: TROBinMessage
|
|
Left = 127
|
|
Top = 147
|
|
end
|
|
object ROChannel: TROWinInetHTTPChannel
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8099/BIN'
|
|
Left = 99
|
|
Top = 147
|
|
end
|
|
object svcChatService: TRORemoteService
|
|
Message = ROMessage
|
|
Channel = ROChannel
|
|
ServiceName = 'HTTPChatService'
|
|
Left = 155
|
|
Top = 147
|
|
end
|
|
object EventReceiver: TROEventReceiver
|
|
Interval = 1000
|
|
Message = ROMessage
|
|
Channel = ROChannel
|
|
ServiceName = 'HTTPChatService'
|
|
Left = 74
|
|
Top = 147
|
|
end
|
|
end
|