source: cprs/branches/GUI-config/BDK32/Samples/SharedRPCBroker/SilentSignOn/fXWBAVCodes.dfm@ 568

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

New WorldVistA Config Utility

File size: 4.9 KB
Line 
1object Form1: TForm1
2 Left = 190
3 Top = 138
4 Width = 574
5 Height = 393
6 Caption =
7 'XWBAVCodes - Silent Login with lmAVCodes (XWB*1.1*40 SharedRPCBr' +
8 'oker)'
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 = True
17 PixelsPerInch = 96
18 TextHeight = 13
19 object lblAccessCode: TLabel
20 Left = 24
21 Top = 71
22 Width = 79
23 Height = 13
24 Caption = 'Access Code:'
25 Font.Charset = DEFAULT_CHARSET
26 Font.Color = clWindowText
27 Font.Height = -11
28 Font.Name = 'MS Sans Serif'
29 Font.Style = [fsBold]
30 ParentFont = False
31 end
32 object lblVerifyCode: TLabel
33 Left = 24
34 Top = 96
35 Width = 70
36 Height = 13
37 Caption = 'Verify Code:'
38 Font.Charset = DEFAULT_CHARSET
39 Font.Color = clWindowText
40 Font.Height = -11
41 Font.Name = 'MS Sans Serif'
42 Font.Style = [fsBold]
43 ParentFont = False
44 end
45 object lblDUZ: TLabel
46 Left = 48
47 Top = 176
48 Width = 26
49 Height = 13
50 Caption = 'DUZ:'
51 end
52 object lblName: TLabel
53 Left = 48
54 Top = 216
55 Width = 31
56 Height = 13
57 Caption = 'Name:'
58 end
59 object lblDTime: TLabel
60 Left = 48
61 Top = 256
62 Width = 34
63 Height = 13
64 Caption = 'DTime:'
65 end
66 object lblUserName: TLabel
67 Left = 48
68 Top = 288
69 Width = 56
70 Height = 13
71 Caption = 'User Name:'
72 end
73 object lblServer: TLabel
74 Left = 24
75 Top = 21
76 Width = 42
77 Height = 13
78 Caption = 'Server:'
79 Font.Charset = DEFAULT_CHARSET
80 Font.Color = clWindowText
81 Font.Height = -11
82 Font.Name = 'MS Sans Serif'
83 Font.Style = [fsBold]
84 ParentFont = False
85 end
86 object lblListenerPort: TLabel
87 Left = 24
88 Top = 46
89 Width = 73
90 Height = 13
91 Caption = 'ListenerPort:'
92 Font.Charset = DEFAULT_CHARSET
93 Font.Color = clWindowText
94 Font.Height = -11
95 Font.Name = 'MS Sans Serif'
96 Font.Style = [fsBold]
97 ParentFont = False
98 end
99 object edtDUZ: TEdit
100 Left = 112
101 Top = 168
102 Width = 233
103 Height = 21
104 TabOrder = 3
105 end
106 object edtName: TEdit
107 Left = 112
108 Top = 208
109 Width = 233
110 Height = 21
111 TabOrder = 2
112 end
113 object edtDTime: TEdit
114 Left = 112
115 Top = 248
116 Width = 233
117 Height = 21
118 TabOrder = 1
119 end
120 object edtUserName: TEdit
121 Left = 112
122 Top = 280
123 Width = 233
124 Height = 21
125 TabOrder = 0
126 end
127 object btnConnect: TButton
128 Left = 175
129 Top = 128
130 Width = 75
131 Height = 25
132 Caption = 'Connect'
133 Default = True
134 TabOrder = 8
135 OnClick = btnConnectClick
136 end
137 object edtAccessCode: TEdit
138 Left = 112
139 Top = 66
140 Width = 249
141 Height = 21
142 PasswordChar = '*'
143 TabOrder = 6
144 end
145 object edtVerifyCode: TEdit
146 Left = 112
147 Top = 91
148 Width = 249
149 Height = 21
150 PasswordChar = '*'
151 TabOrder = 7
152 end
153 object btnExit: TButton
154 Left = 174
155 Top = 312
156 Width = 75
157 Height = 25
158 Caption = 'Exit'
159 TabOrder = 9
160 OnClick = btnExitClick
161 end
162 object edtServer: TEdit
163 Left = 112
164 Top = 16
165 Width = 249
166 Height = 21
167 TabOrder = 4
168 end
169 object edtListenerPort: TEdit
170 Left = 112
171 Top = 41
172 Width = 105
173 Height = 21
174 TabOrder = 5
175 end
176 object Memo1: TMemo
177 Left = 384
178 Top = 16
179 Width = 153
180 Height = 233
181 Lines.Strings = (
182 'This application provides an '
183 'example of a silent login. The '
184 'server, Listener Port, Access '
185 'Code, and Verify Code need to '
186 'be filled in - these data would '
187 'be supplied in some manner for '
188 'a silent login (Division can also '
189 'be supplied for a multidivision '
190 'individual). After fillng in the '
191 'information enter Return or '
192 'click on the Connect button. '
193 'The connection should be '
194 'made without the broker login '
195 'form appearing. User '
196 'information will be filled in for '
197 'the logged in user.')
198 TabOrder = 10
199 end
200 object MainMenu1: TMainMenu
201 Left = 24
202 Top = 144
203 object mnuFile: TMenuItem
204 Caption = '&File'
205 object mnuFileExit: TMenuItem
206 Caption = 'E&xit'
207 OnClick = mnuFileExitClick
208 end
209 end
210 object mnuHelp: TMenuItem
211 Caption = '&Help'
212 object mnuHelpAbout: TMenuItem
213 Caption = '&About'
214 OnClick = mnuHelpAboutClick
215 end
216 end
217 end
218 object brkrRPCB: TSharedRPCBroker
219 ClearParameters = True
220 ClearResults = True
221 ListenerPort = 0
222 RpcVersion = '0'
223 LogIn.Mode = lmAVCodes
224 LogIn.PromptDivision = False
225 OldConnectionOnly = False
226 AllowShared = True
227 RPCTimeLimit = 30
228 Left = 32
229 Top = 312
230 end
231end
Note: See TracBrowser for help on using the repository browser.