2010-04-15 02:38:29 +02:00
|
|
|
object Form1: TForm1
|
2010-12-02 23:26:05 +01:00
|
|
|
Left = 153
|
2010-04-15 02:38:29 +02:00
|
|
|
Height = 299
|
2010-12-02 23:26:05 +01:00
|
|
|
Top = 215
|
2010-04-15 02:38:29 +02:00
|
|
|
Width = 750
|
|
|
|
ActiveControl = Edit1
|
|
|
|
BorderIcons = [biSystemMenu]
|
|
|
|
Caption = 'Receiver Form'
|
|
|
|
ClientHeight = 299
|
|
|
|
ClientWidth = 750
|
|
|
|
Font.Height = -11
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
OnClose = FormClose
|
|
|
|
OnCreate = FormCreate
|
|
|
|
LCLVersion = '0.9.29'
|
|
|
|
Visible = True
|
|
|
|
object Edit1: TEdit
|
|
|
|
Left = 8
|
2010-12-03 00:16:39 +01:00
|
|
|
Height = 25
|
2010-04-15 02:38:29 +02:00
|
|
|
Top = 22
|
|
|
|
Width = 144
|
|
|
|
Font.Height = -13
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
Font.Style = [fsBold]
|
|
|
|
ParentFont = False
|
|
|
|
TabOrder = 0
|
|
|
|
Text = '/topic/mytopic'
|
|
|
|
end
|
|
|
|
object Button1: TButton
|
|
|
|
Left = 264
|
|
|
|
Height = 25
|
|
|
|
Top = 22
|
|
|
|
Width = 92
|
|
|
|
Caption = 'Subscribe'
|
|
|
|
Font.Height = -10
|
|
|
|
Font.Name = 'Sans'
|
|
|
|
OnClick = Button1Click
|
|
|
|
ParentFont = False
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object Button5: TButton
|
|
|
|
Left = 368
|
|
|
|
Height = 25
|
|
|
|
Top = 22
|
|
|
|
Width = 129
|
|
|
|
Caption = 'Durable Subscribe'
|
|
|
|
Font.Height = -10
|
|
|
|
Font.Name = 'Sans'
|
|
|
|
OnClick = Button5Click
|
|
|
|
ParentFont = False
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object Memo1: TMemo
|
|
|
|
Left = 8
|
|
|
|
Height = 238
|
|
|
|
Top = 53
|
|
|
|
Width = 734
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
Font.CharSet = ANSI_CHARSET
|
|
|
|
Font.Height = -13
|
|
|
|
Font.Name = 'Courier'
|
|
|
|
ParentFont = False
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 3
|
|
|
|
WordWrap = False
|
|
|
|
end
|
|
|
|
object Button3: TButton
|
|
|
|
Left = 509
|
|
|
|
Height = 25
|
|
|
|
Top = 22
|
|
|
|
Width = 92
|
|
|
|
Caption = 'Unsubscribe'
|
|
|
|
Font.Height = -10
|
|
|
|
Font.Name = 'Sans'
|
|
|
|
OnClick = Button3Click
|
|
|
|
ParentFont = False
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object Button4: TButton
|
|
|
|
Left = 613
|
|
|
|
Height = 25
|
|
|
|
Top = 22
|
|
|
|
Width = 92
|
|
|
|
Caption = 'Disconnect'
|
|
|
|
Font.Height = -10
|
|
|
|
Font.Name = 'Sans'
|
|
|
|
OnClick = Button4Click
|
|
|
|
ParentFont = False
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object Button6: TButton
|
|
|
|
Left = 160
|
|
|
|
Height = 25
|
|
|
|
Top = 22
|
|
|
|
Width = 92
|
|
|
|
Caption = 'Connect'
|
|
|
|
Font.Height = -10
|
|
|
|
Font.Name = 'Sans'
|
|
|
|
OnClick = Button6Click
|
|
|
|
ParentFont = False
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
end
|