Ignore:
Timestamp:
Apr 19, 2010, 5:24:20 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Fixed Text Object Parameters

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

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dsk

    r736 r738  
    11[Closed Files]
    2 File_0=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas',0,1,1464,1,1479,0,0
    3 File_1=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\Trpcb.pas',0,1,40,1,52,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',0,1,367,13,371,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateEditor.pas',0,1,37,18,66,0,0
     4File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas',0,1,207,1,170,0,0
     5File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',0,1,799,39,807,0,0
     6File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',0,1,134,11,76,0,0
     7File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',0,1,921,10,929,0,0
     8File_6=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas',0,1,283,32,289,0,0
     9File_7=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fxBroker.pas',0,1,119,13,135,0,0
     10File_8=SourceModule,'P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas',0,1,458,1,469,0,0
     11File_9=SourceModule,'P:\vista\tmg-cprs\CPRSChart.ini',0,1,40,1,47,0,0
    412
    513[Modules]
    6 Module0=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
    7 Module1=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    8 Module2=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
    9 Module3=P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas
    10 Module4=c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas
    11 Module5=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
    12 Module6=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
    13 Module7=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    14 Module8=c:\program files\borland\delphi7\source\vcl\Forms.pas
    15 Module9=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    16 Module10=c:\program files\borland\delphi7\source\vcl\Controls.pas
    17 Module11=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
    18 Module12=P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas
    19 Module13=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
    20 Module14=P:\vista\tmg-cprs\CPRS-Chart\dShared.pas
    21 Module15=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    22 Module16=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas
    23 Module17=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
    24 Module18=P:\vista\tmg-cprs\CPRSChart.ini
    25 Module19=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    26 Module20=P:\vista\tmg-cprs\CPRS-Chart\rCover.pas
    27 Module21=P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas
    28 Module22=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    29 Module23=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    30 Module24=P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas
    31 Module25=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    32 Module26=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    33 Module27=P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas
    34 Module28=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    35 Module29=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
    36 Module30=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    37 Count=31
    38 EditWindowCount=1
     14Count=0
     15EditWindowCount=0
    3916TypeLibWindowCount=1
    4017
    41 [P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas]
    42 ModuleType=SourceModule
    43 FormState=0
    44 FormOnTop=0
    45 
    46 [c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
    47 ModuleType=SourceModule
    48 FormState=0
    49 FormOnTop=0
    50 
    51 [P:\vista\tmg-cprs\CPRS-Chart\fImages.pas]
    52 ModuleType=SourceModule
    53 FormState=0
    54 FormOnTop=0
    55 
    56 [P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas]
    57 ModuleType=SourceModule
    58 FormState=0
    59 FormOnTop=0
    60 
    61 [c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas]
    62 ModuleType=SourceModule
    63 FormState=0
    64 FormOnTop=0
    65 
    66 [P:\vista\tmg-cprs\CPRS-Lib\ORNet.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 [c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
    77 ModuleType=SourceModule
    78 FormState=0
    79 FormOnTop=0
    80 
    81 [c:\program files\borland\delphi7\source\vcl\Forms.pas]
    82 ModuleType=SourceModule
    83 FormState=0
    84 FormOnTop=0
    85 
    86 [c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    87 ModuleType=SourceModule
    88 FormState=0
    89 FormOnTop=0
    90 
    91 [c:\program files\borland\delphi7\source\vcl\Controls.pas]
    92 ModuleType=SourceModule
    93 FormState=0
    94 FormOnTop=0
    95 
    96 [P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas]
    97 ModuleType=SourceModule
    98 FormState=0
    99 FormOnTop=0
    100 
    101 [P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas]
    102 ModuleType=SourceModule
    103 FormState=0
    104 FormOnTop=0
    105 
    106 [P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
    107 ModuleType=SourceModule
    108 FormState=0
    109 FormOnTop=0
    110 
    111 [P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
    112 ModuleType=SourceModule
    113 FormState=0
    114 FormOnTop=0
    115 
    116 [P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
    117 ModuleType=SourceModule
    118 FormState=0
    119 FormOnTop=0
    120 
    121 [P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas]
    122 ModuleType=SourceModule
    123 FormState=0
    124 FormOnTop=0
    125 
    126 [P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas]
    127 ModuleType=SourceModule
    128 FormState=0
    129 FormOnTop=0
    130 
    131 [P:\vista\tmg-cprs\CPRSChart.ini]
    132 ModuleType=SourceModule
    133 FormState=0
    134 FormOnTop=0
    135 
    136 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
    137 ModuleType=SourceModule
    138 FormState=0
    139 FormOnTop=0
    140 
    141 [P:\vista\tmg-cprs\CPRS-Chart\rCover.pas]
    142 ModuleType=SourceModule
    143 FormState=0
    144 FormOnTop=0
    145 
    146 [P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas]
    147 ModuleType=SourceModule
    148 FormState=0
    149 FormOnTop=0
    150 
    151 [c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
    152 ModuleType=SourceModule
    153 FormState=0
    154 FormOnTop=0
    155 
    156 [P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
    157 ModuleType=SourceModule
    158 FormState=0
    159 FormOnTop=0
    160 
    161 [P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas]
    162 ModuleType=SourceModule
    163 FormState=0
    164 FormOnTop=0
    165 
    166 [P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
    167 ModuleType=SourceModule
    168 FormState=0
    169 FormOnTop=0
    170 
    171 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    172 ModuleType=SourceModule
    173 FormState=0
    174 FormOnTop=0
    175 
    176 [P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas]
    177 ModuleType=SourceModule
    178 FormState=0
    179 FormOnTop=0
    180 
    181 [P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    182 ModuleType=SourceModule
    183 FormState=0
    184 FormOnTop=0
    185 
    186 [P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas]
    187 ModuleType=SourceModule
    188 FormState=0
    189 FormOnTop=0
    190 
    191 [P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas]
    192 ModuleType=SourceModule
    193 FormState=0
    194 FormOnTop=0
    195 
    19618[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    19719FormState=0
    … …  
    20628FormOnTop=0
    20729
     30[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
     31FormState=0
     32FormOnTop=0
     33
    20834[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    20935FormState=0
    … …  
    21339FormState=0
    21440FormOnTop=0
    215 
    216 [EditWindow0]
    217 ViewCount=31
    218 CurrentView=28
    219 View0=0
    220 View1=1
    221 View2=2
    222 View3=3
    223 View4=4
    224 View5=5
    225 View6=6
    226 View7=7
    227 View8=8
    228 View9=9
    229 View10=10
    230 View11=11
    231 View12=12
    232 View13=13
    233 View14=14
    234 View15=15
    235 View16=16
    236 View17=17
    237 View18=18
    238 View19=19
    239 View20=20
    240 View21=21
    241 View22=22
    242 View23=23
    243 View24=24
    244 View25=25
    245 View26=26
    246 View27=27
    247 View28=28
    248 View29=29
    249 View30=30
    250 CodeExplorer=CodeExplorer@EditWindow0
    251 MessageView=MessageView@EditWindow0
    252 Create=1
    253 Visible=1
    254 State=0
    255 Left=7
    256 Top=130
    257 Width=1005
    258 Height=623
    259 MaxLeft=-1
    260 MaxTop=-1
    261 ClientWidth=997
    262 ClientHeight=589
    263 LeftPanelSize=140
    264 LeftPanelClients=CodeExplorer@EditWindow0,DockSite0
    265 LeftPanelData=00000400010000000C000000436F64654578706C6F7265728C0000000000000002700100000000000001000000008C00000009000000446F636B536974653001000000000000000000000000FFFFFFFF
    266 RightPanelSize=0
    267 BottomPanelSize=218
    268 BottomPanelClients=MessageView@EditWindow0
    269 BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
    270 
    271 [View0]
    272 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    273 CursorX=1
    274 CursorY=375
    275 TopLine=367
    276 LeftCol=1
    277 
    278 [View1]
    279 Module=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
    280 CursorX=1
    281 CursorY=815
    282 TopLine=800
    283 LeftCol=1
    284 
    285 [View2]
    286 Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    287 CursorX=1
    288 CursorY=980
    289 TopLine=967
    290 LeftCol=1
    291 
    292 [View3]
    293 Module=P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas
    294 CursorX=22
    295 CursorY=18
    296 TopLine=21
    297 LeftCol=1
    298 
    299 [View4]
    300 Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    301 CursorX=43
    302 CursorY=327
    303 TopLine=91
    304 LeftCol=1
    305 
    306 [View5]
    307 Module=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
    308 CursorX=1
    309 CursorY=216
    310 TopLine=208
    311 LeftCol=1
    312 
    313 [View6]
    314 Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    315 CursorX=1
    316 CursorY=4424
    317 TopLine=4415
    318 LeftCol=1
    319 
    320 [View7]
    321 Module=P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas
    322 CursorX=1
    323 CursorY=291
    324 TopLine=283
    325 LeftCol=1
    326 
    327 [View8]
    328 Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    329 CursorX=1
    330 CursorY=1
    331 TopLine=1
    332 LeftCol=1
    333 
    334 [View9]
    335 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    336 CursorX=1
    337 CursorY=4672
    338 TopLine=4657
    339 LeftCol=1
    340 
    341 [View10]
    342 Module=P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas
    343 CursorX=1
    344 CursorY=63
    345 TopLine=51
    346 LeftCol=1
    347 
    348 [View11]
    349 Module=P:\vista\tmg-cprs\CPRS-Chart\rCover.pas
    350 CursorX=1
    351 CursorY=439
    352 TopLine=427
    353 LeftCol=1
    354 
    355 [View12]
    356 Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    357 CursorX=25
    358 CursorY=904
    359 TopLine=936
    360 LeftCol=1
    361 
    362 [View13]
    363 Module=P:\vista\tmg-cprs\CPRSChart.ini
    364 CursorX=1
    365 CursorY=47
    366 TopLine=40
    367 LeftCol=1
    368 
    369 [View14]
    370 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
    371 CursorX=89
    372 CursorY=2926
    373 TopLine=2918
    374 LeftCol=1
    375 
    376 [View15]
    377 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas
    378 CursorX=63
    379 CursorY=56
    380 TopLine=134
    381 LeftCol=1
    382 
    383 [View16]
    384 Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    385 CursorX=1
    386 CursorY=840
    387 TopLine=823
    388 LeftCol=1
    389 
    390 [View17]
    391 Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    392 CursorX=2
    393 CursorY=12671
    394 TopLine=12660
    395 LeftCol=1
    396 
    397 [View18]
    398 Module=P:\vista\tmg-cprs\CPRS-Chart\dShared.pas
    399 CursorX=3
    400 CursorY=63
    401 TopLine=28
    402 LeftCol=1
    403 
    404 [View19]
    405 Module=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
    406 CursorX=1
    407 CursorY=790
    408 TopLine=782
    409 LeftCol=1
    410 
    411 [View20]
    412 Module=P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas
    413 CursorX=15
    414 CursorY=1171
    415 TopLine=773
    416 LeftCol=1
    417 
    418 [View21]
    419 Module=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
    420 CursorX=1
    421 CursorY=310
    422 TopLine=283
    423 LeftCol=1
    424 
    425 [View22]
    426 Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
    427 CursorX=1
    428 CursorY=6245
    429 TopLine=6231
    430 LeftCol=1
    431 
    432 [View23]
    433 Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    434 CursorX=1
    435 CursorY=4030
    436 TopLine=4022
    437 LeftCol=1
    438 
    439 [View24]
    440 Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
    441 CursorX=1
    442 CursorY=6878
    443 TopLine=6870
    444 LeftCol=1
    445 
    446 [View25]
    447 Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    448 CursorX=1
    449 CursorY=9156
    450 TopLine=9141
    451 LeftCol=1
    452 
    453 [View26]
    454 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
    455 CursorX=1
    456 CursorY=107
    457 TopLine=412
    458 LeftCol=1
    459 
    460 [View27]
    461 Module=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
    462 CursorX=1
    463 CursorY=361
    464 TopLine=353
    465 LeftCol=1
    466 
    467 [View28]
    468 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
    469 CursorX=1
    470 CursorY=1133
    471 TopLine=1118
    472 LeftCol=1
    473 
    474 [View29]
    475 Module=c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas
    476 CursorX=1
    477 CursorY=413
    478 TopLine=399
    479 LeftCol=1
    480 
    481 [View30]
    482 Module=P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas
    483 CursorX=40
    484 CursorY=64
    485 TopLine=257
    486 LeftCol=1
    48741
    48842[TypeLibEditWindow0]
    … …  
    50155
    50256[Watches]
    503 Count=22
    504 Watch0='NumStr',256,0,18,1,0,'Watches'
    505 Watch1='p1',256,0,18,1,0,'Watches'
    506 Watch2='SL.Text',256,0,18,1,0,'Watches'
    507 Watch3='Temp',256,0,18,1,0,'Watches'
    508 Watch4='Txt[i]',256,0,18,1,0,'Watches'
    509 Watch5='CloseMatchesNeeded',256,0,18,1,0,'Watches'
    510 Watch6='FnObjStr',256,0,18,1,0,'Watches'
    511 Watch7='val1',256,0,18,1,0,'Watches'
    512 Watch8='val2',256,0,18,1,0,'Watches'
    513 Watch9='pos2',256,0,18,1,0,'Watches'
    514 Watch10='Key',256,0,18,1,0,'Watches'
    515 Watch11='RPCBrokerV.Results.text',256,0,18,1,0,'Watches'
    516 Watch12='SL[SL.Count-1]',256,0,18,1,0,'Watches'
    517 Watch13='NameToObjID.Strings[i]',256,0,18,1,0,'Watches'
    518 Watch14='txt',256,0,18,1,0,'Watches'
    519 Watch15='SL[i]',256,0,18,1,0,'Watches'
    520 Watch16='FldName',256,0,18,1,0,'Watches'
    521 Watch17='pos(ObjMarker, SL.Text)',256,0,18,1,0,'Watches'
    522 Watch18='RPCBrokerV.Results.text',256,0,18,1,0,'Watches'
    523 Watch19='Strings[I]',256,0,18,1,0,'Watches'
    524 Watch20='test[i]',256,0,18,1,0,'Watches'
    525 Watch21='StrLen(PChar(Txt))+1',256,0,18,1,0,'Watches'
     57Count=2
     58Watch0='tmp',256,0,18,1,0,'Watches'
     59Watch1='RPCBrokerV.Results.text',256,0,18,1,0,'Watches'
    52660
    52761[WatchWindow]
    528 WatchColumnWidth=179
     62WatchColumnWidth=100
    52963WatchShowColumnHeaders=1
    53064Create=1
    … …  
    53367Left=0
    53468Top=0
    535 Width=704
    536 Height=407
    537 MaxLeft=-1
    538 MaxTop=-1
    539 ClientWidth=704
    540 ClientHeight=407
     69Width=977
     70Height=166
     71MaxLeft=-1
     72MaxTop=-1
     73ClientWidth=977
     74ClientHeight=166
    54175TBDockHeight=264
    54276LRDockWidth=421
    … …  
    54478
    54579[Breakpoints]
    546 Count=33
     80Count=34
    54781Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1710,'',0,1,'',1,0,0,'',1,'','',''
    54882Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1787,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    56195Breakpoint14='P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas',718,'',0,1,'',1,0,0,'',1,'','',''
    56296Breakpoint15='P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas',846,'',0,1,'',1,0,0,'',1,'','',''
    563 Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',584,'',0,1,'',1,0,0,'',1,'','',''
    564 Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',599,'',0,1,'',1,0,0,'',1,'','',''
     97Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',589,'',0,1,'',1,0,0,'',1,'','',''
     98Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',604,'',0,1,'',1,0,0,'',1,'','',''
    56599Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\fReview.pas',1350,'',0,1,'',1,0,0,'',1,'','',''
    566100Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas',204,'',0,1,'',1,0,0,'',1,'','',''
    567 Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',2924,'',0,1,'',1,0,0,'',1,'','',''
    568 Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4550,'',0,1,'',1,0,0,'',1,'','',''
    569 Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',163,'',0,1,'',1,0,0,'',1,'','',''
    570 Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
    571 Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
    572 Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
    573 Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1128,'',0,1,'',1,0,0,'',1,'','',''
    574 Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',216,'',0,1,'',1,0,0,'',1,'','',''
    575 Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',504,'',0,1,'',1,0,0,'',1,'','',''
    576 Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1890,'',0,1,'',1,0,0,'',1,'','',''
    577 Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
    578 Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1126,'',0,1,'',1,0,0,'',1,'','',''
    579 Breakpoint32='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',551,'',0,1,'',1,0,0,'',1,'','',''
     101Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4550,'',0,1,'',1,0,0,'',1,'','',''
     102Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',163,'',0,1,'',1,0,0,'',1,'','',''
     103Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
     104Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
     105Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
     106Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1128,'',0,1,'',1,0,0,'',1,'','',''
     107Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',509,'',0,1,'',1,0,0,'',1,'','',''
     108Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1890,'',0,1,'',1,0,0,'',1,'','',''
     109Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
     110Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1126,'',0,1,'',1,0,0,'',1,'','',''
     111Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',551,'',0,1,'',1,0,0,'',1,'','',''
     112Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1011,'',0,1,'',1,0,0,'',1,'','',''
     113Breakpoint32='P:\vista\tmg-cprs\CPRS-Chart\dShared.pas',606,'',0,1,'',1,0,0,'',1,'','',''
     114Breakpoint33='P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',929,'',0,1,'',1,0,0,'',1,'','',''
    580115
    581116[AddressBreakpoints]
    … …  
    586121Visible=1
    587122State=0
    588 Left=15
    589 Top=17
     123Left=29
     124Top=75
    590125Width=988
    591126Height=112
    … …  
    663198Left=0
    664199Top=0
    665 Width=132
    666 Height=327
    667 MaxLeft=-1
    668 MaxTop=-1
    669 ClientWidth=132
    670 ClientHeight=327
     200Width=297
     201Height=452
     202MaxLeft=-1
     203MaxTop=-1
     204ClientWidth=297
     205ClientHeight=452
    671206TBDockHeight=492
    672207LRDockWidth=190
    673208Dockable=1
    674 SplitPos=65
     209SplitPos=114
    675210ArrangeBy=Name
    676 SelectedItem=
    677 ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders
     211SelectedItem=Caption
     212ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders,Options
    678213HiddenCategories=Legacy
    679214
    … …  
    704239Visible=0
    705240State=0
    706 Left=357
    707 Top=154
     241Left=-654
     242Top=203
    708243Width=553
    709244Height=521
    … …  
    742277Left=0
    743278Top=0
    744 Width=132
    745 Height=327
    746 MaxLeft=-1
    747 MaxTop=-1
    748 ClientWidth=132
    749 ClientHeight=327
     279Width=297
     280Height=452
     281MaxLeft=-1
     282MaxTop=-1
     283ClientWidth=297
     284ClientHeight=452
    750285TBDockHeight=175
    751286LRDockWidth=108
    … …  
    758293Left=0
    759294Top=0
    760 Width=704
    761 Height=407
    762 MaxLeft=-1
    763 MaxTop=-1
    764 ClientWidth=704
    765 ClientHeight=407
     295Width=977
     296Height=166
     297MaxLeft=-1
     298MaxTop=-1
     299ClientWidth=977
     300ClientHeight=166
    766301TBDockHeight=291
    767302LRDockWidth=417
    … …  
    860395Dockable=1
    861396
    862 [CodeExplorer@EditWindow0]
    863 Create=1
    864 Visible=0
    865 State=0
    866 Left=0
    867 Top=12
    868 Width=140
    869 Height=439
    870 MaxLeft=-1
    871 MaxTop=-1
    872 ClientWidth=140
    873 ClientHeight=439
    874 TBDockHeight=305
    875 LRDockWidth=140
    876 Dockable=1
    877 
    878 [MessageView@EditWindow0]
    879 Create=1
    880 Visible=1
    881 State=0
    882 Left=12
    883 Top=0
    884 Width=985
    885 Height=218
    886 MaxLeft=-1
    887 MaxTop=-1
    888 ClientWidth=985
    889 ClientHeight=218
    890 TBDockHeight=218
    891 LRDockWidth=443
    892 Dockable=1
    893 
    894397[DockHosts]
    895398DockHostCount=2
    … …  
    898401DockSiteType=1
    899402Create=1
    900 Visible=1
    901 State=0
    902 Left=0
    903 Top=12
    904 Width=140
    905 Height=356
    906 MaxLeft=-1
    907 MaxTop=-1
    908 ClientWidth=140
    909 ClientHeight=356
     403Visible=0
     404State=0
     405Left=412
     406Top=16
     407Width=313
     408Height=507
     409MaxLeft=-1
     410MaxTop=-1
     411ClientWidth=305
     412ClientHeight=481
    910413TBDockHeight=356
    911414LRDockWidth=140
    … …  
    918421DockSiteType=1
    919422Create=1
    920 Visible=1
    921 State=0
    922 Left=1072
    923 Top=211
    924 Width=720
    925 Height=462
    926 MaxLeft=-1
    927 MaxTop=-1
    928 ClientWidth=712
    929 ClientHeight=436
    930 TBDockHeight=233
     423Visible=0
     424State=0
     425Left=23
     426Top=533
     427Width=993
     428Height=221
     429MaxLeft=-1
     430MaxTop=-1
     431ClientWidth=985
     432ClientHeight=195
     433TBDockHeight=195
    931434LRDockWidth=283
    932435Dockable=1

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm

    r735 r738  
    11object frmOptions: TfrmOptions
    2   Left = 283
    3   Top = 179
     2  Left = 302
     3  Top = 223
    44  Width = 435
    55  Height = 397
    … …  
    17961796          Caption = 'Enable Images Tab'
    17971797          TabOrder = 0
     1798          OnClick = cbEnableImagesClick
    17981799        end
    17991800        object cboTransMethod: TComboBox
    … …  
    18061807          TabOrder = 1
    18071808          Text = 'Dropbox Transfer'
     1809          OnChange = cboTransMethodChange
    18081810          Items.Strings = (
    18091811            'Dropbox Transfer'
    … …  
    18111813            'Embedded in RPCs')
    18121814        end
    1813         object Edit1: TEdit
     1815        object editDropboxLocation: TEdit
    18141816          Left = 16
    18151817          Top = 120
    18161818          Width = 201
    1817           Height = 22
     1819          Height = 21
    18181820          TabOrder = 2
     1821          OnChange = editDropboxLocationChange
    18191822        end
    18201823        object BitBtn1: TBitBtn
    … …  
    18251828          Caption = '...'
    18261829          TabOrder = 3
     1830          OnClick = BitBtn1Click
    18271831          Glyph.Data = {
    18281832            F6000000424DF600000000000000760000002800000010000000100000000100
    … …  
    18421846          Caption = 'Enable auto-upload of scanned images'
    18431847          TabOrder = 4
    1844         end
    1845         object Edit2: TEdit
     1848          OnClick = cbEnableScanningClick
     1849        end
     1850        object editScannedLocation: TEdit
    18461851          Left = 15
    18471852          Top = 199
    18481853          Width = 201
    1849           Height = 22
     1854          Height = 21
    18501855          TabOrder = 5
     1856          OnChange = editScannedLocationChange
    18511857        end
    18521858        object BitBtn2: TBitBtn
    … …  
    18571863          Caption = '...'
    18581864          TabOrder = 6
     1865          OnClick = BitBtn2Click
    18591866          Glyph.Data = {
    18601867            F6000000424DF600000000000000760000002800000010000000100000000100
    … …  
    18741881          TabOrder = 7
    18751882          Text = '60'
     1883          OnChange = edtPolFreqChange
    18761884        end
    18771885      end
    … …  
    20652073      00070043617074696F6E000E0063626F5472616E734D6574686F640102000000
    20662074      5A00000005004974656D73590000000400546578740006004C6162656C330101
    2067       0000005B000000070043617074696F6E0005004564697431000006004C616265
    2068       6C3401010000005C000000070043617074696F6E00070042697442746E310000
    2069       0A00646C675069636B446972000010006362456E61626C655363616E6E696E67
    2070       01010000005D000000070043617074696F6E0006004C6162656C350101000000
    2071       5E000000070043617074696F6E00050045646974320000070042697442746E32
    2072       000006004C6162656C3601010000005F000000070043617074696F6E000A0065
    2073       6474506F6C46726571000006004C6162656C3701010000006000000007004361
    2074       7074696F6E00}
     2075      0000005B000000070043617074696F6E0013006564697444726F70626F784C6F
     2076      636174696F6E000006004C6162656C3401010000005C00000007004361707469
     2077      6F6E00070042697442746E3100000A00646C675069636B446972000010006362
     2078      456E61626C655363616E6E696E6701010000005D000000070043617074696F6E
     2079      0006004C6162656C3501010000005E000000070043617074696F6E0013006564
     2080      69745363616E6E65644C6F636174696F6E0000070042697442746E3200000600
     2081      4C6162656C3601010000005F000000070043617074696F6E000A00656474506F
     2082      6C46726571000006004C6162656C37010100000060000000070043617074696F
     2083      6E00}
    20752084  end
    20762085  object dlgPickDir: TOpenDialog

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.pas

    r735 r738  
    77  Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
    88  Buttons, ComCtrls, ExtCtrls, ORCtrls, OrFn, Dialogs, ORDtTmRng, fBAOptionsDiagnoses,
    9   uBAGlobals, TntStdCtrls, DKLang, jpeg, inifiles;
     9  uBAGlobals, TntStdCtrls, DKLang, jpeg, inifiles, uConst, StrUtils;
    1010
    1111//kt added 6/29/07 ------------------
    … …  
    139139    cboTransMethod: TComboBox;
    140140    Label3: TLabel;
    141     Edit1: TEdit;
     141    editDropboxLocation: TEdit;
    142142    Label4: TLabel;
    143143    BitBtn1: TBitBtn;
    … …  
    145145    cbEnableScanning: TCheckBox;
    146146    Label5: TLabel;
    147     Edit2: TEdit;
     147    editScannedLocation: TEdit;
    148148    BitBtn2: TBitBtn;
    149149    Label6: TLabel;
    … …  
    188188    procedure lbSkinsKeyPress(Sender: TObject; var Key: Char);
    189189    procedure btnDisableSkinClick(Sender: TObject);
    190     procedure cbSkinAtStartupClick(Sender: TObject);  //kt added 6/29/07
     190    procedure cbSkinAtStartupClick(Sender: TObject);
     191    procedure cboTransMethodChange(Sender: TObject);
     192    procedure cbEnableImagesClick(Sender: TObject);
     193    procedure editDropboxLocationChange(Sender: TObject);
     194    procedure cbEnableScanningClick(Sender: TObject);
     195    procedure editScannedLocationChange(Sender: TObject);
     196    procedure edtPolFreqChange(Sender: TObject);
     197    procedure BitBtn1Click(Sender: TObject);
     198    procedure BitBtn2Click(Sender: TObject);  //kt added 6/29/07
    191199  private
    192200    { Private declarations }
    193201    FdirtyNotifications: boolean;  // used to determine edit changes to Notifications
     202    FdirtyImageSettings: boolean;  // used to determine edit changes to Image Settings
    194203    FdirtyOrderChecks: boolean;    // used to determine edit changes to Order Checks
    195204    FdirtyOtherStuff: boolean;     // used to determine edit changes to misc settings
    … …  
    201210    procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer);
    202211    procedure LoadNotifications;
     212    procedure LoadImageSettings;
    203213    procedure LoadOrderChecks;
    204214    procedure ApplyNotifications;
    205215    procedure ApplyOrderChecks;
    206216    procedure ApplyOtherStuff;
     217    procedure ApplyImageSettings;
    207218    procedure CheckApply;
    208219    procedure LoadListView(aListView: TListView; aList: TStrings);
    209220    procedure ChangeOnOff(aListView: TListView; aListItem: TListItem);
     221    function BrowseDialog(const Title: string; const Flag: integer): string;
    210222  public
    211223    { Public declarations }
    … …  
    228240    ShellAPI, //kt 9/8/08
    229241    uTMGOptions, //kt 2/10/10
     242    UploadImages, fImages, //elh 04/15/10
     243    ShlObj,  //elh 04/15/10
    230244    ORNet, //allows access to RPCBrokerV
    231245    TntForms, TntSystem, TntSysUtils;
    … …  
    346360    LoadNotifications;
    347361    LoadOrderChecks;
     362    LoadImageSettings;
     363    FdirtyImageSettings := false;
    348364    FdirtyNotifications := false;
    349365    FdirtyOrderChecks := false;
    … …  
    469485    if FdirtyNotifications then
    470486      ApplyNotifications;
     487    if FdirtyImageSettings then
     488      ApplyImageSettings;
    471489    if FdirtyOrderChecks then
    472490      ApplyOrderChecks;
    … …  
    493511    btnSurrogate.Hint := surrogateinfo;
    494512    LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText);
     513  end;
     514
     515  procedure TfrmOptions.LoadImageSettings;
     516  begin
     517     cbEnableImages.Checked := uTMGOptions.ReadBool('EnableImages',false);
     518     cboTransMethod.ItemIndex :=  uTMGOptions.ReadInteger('ImageTransferMethod',0);
     519     editDropboxLocation.text := uTMGOptions.ReadString('Dropbox directory','');
     520     cbEnableScanning.Checked := uTMGOptions.ReadBool('Scan Enabled',false);
     521     editScannedLocation.text := uTMGOptions.ReadString('Pol Directory','');
     522     edtPolFreq.text := IntToStr(uTMGOptions.ReadInteger('Pol Interval (milliseconds)',0));
     523
     524     cbEnableScanningClick(self);
     525     cboTransMethodChange(self);
    495526  end;
    496527
    … …  
    531562  end;
    532563
     564  procedure TfrmOptions.ApplyImageSettings;
     565  begin
     566     uTMGOptions.WriteBool('EnableImages',cbEnableImages.Checked);
     567     frmFrame.SetATabVisibility(CT_IMAGES, cbEnableImages.Checked, 'Images');
     568
     569     uTMGOptions.WriteInteger('ImageTransferMethod',cboTransMethod.itemindex);
     570     if cboTransMethod.text = 'Dropbox Transfer' then begin
     571        frmImages.UseDropBox := True;
     572     end else begin
     573        frmImages.UseDropBox := False;
     574     end;
     575
     576     uTMGOptions.WriteString('Dropbox directory',editDropboxLocation.text);
     577     frmImages.DropBoxDir := editDropboxLocation.text;
     578
     579     uTMGOptions.WriteBool('Scan Enabled',cbEnableScanning.Checked);
     580
     581     uTMGOptions.WriteString('Pol Directory',editScannedLocation.text);
     582     UploadForm.FScanDir := editScannedLocation.text;
     583
     584     uTMGOptions.WriteInteger('Pol Interval (milliseconds)',StrToInt(edtPolFreq.text));
     585     UploadForm.PolInterval := StrToInt(edtPolFreq.text);
     586
     587     FdirtyImageSettings := false;
     588  end;
     589
    533590  procedure TfrmOptions.ApplyOrderChecks;
    534591  // save Order Check changes
    … …  
    572629  // determine if Apply button is enabled
    573630  begin
    574     btnApply.Enabled :=  FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff;
     631    btnApply.Enabled :=  FdirtyImageSettings or FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff;
    575632  end;
    576633
    … …  
    9611018  end;
    9621019
     1020procedure TfrmOptions.cboTransMethodChange(Sender: TObject);
     1021begin
     1022    if cboTransMethod.text = 'Dropbox Transfer' then begin
     1023       editDropboxLocation.enabled := true;
     1024       bitbtn1.enabled := true;
     1025    end else begin
     1026       editDropboxLocation.enabled := false;
     1027       bitbtn1.enabled := false;
     1028    end;
     1029    FdirtyImageSettings := true;
     1030    CheckApply;
     1031end;
     1032
     1033procedure TfrmOptions.cbEnableImagesClick(Sender: TObject);
     1034begin
     1035   FdirtyImageSettings := true;
     1036   CheckApply;
     1037end;
     1038
     1039procedure TfrmOptions.editDropboxLocationChange(Sender: TObject);
     1040begin
     1041   FdirtyImageSettings := true;
     1042   CheckApply;
     1043end;
     1044
     1045procedure TfrmOptions.cbEnableScanningClick(Sender: TObject);
     1046begin
     1047   editScannedLocation.enabled := cbEnableScanning.checked;
     1048   bitbtn2.enabled := cbEnableScanning.checked;
     1049   edtPolFreq.enabled := cbEnableScanning.checked;
     1050   FdirtyImageSettings := true;
     1051   CheckApply;
     1052end;
     1053
     1054procedure TfrmOptions.editScannedLocationChange(Sender: TObject);
     1055begin
     1056   FdirtyImageSettings := true;
     1057   CheckApply;
     1058end;
     1059
     1060procedure TfrmOptions.edtPolFreqChange(Sender: TObject);
     1061begin
     1062   FdirtyImageSettings := true;
     1063   CheckApply;
     1064end;
     1065
     1066procedure TfrmOptions.BitBtn1Click(Sender: TObject);
     1067var
     1068   sFolder: string;
     1069begin
     1070  sFolder := BrowseDialog('Choose a Dropbox folder', BIF_RETURNONLYFSDIRS);
     1071  if sFolder <> '' then begin
     1072    if rightstr(sFolder,1) = '\' then begin
     1073       editDropboxLocation.text := sFolder;
     1074    end else begin
     1075       editDropboxLocation.text := sFolder + '\';
     1076    end;
     1077  end;
     1078end;
     1079
     1080function TfrmOptions.BrowseDialog(const Title: string; const Flag: integer): string;
     1081var
     1082  lpItemID : PItemIDList;
     1083  BrowseInfo : TBrowseInfo;
     1084  DisplayName : array[0..MAX_PATH] of char;
     1085  TempPath : array[0..MAX_PATH] of char;
     1086begin
     1087  Result:='';
     1088  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
     1089  with BrowseInfo do begin
     1090    hwndOwner := Application.Handle;
     1091    pszDisplayName := @DisplayName;
     1092    lpszTitle := PChar(Title);
     1093    ulFlags := Flag;
     1094  end;
     1095  lpItemID := SHBrowseForFolder(BrowseInfo);
     1096  if lpItemId <> nil then begin
     1097    SHGetPathFromIDList(lpItemID, TempPath);
     1098    Result := TempPath;
     1099    GlobalFreePtr(lpItemID);
     1100  end;
     1101end;
     1102
     1103
     1104procedure TfrmOptions.BitBtn2Click(Sender: TObject);
     1105var
     1106   sFolder: string;
     1107begin
     1108  sFolder := BrowseDialog('Choose a Scanned folder', BIF_RETURNONLYFSDIRS);
     1109  if sFolder <> '' then begin
     1110    if rightstr(sFolder,1) = '\' then begin
     1111       editScannedLocation.text := sFolder;
     1112    end else begin
     1113       editScannedLocation.text := sFolder + '\';
     1114    end;
     1115  end;
     1116end;
     1117
    9631118end.
    9641119

  • cprs/branches/tmg-cprs/CPRS-Chart/UploadImages.pas

    r729 r738  
    103103    Bitmap : TBitmap;
    104104    Picture : TPicture;
    105     FScanDir : String;
    106105    function MakeThumbNail(Info: TImageInfo): boolean;
    107106
    … …  
    122121  public
    123122    { Public declarations }
     123    FScanDir : String;
     124    PolInterval : integer;
    124125    procedure SetScanDir(NewDir : string);
    125126  published
    … …  
    165166  var
    166167    DefShortDesc : string; //kt
    167     PolInterval : integer;
    168168    AutoUploadNote : TAutoUploadNote;
    169169

  • cprs/branches/tmg-cprs/CPRS-Chart/dShared.pas

    r453 r738  
    6969implementation
    7070
    71 uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks;
     71uses
     72  StrUtils,  //kt
     73  fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks;
    7274
    7375{$R *.DFM}
    … …  
    595597      end;
    596598      obj := copy(tmp,1,j-1);
     599      //kt --------- begin Mod ------------  4/15/10
     600      if Pos('{',obj)>0 then begin
     601        if Pos('}',obj) = 0 then begin
     602          AddErr(DKLangConstW('dShared_Braces_xx_are_there_but_theres_no_param_inside_it')); //kt added 7/7/2007
     603          continue;
     604        end;
     605        obj := MidStr(obj,1,Pos('{',obj)-1) + MidStr(obj,Pos('}',obj)+1,99999);
     606      end;
     607      //kt --------- End Mod ------------
     608
    597609      delete(tmp,1,j);
    598610      if(obj = '') then

  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.dfm

    r735 r738  
    11object frmFrame: TfrmFrame
    2   Left = 116
    3   Top = 113
     2  Left = 69
     3  Top = 199
    44  Width = 684
    55  Height = 487

  • cprs/branches/tmg-cprs/CPRS-Chart/fImages.dfm

    r729 r738  
    483483      Caption = '&Options'
    484484      GroupIndex = 4
     485      Visible = False
    485486      object N3: TMenuItem
    486487        Caption = '-'

  • cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas

    r735 r738  
    9999    CurImageToLoad : integer;
    100100    InTimerFn : Boolean;
    101     DropBoxDir : string;
    102     UseDropBox : boolean;
    103101    procedure EnsureImageListLoaded();
    104102    procedure ClearImageList();
    … …  
    112110  public
    113111    CacheDir : AnsiString;
     112    UseDropBox : boolean;
     113    DropBoxDir : string;
    114114    NullImageName : AnsiString;
    115115    function Decode(input: AnsiString) : AnsiString;
    … …  
    214214  if not DirectoryExists(CacheDir) then ForceDirectories(CacheDir);
    215215
    216   UseDropBox := uTMGOptions.ReadBool('Use dropbox directory for transfers',false);
     216  //UseDropBox := uTMGOptions.ReadBool('Use dropbox directory for transfers',false);
     217  if uTMGOptions.ReadInteger('ImageTransferMethod',0) = 0 then begin
     218     UseDropBox := True;
     219  end else begin
     220     UseDropBox := False;
     221  end;   
    217222  DropBoxDir := uTMGOptions.ReadString('Dropbox directory','??');
    218223  if DropBoxDir='??' then begin  //just on first run.

  • cprs/branches/tmg-cprs/CPRS-Chart/fSplash.dfm

    r735 r738  
    5050    end
    5151    object lblVersion: TStaticText
    52       Left = 172
     52      Left = 160
    5353      Top = 431
    54       Width = 153
     54      Width = 137
    5555      Height = 13
    5656      Alignment = taCenter
    … …  
    41374137    end
    41384138    object StaticText1: TStaticText
    4139       Left = 326
     4139      Left = 310
    41404140      Top = 431
    4141       Width = 135
    4142       Height = 13
     4141      Width = 168
     4142      Height = 17
    41434143      Alignment = taCenter
    4144       AutoSize = False
    4145       Caption = 'TMG Customization 2.0'
     4144      Caption = 'TMG Customization 2.0; 4.14.2010'
    41464145      Font.Charset = ANSI_CHARSET
    41474146      Font.Color = clGray

  • cprs/branches/tmg-cprs/CPRS-Chart/fxBroker.dfm

    r612 r738  
    11object frmBroker: TfrmBroker
    2   Left = 1333
    3   Top = 298
     2  Left = 1163
     3  Top = 259
    44  Width = 441
    55  Height = 300
    … …  
    2525    Top = 0
    2626    Width = 433
    27     Height = 53
     27    Height = 73
    2828    Align = alTop
    2929    BevelOuter = bvNone
    … …  
    3636      Caption = 'Max Calls Retained'
    3737    end
     38    object lblStoredCallsNum: TLabel
     39      Left = 185
     40      Top = 11
     41      Width = 68
     42      Height = 13
     43      Caption = 'Stored Calls: 0'
     44    end
    3845    object lblCallID: TStaticText
    39       Left = 186
    40       Top = 26
     46      Left = 183
     47      Top = 29
    4148      Width = 90
    4249      Height = 17
    … …  
    113120    end
    114121    object btnRLT: TButton
    115       Left = 289
    116       Top = 18
     122      Left = 288
     123      Top = 10
    117124      Width = 31
    118       Height = 21
     125      Height = 18
     126      Hint = 'Check time lapse between standard RPC call'
    119127      Caption = 'RLT'
    120128      TabOrder = 6
    … …  
    124132      Left = 112
    125133      Top = 10
    126       Width = 66
     134      Width = 57
    127135      Height = 36
    128136      Caption = '&Clear'
    … …  
    157165        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    158166    end
     167    object cboJumpTo: TComboBox
     168      Left = 8
     169      Top = 48
     170      Width = 419
     171      Height = 21
     172      Hint = 'Jump to a prior stored call'
     173      ItemHeight = 13
     174      ParentShowHint = False
     175      ShowHint = True
     176      TabOrder = 8
     177      Text = '-- Select a call to jump to --'
     178      OnChange = cboJumpToChange
     179      OnDropDown = cboJumpToDropDown
     180    end
    159181  end
    160182  object memData: TRichEdit
    161183    Left = 0
    162     Top = 53
     184    Top = 73
    163185    Width = 433
    164     Height = 213
     186    Height = 193
    165187    Align = alClient
    166188    HideScrollBars = False
    … …  
    174196    Top = 216
    175197    LangData = {
    176       090066726D42726F6B6572010100000001000000070043617074696F6E010A00
     198      090066726D42726F6B6572010100000001000000070043617074696F6E010C00
    177199      00000600706E6C546F7000000B006C626C4D617843616C6C7301010000000200
    178200      0000070043617074696F6E0009006C626C43616C6C4944010100000003000000
    … …  
    180202      070043617074696F6E000700636D645072657601010000000500000007004361
    181203      7074696F6E000700636D644E657874010100000006000000070043617074696F
    182       6E00050075644D61780000060062746E524C5401010000000700000007004361
    183       7074696F6E0007006D656D446174610000080062746E436C6561720101000000
    184       08000000070043617074696F6E00}
     204      6E00050075644D61780000060062746E524C5401020000000700000007004361
     205      7074696F6E09000000040048696E740007006D656D446174610000080062746E
     206      436C656172010100000008000000070043617074696F6E0011006C626C53746F
     207      72656443616C6C734E756D01010000000A000000070043617074696F6E000900
     208      63626F4A756D70546F01020000000B000000040048696E740C00000004005465
     209      787400}
    185210  end
    186211end

  • cprs/branches/tmg-cprs/CPRS-Chart/fxBroker.pas

    r612 r738  
    2222    DKLanguageController1: TDKLanguageController;
    2323    btnClear: TBitBtn;
     24    lblStoredCallsNum: TLabel;
     25    cboJumpTo: TComboBox;
    2426    procedure cmdPrevClick(Sender: TObject);
    2527    procedure cmdNextClick(Sender: TObject);
    … …  
    3133    procedure btnRLTClick(Sender: TObject);
    3234    procedure btnClearClick(Sender: TObject);
     35    procedure cboJumpToDropDown(Sender: TObject);
     36    procedure cboJumpToChange(Sender: TObject);
    3337  private
    3438    { Private declarations }
    3539    FRetained: Integer;
    3640    FCurrent: Integer;
     41    procedure UpdateDisplay; //kt added
    3742  public
    3843    { Public declarations }
    … …  
    5661      FRetained := RetainedRPCCount - 1;
    5762      FCurrent := FRetained;
     63      UpdateDisplay; //kt
     64      { //kt moved to UpdateDisplay
    5865      LoadRPCData(memData.Lines, FCurrent);
    5966      memData.SelStart := 0;
    6067//    lblCallID.Caption := 'Last Call Minus: ' + IntToStr(FRetained - FCurrent);  <-- original line.  //kt 8/7/2007
    61       lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(FRetained - FCurrent); //kt added 8/7/2007
     68      lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(HigherOf(FRetained - FCurrent,0)); //kt added 8/7/2007
     69      lblStoredCallsNum.Caption := DKLangConstW('fxBroker_Stored_Calls') + IntToStr(RetainedRPCCount); //kt added 4/15/10
     70      }
    6271      ShowModal;
    6372    end;
    … …  
    7079begin
    7180  FCurrent := HigherOf(FCurrent - 1, 0);
     81  UpdateDisplay; //kt
     82  { //kt moved to UpdateDisplay
    7283  LoadRPCData(memData.Lines, FCurrent);
    7384  memData.SelStart := 0;
    7485//lblCallID.Caption := 'Last Call Minus: ' + IntToStr(FRetained - FCurrent);  <-- original line.  //kt 8/7/2007
    75   lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(FRetained - FCurrent); //kt added 8/7/2007
     86  lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(HigherOf(FRetained - FCurrent,0)); //kt added 8/7/2007
     87  lblStoredCallsNum.Caption := DKLangConstW('fxBroker_Stored_Calls') + IntToStr(RetainedRPCCount); //kt added 4/15/10
     88  }
    7689end;
    7790
    7891procedure TfrmBroker.cmdNextClick(Sender: TObject);
    7992begin
     93  FRetained := RetainedRPCCount - 1;  //kt added line 4/15/10
    8094  FCurrent := LowerOf(FCurrent + 1, FRetained);
     95  UpdateDisplay; //kt
     96  { //kt moved to UpdateDisplay
    8197  LoadRPCData(memData.Lines, FCurrent);
    8298  memData.SelStart := 0;
    8399//lblCallID.Caption := 'Last Call Minus: ' + IntToStr(FRetained - FCurrent);  <-- original line.  //kt 8/7/2007
    84   lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(FRetained - FCurrent); //kt added 8/7/2007
    85 end;
     100  lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(HigherOf(FRetained - FCurrent,0)); //kt added 8/7/2007
     101  lblStoredCallsNum.Caption := DKLangConstW('fxBroker_Stored_Calls') + IntToStr(RetainedRPCCount); //kt added 4/15/10
     102  }
     103end;
     104
     105procedure TfrmBroker.UpdateDisplay; //kt added
     106begin
     107  FRetained := RetainedRPCCount - 1;  //kt added line 4/15/10
     108  LoadRPCData(memData.Lines, FCurrent);
     109  memData.SelStart := 0;
     110//lblCallID.Caption := 'Last Call Minus: ' + IntToStr(FRetained - FCurrent);  <-- original line.  //kt 8/7/2007
     111  lblCallID.Caption := DKLangConstW('fxBroker_Last_Call_Minusx') + IntToStr(HigherOf(FRetained - FCurrent,0)); //kt added 8/7/2007
     112  lblStoredCallsNum.Caption := DKLangConstW('fxBroker_Stored_Calls') + IntToStr(RetainedRPCCount); //kt added 4/15/10
     113end;
     114
     115procedure TfrmBroker.cboJumpToDropDown(Sender: TObject);
     116//kt added entire function
     117var i : integer;
     118    s : string;
     119    Info : TStringList;   //Not owned here...
     120begin
     121  cboJumpTo.Items.Clear;
     122  for i := 0 to RetainedRPCCount - 1 do begin
     123    Info := AccessRPCData(i);
     124    if Info.Count < 2 then continue;
     125    s := Info.Strings[1];
     126    s := piece(s,'Called at: ',2);
     127    s := s + ':  ' + Info.Strings[0];
     128    cboJumpTo.Items.Insert(0,s);
     129  end;
     130end;
     131
     132procedure TfrmBroker.cboJumpToChange(Sender: TObject);
     133//kt added function
     134begin
     135  if cboJumpTo.Items.count > 0 then begin
     136    FCurrent := (cboJumpTo.Items.count-1) - cboJumpTo.ItemIndex;
     137    UpdateDisplay; //kt
     138  end;
     139end;
     140
    86141
    87142procedure TfrmBroker.FormClose(Sender: TObject; var Action: TCloseAction);
    … …  
    138193
    139194procedure TfrmBroker.btnClearClick(Sender: TObject);
    140   //kt added endtire function
     195  //kt added entire function
    141196begin
    142197  ORNet.RPCCallsClear;
     198  memData.Lines.Clear; //kt 4/15/10
     199  cboJumpTo.Text := '-- Select a call to jump to --';
    143200  FCurrent := 0;
    144201  FRetained := RetainedRPCCount - 1;
    … …  
    146203end;
    147204
     205
    148206end.

  • cprs/branches/tmg-cprs/CPRS-Chart/rCover.pas

    r453 r738  
    404404    tmplst := TStringList.Create;
    405405    try
    406 //    Done := Results.Values['~Done'] = '1';  <-- original line.  //kt 8/17/2007
    407       Done := Results.Values[DKLangConstW('rCover_xDone')] = '1'; //kt added 8/17/2007
     406      Done := Results.Values['~Done'] = '1';  //kt restored original line 4/15/10
     407//      Done := Results.Values[DKLangConstW('rCover_xDone')] = '1'; //kt added 8/17/2007
    408408      if SubListPresent('~PROB') then AssignList(DestProb, 'PROB');
    409409      if SubListPresent('~CWAD') then AssignList(DestCWAD, 'CWAD');
Note: See TracChangeset for help on using the changeset viewer.