delphimvcframework/examples/QueueAck/SendMessage/SendMessageForm.dfm

98 lines
2.0 KiB
Plaintext
Raw Normal View History

2012-12-27 23:32:04 +01:00
object SendMessageMainForm: TSendMessageMainForm
Left = 0
Top = 0
Caption = 'Send Message'
2016-08-02 18:15:11 +02:00
ClientHeight = 385
ClientWidth = 612
2012-12-27 23:32:04 +01:00
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
2016-08-02 18:15:11 +02:00
DesignSize = (
612
385)
2012-12-27 23:32:04 +01:00
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 152
2016-08-02 18:15:11 +02:00
Top = 318
2012-12-27 23:32:04 +01:00
Width = 62
Height = 13
2016-08-02 18:15:11 +02:00
Anchors = [akLeft, akBottom]
2012-12-27 23:32:04 +01:00
Caption = 'Queue Name'
end
object Label2: TLabel
Left = 8
Top = 5
Width = 182
Height = 13
Caption = 'Type here text of message to be sent'
end
object Label3: TLabel
Left = 8
Top = 127
Width = 150
Height = 13
Caption = 'Stomp Frame Sent and Receive'
end
object QueueMemo: TMemo
Left = 8
Top = 24
2016-08-02 18:15:11 +02:00
Width = 596
2012-12-27 23:32:04 +01:00
Height = 97
2016-08-02 18:15:11 +02:00
Anchors = [akLeft, akTop, akRight]
2012-12-27 23:32:04 +01:00
TabOrder = 0
2016-08-02 18:15:11 +02:00
ExplicitWidth = 410
2012-12-27 23:32:04 +01:00
end
object SendMessageButton: TButton
Left = 8
2016-08-02 18:15:11 +02:00
Top = 320
2012-12-27 23:32:04 +01:00
Width = 138
Height = 56
2016-08-02 18:15:11 +02:00
Anchors = [akLeft, akBottom]
2012-12-27 23:32:04 +01:00
Caption = 'Send Message'
TabOrder = 1
OnClick = SendMessageButtonClick
2016-08-02 18:15:11 +02:00
ExplicitTop = 269
2012-12-27 23:32:04 +01:00
end
object QueueEdit: TEdit
Left = 152
2016-08-02 18:15:11 +02:00
Top = 337
2012-12-27 23:32:04 +01:00
Width = 266
Height = 21
2016-08-02 18:15:11 +02:00
Anchors = [akLeft, akBottom]
2012-12-27 23:32:04 +01:00
TabOrder = 2
Text = '/queue/alarm'
end
object LogMemo: TMemo
Left = 8
Top = 146
2016-08-02 18:15:11 +02:00
Width = 596
Height = 169
Anchors = [akLeft, akTop, akRight, akBottom]
2012-12-27 23:32:04 +01:00
TabOrder = 3
end
object AutomaticSendCheckBox: TCheckBox
2016-08-02 18:15:11 +02:00
Left = 152
Top = 360
2012-12-27 23:32:04 +01:00
Width = 181
Height = 17
2016-08-02 18:15:11 +02:00
Anchors = [akLeft, akBottom]
2012-12-27 23:32:04 +01:00
Caption = 'Automatic send every 5 seconds '
TabOrder = 4
OnClick = AutomaticSendCheckBoxClick
end
object AutomaticSendTimer: TTimer
Enabled = False
Interval = 5000
OnTimer = AutomaticSendTimerTimer
Left = 320
Top = 24
end
end