source: cprs/branches/GUI-config/BDK32/Samples/SharedRPCBroker/SilentSignOn/fXWBAppHandle1.dfm@ 913

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

New WorldVistA Config Utility

File size: 3.2 KB
RevLine 
[476]1object Form1: TForm1
2 Left = 230
3 Top = 122
4 Width = 503
5 Height = 319
6 Caption =
7 'XWBAppHandle1 -- use of lmAppHandle to start a second applicatio' +
8 'n'
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 lblOtherProgram: TLabel
20 Left = 44
21 Top = 176
22 Width = 71
23 Height = 13
24 Caption = 'Other Program:'
25 end
26 object lblOptional: TLabel
27 Left = 52
28 Top = 192
29 Width = 45
30 Height = 13
31 Caption = '(Optional)'
32 end
33 object lblWithFull: TLabel
34 Left = 124
35 Top = 200
36 Width = 232
37 Height = 13
38 Caption = 'With Full Directory Path if not on the System Path'
39 end
40 object btnConnect: TButton
41 Left = 85
42 Top = 232
43 Width = 75
44 Height = 25
45 Caption = '&Connect'
46 TabOrder = 0
47 OnClick = btnConnectClick
48 end
49 object btnStartApp2: TButton
50 Left = 210
51 Top = 232
52 Width = 75
53 Height = 25
54 Caption = 'Start App2'
55 TabOrder = 1
56 OnClick = btnStartApp2Click
57 end
58 object edtOtherProgram: TEdit
59 Left = 124
60 Top = 168
61 Width = 233
62 Height = 21
63 TabOrder = 2
64 end
65 object Memo1: TMemo
66 Left = 31
67 Top = 8
68 Width = 433
69 Height = 153
70 Lines.Strings = (
71
72 'This application can be used to start other programs, including ' +
73 'ones that use the '
74
75 'RPCBroker for connection to a server using a server generated to' +
76 'ken.'
77 ''
78
79 'To connect with the server, simply press the connect button to s' +
80 'elect a server/listener port '
81
82 'combination, then sign in. After you are signed in, you can sta' +
83 'rt another Broker application '
84
85 '(XWBAppHandle2) by simply clicking on the "Start App2" button (w' +
86 'ith the Other Program '
87 'edit box empty of text).'
88 ''
89
90 'A program such as Notepad with or without command line arguments' +
91 ', can be started at '
92
93 'any time by entering the name (and arguments if any) in the Othe' +
94 'r Program edit box, then '
95 'clicking on the Start App2 button.'
96 '')
97 TabOrder = 3
98 end
99 object btnExit: TButton
100 Left = 335
101 Top = 232
102 Width = 75
103 Height = 25
104 Caption = 'Exit'
105 TabOrder = 4
106 OnClick = btnExitClick
107 end
108 object MainMenu1: TMainMenu
109 Left = 8
110 Top = 184
111 object File1: TMenuItem
112 Caption = '&File'
113 object Exit1: TMenuItem
114 Caption = '&E&xit'
115 OnClick = Exit1Click
116 end
117 end
118 object Help1: TMenuItem
119 Caption = '&Help'
120 object About1: TMenuItem
121 Caption = '&About'
122 OnClick = About1Click
123 end
124 end
125 end
126 object brkrRPCB: TSharedRPCBroker
127 ClearParameters = True
128 ClearResults = True
129 ListenerPort = 0
130 RpcVersion = '0'
131 LogIn.Mode = lmAVCodes
132 LogIn.PromptDivision = False
133 AllowShared = True
134 RPCTimeLimit = 30
135 Left = 32
136 Top = 232
137 end
138end
Note: See TracBrowser for help on using the repository browser.