Componentes.Terceros.SDAC/internal/4.10.0.10/1/Demos/dotNet/SdacDemo/ServiceBroker/ServiceBroker.nfm
2007-10-05 14:48:18 +00:00

313 lines
7.9 KiB
Plaintext

inherited ServiceBrokerFrame: TServiceBrokerFrame
Width = 889
Height = 471
Align = alClient
object Splitter1: TSplitter
Left = 380
Top = 0
Height = 471
Color = clBtnFace
ParentColor = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 380
Height = 471
Align = alLeft
Anchors = [akTop]
BevelOuter = bvNone
Color = clGreen
TabOrder = 0
object Panel3: TPanel
Left = 0
Top = 0
Width = 380
Height = 136
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 3
Top = 6
Width = 111
Height = 13
Caption = 'Initiator connection'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Panel5: TPanel
Left = 1
Top = 23
Width = 378
Height = 112
Anchors = [akLeft, akTop, akRight, akBottom]
BevelOuter = bvNone
Color = clGreen
TabOrder = 0
object btInitiatorBeginDialog: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Begin dialog'
Flat = True
Transparent = False
OnClick = btInitiatorBeginDialogClick
end
object btInitiatorEndDialog: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'End dialog'
Flat = True
Transparent = False
OnClick = btInitiatorEndDialogClick
end
object btInitiatorSend: TSpeedButton
Left = 167
Top = 1
Width = 82
Height = 22
Caption = 'Send'
Flat = True
Transparent = False
OnClick = btInitiatorSendClick
end
object btInitiatorReceive: TSpeedButton
Left = 250
Top = 1
Width = 82
Height = 22
Caption = 'Receive'
Flat = True
Transparent = False
OnClick = btInitiatorReceiveClick
end
object Panel7: TPanel
Left = 1
Top = 24
Width = 376
Height = 87
Anchors = [akLeft, akTop, akRight, akBottom]
BevelOuter = bvNone
TabOrder = 0
object lbInitiatorMessage: TLabel
Left = 3
Top = 37
Width = 43
Height = 13
Caption = 'Message'
end
object lbInitiatorWaitTimeout: TLabel
Left = 3
Top = 66
Width = 60
Height = 13
Caption = 'WaitTimeout'
end
object cbInitiatorAsynchNotification: TCheckBox
Left = 3
Top = 8
Width = 166
Height = 17
Caption = 'AsynchNotification'
TabOrder = 0
OnClick = cbInitiatorAsynchNotificationClick
end
object edInitiatorMessage: TEdit
Left = 66
Top = 33
Width = 308
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
Text = 'Hello target connection!'
end
object edInitiatorWaitTimeout: TEdit
Left = 66
Top = 63
Width = 81
Height = 21
TabOrder = 2
OnChange = edInitiatorWaitTimeoutChange
end
end
object Panel10: TPanel
Left = 333
Top = 1
Width = 44
Height = 22
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvNone
TabOrder = 1
end
end
end
object meInitiatorLog: TMemo
Left = 0
Top = 136
Width = 380
Height = 335
Align = alClient
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
end
end
object Panel2: TPanel
Left = 383
Top = 0
Width = 506
Height = 471
Align = alClient
BevelOuter = bvNone
Color = clGreen
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 0
Width = 506
Height = 136
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label2: TLabel
Left = 3
Top = 6
Width = 105
Height = 13
Caption = 'Target connection'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Panel6: TPanel
Left = 1
Top = 23
Width = 333
Height = 112
BevelOuter = bvNone
Color = clGreen
TabOrder = 0
object btTargetReceive: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Receive'
Flat = True
Transparent = False
OnClick = btTargetReceiveClick
end
object btTargetSend: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Send'
Flat = True
Transparent = False
OnClick = btTargetSendClick
end
object Panel8: TPanel
Left = 1
Top = 24
Width = 331
Height = 87
BevelOuter = bvNone
TabOrder = 0
object lbTargetMessage: TLabel
Left = 3
Top = 37
Width = 43
Height = 13
Caption = 'Message'
end
object lbTargetWaitTimeout: TLabel
Left = 3
Top = 66
Width = 60
Height = 13
Caption = 'WaitTimeout'
end
object cbTargetAsynchNotification: TCheckBox
Left = 8
Top = 7
Width = 166
Height = 17
Caption = 'AsynchNotification'
TabOrder = 0
OnClick = cbTargetAsynchNotificationClick
end
object edTargetMessage: TEdit
Left = 66
Top = 33
Width = 263
Height = 21
TabOrder = 1
Text = 'Hello initiator connection!'
end
object edTargetWaitTimeout: TEdit
Left = 66
Top = 63
Width = 81
Height = 21
TabOrder = 2
OnChange = edTargetWaitTimeoutChange
end
end
object Panel9: TPanel
Left = 167
Top = 1
Width = 165
Height = 22
Anchors = [akLeft, akTop, akRight, akBottom]
BevelOuter = bvNone
TabOrder = 1
end
end
end
object meTargetLog: TMemo
Left = 0
Top = 136
Width = 506
Height = 335
Align = alClient
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
end
end
object InitiatorServiceBroker: TMSServiceBroker
WaitTimeout = 5000
OnMessage = InitiatorServiceBrokerMessage
OnBeginConversation = InitiatorServiceBrokerBeginConversation
OnEndConversation = InitiatorServiceBrokerEndConversation
Left = 240
Top = 128
end
object MSConnection2: TMSConnection
Database = 'master'
Left = 384
Top = 232
end
object TargetServiceBroker: TMSServiceBroker
Connection = MSConnection2
WaitTimeout = 5000
OnMessage = TargetServiceBrokerMessage
OnBeginConversation = TargetServiceBrokerBeginConversation
OnEndConversation = TargetServiceBrokerEndConversation
Left = 416
Top = 232
end
end