Ignore:
Timestamp:
Jul 3, 2010, 4:43:42 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Allow retry on login

Location:
cprs/branches/tmg-cprs/CPRS-Chart
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dsk

    r819 r820  
    11[Closed Files]
    2 File_0=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,9992,1,10000,0,0
    3 File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\BA\UBACore.pas',0,1,1294,1,1304,0,0
    4 File_2=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,12498,1,12507,0,0
    5 File_3=SourceModule,'c:\program files\borland\delphi7\source\vcl\ComCtrls.pas',0,1,7984,1,7996,0,0
    6 File_4=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\variants.pas',0,1,601,1,609,0,0
    7 File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNoteST.dfm',0,1,1,1,1,0,0
    8 File_6=SourceModule,'c:\program files\borland\delphi7\source\vcl\Menus.pas',0,1,1814,35,1819,0,0
    9 File_7=SourceModule,'P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas',0,1,228,1,238,0,0
    10 File_8=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',0,1,978,1,988,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas',0,1,2569,7,2577,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\uConst.pas',0,1,229,3,205,0,0
     4File_2=SourceModule,'c:\program files\borland\delphi7\source\vcl\WinHelpViewer.pas',0,1,651,1,669,0,0
     5File_3=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas',0,1,16061,1,16069,0,0
     6File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas',0,1,523,1,527,0,0
     7File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas',0,1,97,1,107,0,0
     8File_6=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Windows.pas',0,1,28842,1,28850,0,0
    119
    1210[Modules]
    13 Module0=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
    14 Module1=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
    15 Module2=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    16 Module3=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
    17 Module4=P:\vista\tmg-cprs\CPRS-Chart\fNoteST.pas
    18 Module5=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas
    19 Module6=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    20 Module7=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
    21 Module8=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas
    22 Module9=P:\vista\tmg-cprs\CPRS-Chart\uConst.pas
    23 Module10=P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas
    24 Module11=P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas
    25 Module12=P:\vista\tmg-cprs\CPRS-Chart\rDCSumm.pas
    26 Module13=P:\vista\tmg-cprs\CPRS-Chart\uDocTree.pas
    27 Module14=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    28 Module15=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
    29 Module16=P:\vista\tmg-cprs\CPRS-Chart\uCore.pas
    30 Module17=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
    31 Module18=c:\program files\borland\delphi7\source\vcl\Graphics.pas
    32 Count=19
     11Module0=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     12Module1=C:\PROGRA~1\VISTA\BDK32\Source\ccowrpcbroker.pas
     13Module2=P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas
     14Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
     15Module4=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
     16Module5=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
     17Module6=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     18Module7=c:\program files\borland\delphi7\source\vcl\Forms.pas
     19Module8=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
     20Module9=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     21Module10=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
     22Module11=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     23Count=12
    3324EditWindowCount=1
    3425TypeLibWindowCount=1
    3526
    36 [P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas]
    37 ModuleType=SourceModule
    38 FormState=0
    39 FormOnTop=0
    40 
    41 [C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas]
     27[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     28ModuleType=SourceModule
     29FormState=0
     30FormOnTop=0
     31
     32[C:\PROGRA~1\VISTA\BDK32\Source\ccowrpcbroker.pas]
     33ModuleType=SourceModule
     34FormState=0
     35FormOnTop=0
     36
     37[P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas]
     38ModuleType=SourceModule
     39FormState=0
     40FormOnTop=0
     41
     42[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     43ModuleType=SourceModule
     44FormState=0
     45FormOnTop=0
     46
     47[C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
     48ModuleType=SourceModule
     49FormState=0
     50FormOnTop=0
     51
     52[P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
     53ModuleType=SourceModule
     54FormState=0
     55FormOnTop=0
     56
     57[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     58ModuleType=SourceModule
     59FormState=0
     60FormOnTop=0
     61
     62[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     63ModuleType=SourceModule
     64FormState=0
     65FormOnTop=0
     66
     67[P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas]
     68ModuleType=SourceModule
     69FormState=0
     70FormOnTop=0
     71
     72[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
     73ModuleType=SourceModule
     74FormState=0
     75FormOnTop=0
     76
     77[P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
    4278ModuleType=SourceModule
    4379FormState=0
     
    4682[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
    4783ModuleType=SourceModule
    48 FormState=1
    49 FormOnTop=0
    50 
    51 [P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
    52 ModuleType=SourceModule
    53 FormState=1
    54 FormOnTop=0
    55 
    56 [P:\vista\tmg-cprs\CPRS-Chart\fNoteST.pas]
    57 ModuleType=SourceModule
    58 FormState=1
    59 FormOnTop=0
    60 
    61 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas]
    62 ModuleType=SourceModule
    63 FormState=1
    64 FormOnTop=0
    65 
    66 [P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
    67 ModuleType=SourceModule
    68 FormState=0
    69 FormOnTop=0
    70 
    71 [P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas]
    72 ModuleType=SourceModule
    73 FormState=0
    74 FormOnTop=0
    75 
    76 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas]
    77 ModuleType=SourceModule
    78 FormState=0
    79 FormOnTop=0
    80 
    81 [P:\vista\tmg-cprs\CPRS-Chart\uConst.pas]
    82 ModuleType=SourceModule
    83 FormState=0
    84 FormOnTop=0
    85 
    86 [P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas]
    87 ModuleType=SourceModule
    88 FormState=0
    89 FormOnTop=0
    90 
    91 [P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas]
    92 ModuleType=SourceModule
    93 FormState=0
    94 FormOnTop=0
    95 
    96 [P:\vista\tmg-cprs\CPRS-Chart\rDCSumm.pas]
    97 ModuleType=SourceModule
    98 FormState=0
    99 FormOnTop=0
    100 
    101 [P:\vista\tmg-cprs\CPRS-Chart\uDocTree.pas]
    102 ModuleType=SourceModule
    103 FormState=0
    104 FormOnTop=0
    105 
    106 [P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    107 ModuleType=SourceModule
    108 FormState=0
    109 FormOnTop=0
    110 
    111 [P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas]
    112 ModuleType=SourceModule
    113 FormState=0
    114 FormOnTop=0
    115 
    116 [P:\vista\tmg-cprs\CPRS-Chart\uCore.pas]
    117 ModuleType=SourceModule
    118 FormState=0
    119 FormOnTop=0
    120 
    121 [P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas]
    122 ModuleType=SourceModule
    123 FormState=0
    124 FormOnTop=0
    125 
    126 [c:\program files\borland\delphi7\source\vcl\Graphics.pas]
    127 ModuleType=SourceModule
    12884FormState=0
    12985FormOnTop=0
     
    13389FormOnTop=0
    13490
    135 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    136 FormState=0
    137 FormOnTop=0
    138 
    13991[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    14092FormState=0
     
    149101FormOnTop=0
    150102
    151 [P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    152 FormState=0
    153 FormOnTop=0
    154 
    155103[EditWindow0]
    156 ViewCount=19
     104ViewCount=12
    157105CurrentView=1
    158106View0=0
     
    168116View10=10
    169117View11=11
    170 View12=12
    171 View13=13
    172 View14=14
    173 View15=15
    174 View16=16
    175 View17=17
    176 View18=18
    177118CodeExplorer=CodeExplorer@EditWindow0
    178119MessageView=MessageView@EditWindow0
     
    180121Visible=1
    181122State=0
    182 Left=249
    183 Top=127
     123Left=139
     124Top=111
    184125Width=848
    185126Height=698
     
    204145
    205146[View1]
    206 Module=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
    207 CursorX=41
    208 CursorY=516
    209 TopLine=501
     147Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     148CursorX=42
     149CursorY=829
     150TopLine=817
    210151LeftCol=1
    211152
    212153[View2]
    213 Module=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
    214 CursorX=1
    215 CursorY=1479
    216 TopLine=1469
     154Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
     155CursorX=1
     156CursorY=5991
     157TopLine=5981
    217158LeftCol=1
    218159
    219160[View3]
    220 Module=c:\program files\borland\delphi7\source\vcl\Graphics.pas
    221 CursorX=1
    222 CursorY=1626
    223 TopLine=1616
     161Module=P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas
     162CursorX=33
     163CursorY=2170
     164TopLine=2164
    224165LeftCol=1
    225166
    226167[View4]
    227 Module=P:\vista\tmg-cprs\CPRS-Chart\fNoteST.pas
    228 CursorX=1
    229 CursorY=94
    230 TopLine=88
     168Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     169CursorX=1
     170CursorY=6956
     171TopLine=6941
    231172LeftCol=1
    232173
    233174[View5]
    234 Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
    235 CursorX=51
    236 CursorY=758
    237 TopLine=740
     175Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     176CursorX=1
     177CursorY=385
     178TopLine=375
    238179LeftCol=1
    239180
    240181[View6]
    241 Module=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
    242 CursorX=1
    243 CursorY=628
    244 TopLine=615
     182Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
     183CursorX=1
     184CursorY=433
     185TopLine=418
    245186LeftCol=1
    246187
    247188[View7]
    248 Module=P:\vista\tmg-cprs\CPRS-Chart\uCore.pas
    249 CursorX=1
    250 CursorY=1280
    251 TopLine=1272
     189Module=C:\PROGRA~1\VISTA\BDK32\Source\ccowrpcbroker.pas
     190CursorX=1
     191CursorY=363
     192TopLine=353
    252193LeftCol=1
    253194
    254195[View8]
    255 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas
    256 CursorX=1
    257 CursorY=314
    258 TopLine=309
     196Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     197CursorX=1
     198CursorY=9976
     199TopLine=9963
    259200LeftCol=1
    260201
    261202[View9]
    262 Module=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
    263 CursorX=1
    264 CursorY=527
    265 TopLine=523
     203Module=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
     204CursorX=1
     205CursorY=346
     206TopLine=335
    266207LeftCol=1
    267208
    268209[View10]
    269 Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    270 CursorX=1
    271 CursorY=1992
    272 TopLine=1984
     210Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
     211CursorX=31
     212CursorY=2251
     213TopLine=2244
    273214LeftCol=1
    274215
    275216[View11]
    276 Module=P:\vista\tmg-cprs\CPRS-Chart\uDocTree.pas
    277 CursorX=1
    278 CursorY=220
    279 TopLine=208
    280 LeftCol=1
    281 
    282 [View12]
    283 Module=P:\vista\tmg-cprs\CPRS-Chart\rDCSumm.pas
    284 CursorX=14
    285 CursorY=230
    286 TopLine=222
    287 LeftCol=1
    288 
    289 [View13]
    290 Module=P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas
    291 CursorX=1
    292 CursorY=422
    293 TopLine=410
    294 LeftCol=1
    295 
    296 [View14]
    297 Module=P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas
    298 CursorX=7
    299 CursorY=2577
    300 TopLine=2569
    301 LeftCol=1
    302 
    303 [View15]
    304 Module=P:\vista\tmg-cprs\CPRS-Chart\uConst.pas
    305 CursorX=3
    306 CursorY=205
    307 TopLine=229
    308 LeftCol=1
    309 
    310 [View16]
    311 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas
    312 CursorX=53
    313 CursorY=194
    314 TopLine=180
    315 LeftCol=1
    316 
    317 [View17]
    318 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
    319 CursorX=1
    320 CursorY=107
    321 TopLine=97
    322 LeftCol=1
    323 
    324 [View18]
    325217Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    326218CursorX=1
    327 CursorY=1
    328 TopLine=1
     219CursorY=41
     220TopLine=31
    329221LeftCol=1
    330222
     
    344236
    345237[Watches]
    346 Count=10
    347 Watch0='XQAID',256,0,18,1,1,'Watches'
    348 Watch1='RecordID',256,0,18,1,1,'Watches'
    349 Watch2='x',256,0,18,1,1,'Watches'
    350 Watch3='AFollowUp',256,0,18,1,1,'Watches'
    351 Watch4='RecordID',256,0,18,1,1,'Watches'
    352 Watch5='ADFN',256,0,18,1,1,'Watches'
    353 Watch6='AFollowUp',256,0,18,1,1,'Watches'
    354 Watch7='ARecordId',256,0,18,1,1,'Watches'
    355 Watch8='tmpList.Strings[0]',256,0,18,1,1,'Watches'
    356 Watch9='DocList.Strings[i]',256,0,18,1,1,'Watches'
     238Count=1
     239Watch0='Count',256,0,18,1,1,'Watches'
    357240
    358241[WatchWindow]
     
    375258
    376259[Breakpoints]
    377 Count=50
     260Count=52
    378261Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1714,'',0,1,'',1,0,0,'',1,'','',''
    379262Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1791,'',0,1,'',1,0,0,'',1,'','',''
     
    416299Breakpoint38='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas',130,'',0,1,'',1,0,0,'',1,'','',''
    417300Breakpoint39='P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas',527,'',0,1,'',1,0,0,'',1,'','',''
    418 Breakpoint40='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1756,'',0,1,'',1,0,0,'',1,'','',''
    419 Breakpoint41='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1803,'',0,1,'',1,0,0,'',1,'','',''
    420 Breakpoint42='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1876,'',0,1,'',1,0,0,'',1,'','',''
    421 Breakpoint43='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3700,'',0,1,'',1,0,0,'',1,'','',''
    422 Breakpoint44='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',4882,'',0,1,'',1,0,0,'',1,'','',''
    423 Breakpoint45='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',5149,'',0,1,'',1,0,0,'',1,'','',''
     301Breakpoint40='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1774,'',0,1,'',1,0,0,'',1,'','',''
     302Breakpoint41='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1821,'',0,1,'',1,0,0,'',1,'','',''
     303Breakpoint42='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1894,'',0,1,'',1,0,0,'',1,'','',''
     304Breakpoint43='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3718,'',0,1,'',1,0,0,'',1,'','',''
     305Breakpoint44='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',4900,'',0,1,'',1,0,0,'',1,'','',''
     306Breakpoint45='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',5167,'',0,1,'',1,0,0,'',1,'','',''
    424307Breakpoint46='P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas',724,'',0,1,'',1,0,0,'',1,'','',''
    425308Breakpoint47='P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas',748,'',0,1,'',1,0,0,'',1,'','',''
    426 Breakpoint48='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',2007,'',0,1,'',1,0,0,'',1,'','',''
     309Breakpoint48='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',2025,'',0,1,'',1,0,0,'',1,'','',''
    427310Breakpoint49='P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',388,'',0,1,'',1,0,0,'',1,'','',''
     311Breakpoint50='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',840,'',0,1,'',1,0,0,'',1,'','',''
     312Breakpoint51='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',827,'',0,1,'',1,0,0,'',1,'','',''
    428313
    429314[AddressBreakpoints]
     
    507392[PropertyInspector]
    508393Create=1
    509 Visible=0
     394Visible=1
    510395State=0
    511396Left=0
     
    522407SplitPos=114
    523408ArrangeBy=Name
    524 SelectedItem=Caption
     409SelectedItem=Name
    525410ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders,Font,Images,Options,PopupMenu
    526411HiddenCategories=Legacy
     
    552437Visible=1
    553438State=0
    554 Left=56
    555 Top=405
     439Left=6
     440Top=183
    556441Width=321
    557442Height=521
     
    726611[MessageView@EditWindow0]
    727612Create=1
    728 Visible=0
     613Visible=1
    729614State=0
    730615Left=0
     
    746631DockSiteType=1
    747632Create=1
    748 Visible=0
     633Visible=1
    749634State=0
    750635Left=21
     
    760645Dockable=1
    761646TabPosition=0
     647ActiveTab=Object Inspector
    762648TabDockClients=PropertyInspector,ObjectTree
    763649
     
    779665Dockable=1
    780666TabPosition=0
    781 ActiveTab=Watch List
     667ActiveTab=Messages
    782668TabDockClients=MessageView@EditWindow0,WatchWindow
    783669
  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

    r793 r820  
    753753  tempPosition : TTabPosition; //kt
    754754  ImagesEnabled : boolean; //kt
     755  Connected : boolean; //kt 6/3/10
     756  RetryConnect : integer; //kt 6/3/10
    755757begin
    756758  //kt 6/29/07  Begin modification -------------------
     
    809811{$ENDIF}
    810812
     813{ //kt Original block
     814  if not ConnectToServer(TX_OPTION) then
     815  begin
     816    if Assigned(RPCBrokerV) then
     817      InfoBox(RPCBrokerV.RPCBError, 'Error', MB_OK or MB_ICONERROR);
     818    Close;
     819    Exit;
     820  end;  }
     821
     822  //kt begin mod 6/3/10 --------------
    811823  TMGAbort := False;  //kt 3/25/09
    812   if not ConnectToServer(TX_OPTION) then
    813   begin
    814     if Assigned(RPCBrokerV) then
    815 //    InfoBox(RPCBrokerV.RPCBError, 'Error', MB_OK or MB_ICONERROR);  <-- original line.  //kt 7/17/2007
    816       InfoBox(RPCBrokerV.RPCBError, DKLangConstW('fFrame_Error'), MB_OK or MB_ICONERROR); //kt added 7/17/2007
    817     Close;
    818     TMGAbort := True;   //kt 3/25/09
    819     Exit;
    820   end;
     824  repeat
     825    Connected := ConnectToServer(TX_OPTION);
     826    if not Connected then begin
     827      RetryConnect := mrCancel;
     828      if Assigned(RPCBrokerV) then begin
     829        RetryConnect := MessageDlg(RPCBrokerV.RPCBError, mtError, [mbRetry, mbCancel], 0);
     830      end;
     831      if RetryConnect <> mrRetry then begin
     832        Close;
     833        TMGAbort := True;   //kt 3/25/09
     834        Exit;
     835      end;
     836    end
     837  until Connected;   //Exit command above will also abort loop
     838  //kt end mod ----------
    821839
    822840  if ctxContextor <> nil then
Note: See TracChangeset for help on using the changeset viewer.