| [453] | 1 | object Form1: TForm1
 | 
|---|
 | 2 |   Left = 230
 | 
|---|
 | 3 |   Top = 122
 | 
|---|
 | 4 |   Width = 736
 | 
|---|
 | 5 |   Height = 319
 | 
|---|
 | 6 |   Caption = 
 | 
|---|
 | 7 |     'XWBAppHandle1 - UCX RPCBroker (see Options) use of lmAppHandle t' +
 | 
|---|
 | 8 |     'o start a second application (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 = mnuMainMenu
 | 
|---|
 | 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 = 201
 | 
|---|
 | 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 = 326
 | 
|---|
 | 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 = 269
 | 
|---|
 | 62 |     Height = 21
 | 
|---|
 | 63 |     TabOrder = 2
 | 
|---|
 | 64 |   end
 | 
|---|
 | 65 |   object Memo1: TMemo
 | 
|---|
 | 66 |     Left = 31
 | 
|---|
 | 67 |     Top = 8
 | 
|---|
 | 68 |     Width = 666
 | 
|---|
 | 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 = 451
 | 
|---|
 | 101 |     Top = 232
 | 
|---|
 | 102 |     Width = 75
 | 
|---|
 | 103 |     Height = 25
 | 
|---|
 | 104 |     Caption = 'Exit'
 | 
|---|
 | 105 |     TabOrder = 4
 | 
|---|
 | 106 |     OnClick = btnExitClick
 | 
|---|
 | 107 |   end
 | 
|---|
 | 108 |   object brkrRPCB: TRPCBroker
 | 
|---|
 | 109 |     ClearParameters = True
 | 
|---|
 | 110 |     ClearResults = True
 | 
|---|
 | 111 |     Connected = False
 | 
|---|
 | 112 |     ListenerPort = 9500
 | 
|---|
 | 113 |     RpcVersion = '0'
 | 
|---|
 | 114 |     Server = 'NXT-Server'
 | 
|---|
 | 115 |     KernelLogIn = True
 | 
|---|
 | 116 |     LogIn.Mode = lmAVCodes
 | 
|---|
 | 117 |     LogIn.PromptDivision = False
 | 
|---|
 | 118 |     OldConnectionOnly = False
 | 
|---|
 | 119 |     Left = 16
 | 
|---|
 | 120 |     Top = 224
 | 
|---|
 | 121 |   end
 | 
|---|
 | 122 |   object mnuMainMenu: TMainMenu
 | 
|---|
 | 123 |     Left = 8
 | 
|---|
 | 124 |     Top = 184
 | 
|---|
 | 125 |     object mnuFile: TMenuItem
 | 
|---|
 | 126 |       Caption = '&File'
 | 
|---|
 | 127 |       object mnuFileExit: TMenuItem
 | 
|---|
 | 128 |         Caption = '&E&xit'
 | 
|---|
 | 129 |         OnClick = mnuFileExitClick
 | 
|---|
 | 130 |       end
 | 
|---|
 | 131 |     end
 | 
|---|
 | 132 |     object mnuOptions: TMenuItem
 | 
|---|
 | 133 |       Caption = 'Options'
 | 
|---|
 | 134 |       object OnlyOldConnection1: TMenuItem
 | 
|---|
 | 135 |         Caption = 'OnlyOldConnection'
 | 
|---|
 | 136 |       end
 | 
|---|
 | 137 |       object BackwardsCompatible1: TMenuItem
 | 
|---|
 | 138 |         Action = actBackwardsCompatible
 | 
|---|
 | 139 |       end
 | 
|---|
 | 140 |       object DebugMode1: TMenuItem
 | 
|---|
 | 141 |         Action = actDebugMode
 | 
|---|
 | 142 |       end
 | 
|---|
 | 143 |     end
 | 
|---|
 | 144 |     object Help1: TMenuItem
 | 
|---|
 | 145 |       Caption = '&Help'
 | 
|---|
 | 146 |       object mnuAbout: TMenuItem
 | 
|---|
 | 147 |         Caption = '&About'
 | 
|---|
 | 148 |         OnClick = mnuAboutClick
 | 
|---|
 | 149 |       end
 | 
|---|
 | 150 |     end
 | 
|---|
 | 151 |   end
 | 
|---|
 | 152 |   object ActionList1: TActionList
 | 
|---|
 | 153 |     Left = 64
 | 
|---|
 | 154 |     Top = 224
 | 
|---|
 | 155 |     object actOldConnectionOnly: TAction
 | 
|---|
 | 156 |       Caption = 'Old Connection Mode Only'
 | 
|---|
 | 157 |       OnExecute = actOldConnectionOnlyExecute
 | 
|---|
 | 158 |     end
 | 
|---|
 | 159 |     object actBackwardsCompatible: TAction
 | 
|---|
 | 160 |       Caption = 'Backwards Compatible'
 | 
|---|
 | 161 |       Checked = True
 | 
|---|
 | 162 |       OnExecute = actBackwardsCompatibleExecute
 | 
|---|
 | 163 |     end
 | 
|---|
 | 164 |     object actDebugMode: TAction
 | 
|---|
 | 165 |       Caption = 'Debug Mode'
 | 
|---|
 | 166 |       OnExecute = actDebugModeExecute
 | 
|---|
 | 167 |     end
 | 
|---|
 | 168 |   end
 | 
|---|
 | 169 | end
 | 
|---|