source: cprs/branches/tmg-cprs/BDK32/Samples/RPCBroker/BrokerEx/fBrokerExample.dfm@ 1359

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 15.2 KB
RevLine 
[453]1object frmBrokerExample: TfrmBrokerExample
2 Left = 248
3 Top = 112
4 BorderStyle = bsSingle
5 Caption = 'RPCBroker Example UCX RPCBroker (p40)'
6 ClientHeight = 389
7 ClientWidth = 472
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clBtnText
11 Font.Height = -13
12 Font.Name = 'System'
13 Font.Style = []
14 Menu = MainMenu1
15 OldCreateOrder = True
16 Position = poScreenCenter
17 OnCreate = FormCreate
18 PixelsPerInch = 96
19 TextHeight = 16
20 object GroupBox2: TGroupBox
21 Left = 8
22 Top = 0
23 Width = 457
24 Height = 73
25 Caption = 'VistA Server'
26 TabOrder = 0
27 object Label2: TLabel
28 Left = 6
29 Top = 51
30 Width = 67
31 Height = 16
32 AutoSize = False
33 Caption = 'Status:'
34 end
35 object Label3: TLabel
36 Left = 73
37 Top = 51
38 Width = 88
39 Height = 16
40 Caption = 'Disconnected'
41 Color = clBtnFace
42 Font.Charset = DEFAULT_CHARSET
43 Font.Color = clRed
44 Font.Height = -13
45 Font.Name = 'System'
46 Font.Style = []
47 ParentColor = False
48 ParentFont = False
49 end
50 object btnConnect: TButton
51 Left = 354
52 Top = 12
53 Width = 91
54 Height = 25
55 Caption = '&Connect'
56 Default = True
57 TabOrder = 2
58 OnClick = btnConnectClick
59 end
60 object edtPort: TEdit
61 Left = 192
62 Top = 24
63 Width = 49
64 Height = 24
65 Hint = 'Listener port number'
66 ParentShowHint = False
67 ShowHint = True
68 TabOrder = 1
69 Text = '9200'
70 OnChange = edtServerChange
71 end
72 object edtServer: TEdit
73 Left = 8
74 Top = 24
75 Width = 177
76 Height = 24
77 Hint = 'Name of server or IP address'
78 ParentShowHint = False
79 ShowHint = True
80 TabOrder = 0
81 Text = 'BROKERSERVER'
82 OnChange = edtServerChange
83 end
84 object BitBtn1: TBitBtn
85 Left = 354
86 Top = 44
87 Width = 91
88 Height = 25
89 TabOrder = 3
90 Kind = bkClose
91 end
92 object btnGetServerInfo: TBitBtn
93 Left = 248
94 Top = 24
95 Width = 73
96 Height = 25
97 Hint = 'GetServerInfo'
98 Caption = 'Server'
99 ParentShowHint = False
100 ShowHint = True
101 TabOrder = 4
102 OnClick = btnGetServerInfoClick
103 Glyph.Data = {
104 76010000424D7601000000000000760000002800000020000000100000000100
105 04000000000000010000120B0000120B00001000000000000000000000000000
106 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
107 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
108 00333FF777777777773F0000FFFFFFFFFF0377773F3F3F3F3F7308880F0F0F0F
109 0FF07F33737373737337088880FFFFFFFFF07F3337FFFFFFFFF7088880000000
110 00037F3337777777777308888033330F03337F3337F3FF7F7FFF088880300000
111 00007F3337F7777777770FFFF030FFFFFFF07F3FF7F7F3FFFFF708008030F000
112 00F07F7737F7F77777F70FFFF030F0AAE0F07F3FF7F7F7F337F708008030F0DA
113 D0F07F7737F7F7FFF7F70FFFF030F00000F07F33F7F7F77777370FF9F030FFFF
114 FFF07F3737F7FFFFFFF70FFFF030000000007FFFF7F777777777000000333333
115 3333777777333333333333333333333333333333333333333333}
116 NumGlyphs = 2
117 end
118 object cbxBackwardCompatible: TCheckBox
119 Left = 186
120 Top = 54
121 Width = 161
122 Height = 17
123 Action = actBackwardCompatible
124 State = cbChecked
125 TabOrder = 5
126 end
127 end
128 object PageControl1: TPageControl
129 Left = 8
130 Top = 76
131 Width = 457
132 Height = 305
133 ActivePage = TabSheet1
134 TabOrder = 1
135 object TabSheet1: TTabSheet
136 Caption = 'Echo string'
137 object lblSend: TLabel
138 Left = 8
139 Top = 24
140 Width = 96
141 Height = 16
142 Caption = 'Original string:'
143 end
144 object lblReturn: TLabel
145 Left = 8
146 Top = 144
147 Width = 93
148 Height = 16
149 Caption = 'Echoed string:'
150 end
151 object edtStrOrig: TEdit
152 Left = 8
153 Top = 40
154 Width = 225
155 Height = 24
156 TabOrder = 0
157 Text = 'Hello World!'
158 end
159 object edtStrRtrn: TEdit
160 Left = 8
161 Top = 160
162 Width = 225
163 Height = 24
164 ReadOnly = True
165 TabOrder = 1
166 end
167 object btnEchoString: TButton
168 Left = 8
169 Top = 88
170 Width = 225
171 Height = 25
172 Hint = 'XWB EXAMPLE ECHO STRING'
173 Caption = 'Execute RPC'
174 Default = True
175 ParentShowHint = False
176 ShowHint = True
177 TabOrder = 2
178 OnClick = btnEchoStringClick
179 end
180 object Memo1: TMemo
181 Left = 240
182 Top = 8
183 Width = 201
184 Height = 257
185 TabStop = False
186 Font.Charset = DEFAULT_CHARSET
187 Font.Color = clWindowText
188 Font.Height = -13
189 Font.Name = 'MS Sans Serif'
190 Font.Style = []
191 Lines.Strings = (
192 'Uses TRPCBroker.Call method '
193 'to return a single string.'
194 ''
195 'Original string passed in as '
196 'PType literal.'
197 ''
198 'RPC: XWB EXAMPLE ECHO '
199 'STRING.'
200 ''
201 'Return Value Type: SINGLE '
202 'VALUE.')
203 ParentColor = True
204 ParentFont = False
205 ReadOnly = True
206 TabOrder = 3
207 end
208 end
209 object TabSheet2: TTabSheet
210 Caption = 'Pass by reference'
211 object Label1: TLabel
212 Left = 8
213 Top = 24
214 Width = 70
215 Height = 16
216 Caption = 'Reference:'
217 end
218 object Label4: TLabel
219 Left = 8
220 Top = 144
221 Width = 40
222 Height = 16
223 Caption = 'Value:'
224 end
225 object edtReference: TEdit
226 Left = 8
227 Top = 40
228 Width = 225
229 Height = 24
230 TabOrder = 0
231 Text = '$HOROLOG'
232 end
233 object edtValue: TEdit
234 Left = 8
235 Top = 160
236 Width = 225
237 Height = 24
238 ReadOnly = True
239 TabOrder = 1
240 end
241 object btnPassByRef: TButton
242 Left = 8
243 Top = 88
244 Width = 225
245 Height = 25
246 Hint = 'XWB GET VARIABLE VALUE'
247 Caption = 'Execute RPC'
248 Default = True
249 ParentShowHint = False
250 ShowHint = True
251 TabOrder = 2
252 OnClick = btnPassByRefClick
253 end
254 object Memo2: TMemo
255 Left = 240
256 Top = 8
257 Width = 201
258 Height = 257
259 TabStop = False
260 Font.Charset = DEFAULT_CHARSET
261 Font.Color = clWindowText
262 Font.Height = -13
263 Font.Name = 'MS Sans Serif'
264 Font.Style = []
265 Lines.Strings = (
266 'Uses TRPCBroker.strCall '
267 'method to return a single string.'
268 ''
269 'Parameter passed in as PType '
270 'reference.'
271 ''
272 'RPC: XWB GET VARIABLE '
273 'VALUE.'
274 ''
275 'Return Value Type: SINGLE '
276 'VALUE.')
277 ParentColor = True
278 ParentFont = False
279 ReadOnly = True
280 TabOrder = 3
281 end
282 end
283 object TabSheet3: TTabSheet
284 Caption = 'Get list'
285 object Label5: TLabel
286 Left = 8
287 Top = 120
288 Width = 87
289 Height = 16
290 Caption = 'Returned list:'
291 end
292 object lstData: TListBox
293 Left = 8
294 Top = 136
295 Width = 225
296 Height = 129
297 ItemHeight = 16
298 TabOrder = 0
299 end
300 object btnGetList: TButton
301 Left = 8
302 Top = 88
303 Width = 225
304 Height = 25
305 Hint = 'XWB EXAMPLE GET LIST'
306 Caption = 'Execute RPC'
307 Default = True
308 ParentShowHint = False
309 ShowHint = True
310 TabOrder = 1
311 OnClick = btnGetListClick
312 end
313 object RadioButton1: TRadioButton
314 Left = 16
315 Top = 16
316 Width = 137
317 Height = 17
318 Caption = 'Number of lines'
319 Checked = True
320 TabOrder = 2
321 TabStop = True
322 end
323 object RadioButton2: TRadioButton
324 Left = 16
325 Top = 48
326 Width = 137
327 Height = 17
328 Caption = 'Kilobytes of data'
329 TabOrder = 3
330 end
331 object spnLines: TSpinEdit
332 Left = 160
333 Top = 16
334 Width = 65
335 Height = 26
336 MaxValue = 0
337 MinValue = 0
338 TabOrder = 4
339 Value = 50
340 end
341 object spnKbytes: TSpinEdit
342 Left = 160
343 Top = 48
344 Width = 65
345 Height = 26
346 MaxValue = 0
347 MinValue = 0
348 TabOrder = 5
349 Value = 32
350 end
351 object Memo3: TMemo
352 Left = 240
353 Top = 8
354 Width = 201
355 Height = 257
356 TabStop = False
357 Font.Charset = DEFAULT_CHARSET
358 Font.Color = clWindowText
359 Font.Height = -13
360 Font.Name = 'MS Sans Serif'
361 Font.Style = []
362 Lines.Strings = (
363 'Uses TRPCBroker.Call method '
364 'to return several strings.'
365 ''
366 'Two parameters passed in as '
367 'PType literal.'
368 ''
369 'RPC: XWB EXAMPLE GET LIST.'
370 ''
371 'Return Value Type: GLOBAL '
372 'ARRAY.'
373 ''
374 'WORD WRAP ON field is True '
375 'to break appart call result into '
376 'separate Results strings instead '
377 'of one long Results[0] string.')
378 ParentColor = True
379 ParentFont = False
380 ReadOnly = True
381 TabOrder = 6
382 end
383 end
384 object TabSheet4: TTabSheet
385 Caption = 'WP Text'
386 object lblList: TLabel
387 Left = 8
388 Top = 56
389 Width = 177
390 Height = 17
391 AutoSize = False
392 Caption = 'REMOTE PROCEDURE file description:'
393 end
394 object btnWPText: TButton
395 Left = 8
396 Top = 16
397 Width = 225
398 Height = 25
399 Hint = 'XWB EXAMPLE WPTEXT'
400 Caption = 'Execute RPC'
401 Default = True
402 ParentShowHint = False
403 ShowHint = True
404 TabOrder = 0
405 OnClick = btnWPTextClick
406 end
407 object mmoText: TMemo
408 Left = 8
409 Top = 80
410 Width = 225
411 Height = 185
412 ReadOnly = True
413 ScrollBars = ssVertical
414 TabOrder = 1
415 end
416 object Memo4: TMemo
417 Left = 240
418 Top = 8
419 Width = 201
420 Height = 257
421 TabStop = False
422 Font.Charset = DEFAULT_CHARSET
423 Font.Color = clWindowText
424 Font.Height = -13
425 Font.Name = 'MS Sans Serif'
426 Font.Style = []
427 Lines.Strings = (
428 'Uses TRPCBroker.lstCall '
429 'method to return several strings.'
430 ''
431 'No parameters are used in this '
432 'call.'
433 ''
434 'RPC: XWB EXAMPLE WPTEXT.'
435 ''
436 'Return Value Type: WORD '
437 'PROCESSING.'
438 ''
439 'WORD WRAP ON field is False '
440 'to allow memo box to control '
441 'word wrapping as necessary.')
442 ParentColor = True
443 ParentFont = False
444 ReadOnly = True
445 TabOrder = 2
446 end
447 end
448 object TabSheet5: TTabSheet
449 Caption = 'Sort numbers'
450 object Label6: TLabel
451 Left = 8
452 Top = 120
453 Width = 87
454 Height = 16
455 Caption = 'Returned list:'
456 end
457 object Label7: TLabel
458 Left = 8
459 Top = 8
460 Width = 72
461 Height = 16
462 Caption = 'How many:'
463 end
464 object lblStatus: TLabel
465 Left = 8
466 Top = 56
467 Width = 57
468 Height = 16
469 Caption = 'lblStatus'
470 Visible = False
471 end
472 object lstSorted: TListBox
473 Left = 8
474 Top = 136
475 Width = 225
476 Height = 129
477 ItemHeight = 16
478 TabOrder = 0
479 end
480 object btnSortNum: TButton
481 Left = 8
482 Top = 88
483 Width = 225
484 Height = 25
485 Hint = 'XWB EXAMPLE SORT NUMBERS'
486 Caption = 'Execute RPC'
487 Default = True
488 ParentShowHint = False
489 ShowHint = True
490 TabOrder = 1
491 OnClick = btnSortNumClick
492 end
493 object spnNumbers: TSpinEdit
494 Left = 8
495 Top = 24
496 Width = 81
497 Height = 26
498 MaxValue = 10000
499 MinValue = 0
500 TabOrder = 2
501 Value = 500
502 end
503 object rgrDirection: TRadioGroup
504 Left = 104
505 Top = 8
506 Width = 121
507 Height = 65
508 Caption = 'Sort direction'
509 ItemIndex = 0
510 Items.Strings = (
511 'low -> high'
512 'high -> low')
513 TabOrder = 3
514 end
515 object Memo5: TMemo
516 Left = 240
517 Top = 88
518 Width = 201
519 Height = 177
520 TabStop = False
521 Font.Charset = DEFAULT_CHARSET
522 Font.Color = clWindowText
523 Font.Height = -13
524 Font.Name = 'MS Sans Serif'
525 Font.Style = []
526 ParentColor = True
527 ParentFont = False
528 ReadOnly = True
529 ScrollBars = ssVertical
530 TabOrder = 4
531 end
532 object rgArrayType: TRadioGroup
533 Left = 240
534 Top = 8
535 Width = 185
536 Height = 65
537 Caption = 'Array Type'
538 ItemIndex = 0
539 Items.Strings = (
540 'Local'
541 'Global')
542 TabOrder = 5
543 OnClick = rgArrayTypeClick
544 end
545 end
546 end
547 object MainMenu1: TMainMenu
548 Left = 160
549 Top = 320
550 object mnuOptions: TMenuItem
551 Caption = '&Options'
552 object mnuOptOldConnectionOnly: TMenuItem
553 Action = actOldConnectionOnly
554 Caption = 'Old Connection Type Only'
555 end
556 object mnuOptBackwardCompatible: TMenuItem
557 Action = actBackwardCompatible
558 end
559 object mnuOptDebugMode: TMenuItem
560 Action = actDebugMode
561 end
562 object mnuOptUserContext: TMenuItem
563 Action = actUserContext
564 end
565 end
566 object Help1: TMenuItem
567 Caption = '&Help'
568 object AboutExample: TMenuItem
569 Caption = '&About RPC Broker Example...'
570 OnClick = AboutExampleClick
571 end
572 end
573 end
574 object Timer1: TTimer
575 OnTimer = Timer1Timer
576 Left = 16
577 Top = 320
578 end
579 object ActionList1: TActionList
580 Left = 52
581 Top = 295
582 object actBackwardCompatible: TAction
583 Caption = '&Backward Compatible'
584 Checked = True
585 OnExecute = actBackwardCompatibleExecute
586 end
587 object actOldConnectionOnly: TAction
588 Caption = '&Old Connection Only'
589 OnExecute = actOldConnectionOnlyExecute
590 end
591 object actDebugMode: TAction
592 Caption = '&Debug Mode'
593 OnExecute = actDebugModeExecute
594 end
595 object actUserContext: TAction
596 Caption = '&CCOW User Context'
597 Enabled = False
598 OnExecute = actUserContextExecute
599 end
600 end
601 object RPCBroker1: TRPCBroker
602 ClearParameters = True
603 ClearResults = True
604 Connected = False
605 ListenerPort = 9200
606 RpcVersion = '0'
607 Server = 'BROKERSERVER'
608 KernelLogIn = True
609 LogIn.Mode = lmAVCodes
610 LogIn.PromptDivision = False
611 OldConnectionOnly = False
612 Left = 100
613 Top = 335
614 end
615end
Note: See TracBrowser for help on using the repository browser.