source: cprs/branches/GUI-config/BDK32/Samples/RPCBroker/SilentSignOn/fXWBOnFail.dfm

Last change on this file was 476, checked in by Kevin Toppenberg, 16 years ago

New WorldVistA Config Utility

File size: 4.9 KB
Line 
1object frmXWBOnFail: TfrmXWBOnFail
2 Left = 207
3 Top = 127
4 Width = 557
5 Height = 343
6 Caption =
7 'XWBOnFail - UCX RPCBroker Backwards Compatible - Error Handling ' +
8 'Demo (P40)'
9 Color = clBtnFace
10 Font.Charset = DEFAULT_CHARSET
11 Font.Color = clWindowText
12 Font.Height = -11
13 Font.Name = 'MS Sans Serif'
14 Font.Style = []
15 Menu = MainMenu1
16 OldCreateOrder = False
17 OnCreate = FormCreate
18 PixelsPerInch = 96
19 TextHeight = 13
20 object lblLogin_ErrorText: TLabel
21 Left = 24
22 Top = 40
23 Width = 75
24 Height = 13
25 Caption = 'Login_ErrorText'
26 end
27 object btnConnect: TButton
28 Left = 213
29 Top = 256
30 Width = 75
31 Height = 25
32 Caption = 'Connect'
33 TabOrder = 0
34 OnClick = btnConnectClick
35 end
36 object rgrSelectAction: TRadioGroup
37 Left = 268
38 Top = 64
39 Width = 217
40 Height = 137
41 Caption = 'Select Action'
42 ItemIndex = 1
43 Items.Strings = (
44 'Use OnRPCBFailure property routine'
45 'Show Message Boxes'
46 'Capture Text Only')
47 TabOrder = 1
48 end
49 object btnExit: TButton
50 Left = 410
51 Top = 256
52 Width = 75
53 Height = 25
54 Caption = 'Exit'
55 TabOrder = 2
56 OnClick = btnExitClick
57 end
58 object Memo1: TMemo
59 Left = 16
60 Top = 64
61 Width = 217
62 Height = 169
63 Lines.Strings = (
64 'This is an example application to illustrate '
65 'the effects of TRPCBroker properties '
66 'related to Error Handling.'
67 ''
68 'The OnRPCBFailure property can be set '
69 'to a procedure to handle errors without '
70 'user interaction. In the sample included '
71 'here, the error handler will save the error '
72 'message and a date/time stamp to a file '
73 'named "Error.Log" in the same directory '
74 'with the application program. YOU WILL '
75 'NOT SEE AN ERROR MESSAGE IN '
76 'THIS CASE!'
77 ''
78 'If OnRPCBFailure property is not '
79 'assigned to a procedure, errors by default '
80 'would be shown in a message box '
81 'created by the TRPCBroker component. '
82 'This behavior is controlled by the '
83 'ShowErrorMsgs property, with a default '
84 'of semShow (Show Message Boxes). '
85 ''
86 'If the ShowErrorMsgs property is set to '
87 'semRaise (Don'#39't Show Message Boxes), '
88 'the error will be permitted to be handled '
89 'by a higher part of the application. In '
90 'most cases this will produce an error '
91 'dialog box generated by the system in '
92 'general.'
93 ''
94 'If the ShowErrorMsgs property is set to '
95 'semSet (Capture Text Only), there will be '
96 'no error action taken except for the '
97 'setting of error messages into the '
98 'RPCBError and/or Login.ErrorText '
99 'properties. In this case, the application '
100 'MUST check these properties '
101 'immediately after a call to the RPCBroker '
102 'to determine whether any errors were '
103 'encountered and to determine the action '
104 'to be taken.'
105 ''
106 'Select the type of behavior desired by '
107 'clicking on one of the options to the right.'
108 ''
109 'Then press Connect and either cancel '
110 'during the log-in dialog or generate an '
111 'error in some other manner. If you are '
112 'connected, the button will change to '
113 'Disconnect and you can click on it to '
114 'disconnect from the server.'
115 ''
116 'Checking the check box "Use Silent Bad '
117 'Access/Verify" to the left will set the '
118 'AccessVerifyCodes property to '
119 #39'monkeysee;monkeydo'#39' which will cause '
120 'a silent login attempt and fails.'
121 '')
122 ScrollBars = ssVertical
123 TabOrder = 3
124 end
125 object edtErrorText: TEdit
126 Left = 8
127 Top = 8
128 Width = 473
129 Height = 21
130 TabOrder = 4
131 Text = 'RPCBroker_RPCBError property'
132 end
133 object edtLoginError: TEdit
134 Left = 104
135 Top = 32
136 Width = 225
137 Height = 21
138 TabOrder = 5
139 Text = 'RPCBroker_Login_ErrorText Property'
140 end
141 object cbxBadAccess: TCheckBox
142 Left = 16
143 Top = 256
144 Width = 169
145 Height = 17
146 Caption = 'Use Silent Bad Access/Verify'
147 TabOrder = 6
148 end
149 object RPCB: TRPCBroker
150 ClearParameters = True
151 ClearResults = True
152 Connected = False
153 ListenerPort = 9500
154 RpcVersion = '0'
155 Server = 'NXT-Server'
156 KernelLogIn = True
157 LogIn.Mode = lmAVCodes
158 LogIn.PromptDivision = False
159 Left = 408
160 Top = 32
161 end
162 object MainMenu1: TMainMenu
163 Left = 368
164 Top = 32
165 object File1: TMenuItem
166 Caption = '&File'
167 object Exit1: TMenuItem
168 Caption = 'E&xit'
169 OnClick = Exit1Click
170 end
171 end
172 object Help1: TMenuItem
173 Caption = '&Help'
174 object About1: TMenuItem
175 Caption = '&About'
176 OnClick = About1Click
177 end
178 end
179 end
180end
Note: See TracBrowser for help on using the repository browser.