delphimvcframework/examples/GlobalDemo/GlobalDemoLazarus/ReceiverForm.lfm

104 lines
2.0 KiB
Plaintext
Raw Normal View History

object Form1: TForm1
Left = 153
Height = 299
Top = 215
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
Height = 23
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