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