Ignore:
Timestamp:
Apr 9, 2010, 9:13:04 AM (15 years ago)
Author:
Kevin Toppenberg
Message:

Template formulas will calculate even if responses have characters, bug fixes

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

Legend:

Unmodified
Added
Removed

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

    r729 r735  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 3/29/2010 5:43:06 PM from Type Library described below.
     15// File generated on 3/31/2010 9:12:36 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r729 r735  
    11[Closed Files]
    2 File_0=SourceModule,'P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas',0,1,345,1,357,0,0
    3 File_1=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,4192,1,4214,0,0
    4 File_2=SourceModule,'P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas',0,1,826,1,840,0,0
    5 File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas',0,1,62,19,73,0,0
    6 File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',0,1,1290,20,1298,0,0
     2File_0=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas',0,1,1464,1,1479,0,0
     3File_1=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\Trpcb.pas',0,1,40,1,52,0,0
    74
    85[Modules]
    96Module0=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
    10 Module1=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    11 Module2=P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas
    12 Module3=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    13 Module4=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    14 Module5=c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas
     7Module1=P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas
     8Module2=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     9Module3=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
     10Module4=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
     11Module5=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas
    1512Module6=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
    1613Module7=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
    17 Module8=C:\PROGRA~1\VISTA\BDK32\Source\Trpcb.pas
    18 Module9=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
    19 Count=10
     14Module8=P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas
     15Module9=c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas
     16Module10=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
     17Module11=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     18Module12=c:\program files\borland\delphi7\source\vcl\Forms.pas
     19Module13=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     20Module14=c:\program files\borland\delphi7\source\vcl\Controls.pas
     21Module15=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
     22Module16=P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas
     23Module17=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
     24Module18=P:\vista\tmg-cprs\CPRS-Chart\dShared.pas
     25Module19=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     26Module20=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
     27Module21=P:\vista\tmg-cprs\CPRSChart.ini
     28Module22=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     29Module23=P:\vista\tmg-cprs\CPRS-Chart\rCover.pas
     30Module24=P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas
     31Module25=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
     32Module26=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
     33Module27=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     34Module28=P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas
     35Module29=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     36Module30=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
     37Count=31
    2038EditWindowCount=1
    2139TypeLibWindowCount=1
    … …  
    2644FormOnTop=0
    2745
     46[P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas]
     47ModuleType=SourceModule
     48FormState=0
     49FormOnTop=0
     50
     51[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     52ModuleType=SourceModule
     53FormState=0
     54FormOnTop=0
     55
    2856[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas]
    2957ModuleType=SourceModule
    … …  
    3159FormOnTop=0
    3260
     61[P:\vista\tmg-cprs\CPRS-Chart\fImages.pas]
     62ModuleType=SourceModule
     63FormState=0
     64FormOnTop=0
     65
     66[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas]
     67ModuleType=SourceModule
     68FormState=0
     69FormOnTop=0
     70
     71[P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas]
     72ModuleType=SourceModule
     73FormState=0
     74FormOnTop=0
     75
     76[P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas]
     77ModuleType=SourceModule
     78FormState=0
     79FormOnTop=0
     80
    3381[P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas]
    3482ModuleType=SourceModule
    … …  
    3684FormOnTop=0
    3785
     86[c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas]
     87ModuleType=SourceModule
     88FormState=0
     89FormOnTop=0
     90
     91[P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas]
     92ModuleType=SourceModule
     93FormState=0
     94FormOnTop=0
     95
     96[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
     97ModuleType=SourceModule
     98FormState=0
     99FormOnTop=0
     100
     101[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     102ModuleType=SourceModule
     103FormState=0
     104FormOnTop=0
     105
     106[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
     107ModuleType=SourceModule
     108FormState=0
     109FormOnTop=0
     110
     111[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     112ModuleType=SourceModule
     113FormState=0
     114FormOnTop=0
     115
     116[P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas]
     117ModuleType=SourceModule
     118FormState=0
     119FormOnTop=0
     120
     121[P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas]
     122ModuleType=SourceModule
     123FormState=0
     124FormOnTop=0
     125
     126[P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
     127ModuleType=SourceModule
     128FormState=0
     129FormOnTop=0
     130
     131[P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
     132ModuleType=SourceModule
     133FormState=0
     134FormOnTop=0
     135
    38136[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
    39137ModuleType=SourceModule
    … …  
    41139FormOnTop=0
    42140
     141[P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
     142ModuleType=SourceModule
     143FormState=0
     144FormOnTop=0
     145
     146[P:\vista\tmg-cprs\CPRSChart.ini]
     147ModuleType=SourceModule
     148FormState=0
     149FormOnTop=0
     150
     151[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     152ModuleType=SourceModule
     153FormState=0
     154FormOnTop=0
     155
     156[P:\vista\tmg-cprs\CPRS-Chart\rCover.pas]
     157ModuleType=SourceModule
     158FormState=0
     159FormOnTop=0
     160
     161[P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas]
     162ModuleType=SourceModule
     163FormState=0
     164FormOnTop=0
     165
    43166[c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
    44167ModuleType=SourceModule
    … …  
    46169FormOnTop=0
    47170
    48 [c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas]
    49 ModuleType=SourceModule
    50 FormState=0
    51 FormOnTop=0
    52 
    53 [P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas]
    54 ModuleType=SourceModule
    55 FormState=0
    56 FormOnTop=0
    57 
    58 [P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas]
    59 ModuleType=SourceModule
    60 FormState=0
    61 FormOnTop=0
    62 
    63 [C:\PROGRA~1\VISTA\BDK32\Source\Trpcb.pas]
    64 ModuleType=SourceModule
    65 FormState=0
    66 FormOnTop=0
    67 
    68 [C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas]
     171[P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
     172ModuleType=SourceModule
     173FormState=0
     174FormOnTop=0
     175
     176[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     177ModuleType=SourceModule
     178FormState=0
     179FormOnTop=0
     180
     181[P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas]
     182ModuleType=SourceModule
     183FormState=0
     184FormOnTop=0
     185
     186[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     187ModuleType=SourceModule
     188FormState=0
     189FormOnTop=0
     190
     191[P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas]
    69192ModuleType=SourceModule
    70193FormState=0
    … …  
    83206FormOnTop=0
    84207
     208[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
     209FormState=0
     210FormOnTop=0
     211
     212[P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
     213FormState=0
     214FormOnTop=0
     215
    85216[EditWindow0]
    86 ViewCount=10
    87 CurrentView=3
     217ViewCount=31
     218CurrentView=28
    88219View0=0
    89220View1=1
    … …  
    96227View8=8
    97228View9=9
     229View10=10
     230View11=11
     231View12=12
     232View13=13
     233View14=14
     234View15=15
     235View16=16
     236View17=17
     237View18=18
     238View19=19
     239View20=20
     240View21=21
     241View22=22
     242View23=23
     243View24=24
     244View25=25
     245View26=26
     246View27=27
     247View28=28
     248View29=29
     249View30=30
    98250CodeExplorer=CodeExplorer@EditWindow0
    99251MessageView=MessageView@EditWindow0
    … …  
    111263LeftPanelSize=140
    112264LeftPanelClients=CodeExplorer@EditWindow0,DockSite1
    113 LeftPanelData=00000400010000000C000000436F64654578706C6F7265728C0000000000000002E10100000000000001000000008C00000009000000446F636B536974653101000000000000000000000000FFFFFFFF
     265LeftPanelData=00000400010000000C000000436F64654578706C6F7265728C0000000000000002700100000000000001000000008C00000009000000446F636B536974653101000000000000000000000000FFFFFFFF
    114266RightPanelSize=0
    115 BottomPanelSize=105
     267BottomPanelSize=218
    116268BottomPanelClients=MessageView@EditWindow0
    117269BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
    … …  
    120272Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    121273CursorX=1
    122 CursorY=281
    123 TopLine=269
     274CursorY=375
     275TopLine=367
    124276LeftCol=1
    125277
    126278[View1]
     279Module=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
     280CursorX=1
     281CursorY=815
     282TopLine=800
     283LeftCol=1
     284
     285[View2]
     286Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     287CursorX=1
     288CursorY=980
     289TopLine=967
     290LeftCol=1
     291
     292[View3]
     293Module=P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas
     294CursorX=22
     295CursorY=18
     296TopLine=21
     297LeftCol=1
     298
     299[View4]
     300Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     301CursorX=43
     302CursorY=327
     303TopLine=91
     304LeftCol=1
     305
     306[View5]
     307Module=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
     308CursorX=1
     309CursorY=216
     310TopLine=208
     311LeftCol=1
     312
     313[View6]
     314Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     315CursorX=1
     316CursorY=4424
     317TopLine=4415
     318LeftCol=1
     319
     320[View7]
     321Module=P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas
     322CursorX=1
     323CursorY=291
     324TopLine=283
     325LeftCol=1
     326
     327[View8]
     328Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
     329CursorX=1
     330CursorY=1
     331TopLine=1
     332LeftCol=1
     333
     334[View9]
     335Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
     336CursorX=1
     337CursorY=4672
     338TopLine=4657
     339LeftCol=1
     340
     341[View10]
     342Module=P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas
     343CursorX=1
     344CursorY=63
     345TopLine=51
     346LeftCol=1
     347
     348[View11]
     349Module=P:\vista\tmg-cprs\CPRS-Chart\rCover.pas
     350CursorX=1
     351CursorY=439
     352TopLine=427
     353LeftCol=1
     354
     355[View12]
     356Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     357CursorX=25
     358CursorY=904
     359TopLine=936
     360LeftCol=1
     361
     362[View13]
     363Module=P:\vista\tmg-cprs\CPRSChart.ini
     364CursorX=1
     365CursorY=47
     366TopLine=40
     367LeftCol=1
     368
     369[View14]
    127370Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
    128 CursorX=1
    129 CursorY=2167
    130 TopLine=2157
    131 LeftCol=1
    132 
    133 [View2]
     371CursorX=89
     372CursorY=2926
     373TopLine=2918
     374LeftCol=1
     375
     376[View15]
     377Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas
     378CursorX=63
     379CursorY=56
     380TopLine=134
     381LeftCol=1
     382
     383[View16]
     384Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
     385CursorX=1
     386CursorY=840
     387TopLine=823
     388LeftCol=1
     389
     390[View17]
     391Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     392CursorX=4
     393CursorY=12508
     394TopLine=12495
     395LeftCol=1
     396
     397[View18]
     398Module=P:\vista\tmg-cprs\CPRS-Chart\dShared.pas
     399CursorX=3
     400CursorY=63
     401TopLine=28
     402LeftCol=1
     403
     404[View19]
     405Module=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
     406CursorX=1
     407CursorY=790
     408TopLine=782
     409LeftCol=1
     410
     411[View20]
     412Module=P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas
     413CursorX=15
     414CursorY=1171
     415TopLine=773
     416LeftCol=1
     417
     418[View21]
     419Module=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
     420CursorX=1
     421CursorY=310
     422TopLine=283
     423LeftCol=1
     424
     425[View22]
     426Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
     427CursorX=1
     428CursorY=6245
     429TopLine=6231
     430LeftCol=1
     431
     432[View23]
     433Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     434CursorX=1
     435CursorY=4030
     436TopLine=4022
     437LeftCol=1
     438
     439[View24]
     440Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     441CursorX=1
     442CursorY=6878
     443TopLine=6870
     444LeftCol=1
     445
     446[View25]
     447Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     448CursorX=1
     449CursorY=9156
     450TopLine=9141
     451LeftCol=1
     452
     453[View26]
    134454Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
    135 CursorX=25
    136 CursorY=103
    137 TopLine=90
    138 LeftCol=1
    139 
    140 [View3]
     455CursorX=1
     456CursorY=107
     457TopLine=412
     458LeftCol=1
     459
     460[View27]
     461Module=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
     462CursorX=1
     463CursorY=361
     464TopLine=353
     465LeftCol=1
     466
     467[View28]
    141468Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
    142 CursorX=26
    143 CursorY=1098
    144 TopLine=1082
    145 LeftCol=1
    146 
    147 [View4]
     469CursorX=1
     470CursorY=1133
     471TopLine=1119
     472LeftCol=1
     473
     474[View29]
    148475Module=c:\program files\borland\delphi7\source\rtl\common\StrUtils.pas
    149476CursorX=1
    150 CursorY=264
    151 TopLine=250
    152 LeftCol=1
    153 
    154 [View5]
    155 Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    156 CursorX=1
    157 CursorY=11719
    158 TopLine=11701
    159 LeftCol=1
    160 
    161 [View6]
    162 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    163 CursorX=1
    164 CursorY=10667
    165 TopLine=10652
    166 LeftCol=1
    167 
    168 [View7]
    169 Module=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
    170 CursorX=1
    171 CursorY=1479
    172 TopLine=1464
    173 LeftCol=1
    174 
    175 [View8]
    176 Module=C:\PROGRA~1\VISTA\BDK32\Source\Trpcb.pas
    177 CursorX=1
    178 CursorY=52
    179 TopLine=40
    180 LeftCol=1
    181 
    182 [View9]
     477CursorY=413
     478TopLine=399
     479LeftCol=1
     480
     481[View30]
    183482Module=P:\vista\tmg-cprs\CPRS-Chart\uEvaluate.pas
    184 CursorX=5
    185 CursorY=303
    186 TopLine=292
     483CursorX=40
     484CursorY=64
     485TopLine=257
    187486LeftCol=1
    188487
    … …  
    202501
    203502[Watches]
    204 Count=16
    205 Watch0='Txt',256,0,18,1,0,'Watches'
    206 Watch1='i',256,0,18,1,0,'Watches'
    207 Watch2='NumStr',256,0,18,1,0,'Watches'
    208 Watch3='p1',256,0,18,1,0,'Watches'
    209 Watch4='SL.Text',256,0,18,1,0,'Watches'
    210 Watch5='Temp',256,0,18,1,0,'Watches'
    211 Watch6='Txt[i]',256,0,18,1,0,'Watches'
    212 Watch7='CloseMatchesNeeded',256,0,18,1,0,'Watches'
    213 Watch8='FnObjStr',256,0,18,1,0,'Watches'
    214 Watch9='str1',256,0,18,1,0,'Watches'
    215 Watch10='st1',256,0,18,1,0,'Watches'
    216 Watch11='en1',256,0,18,1,0,'Watches'
    217 Watch12='str1',256,0,18,1,0,'Watches'
    218 Watch13='val1',256,0,18,1,0,'Watches'
    219 Watch14='val2',256,0,18,1,0,'Watches'
    220 Watch15='pos2',256,0,18,1,0,'Watches'
     503Count=21
     504Watch0='NumStr',256,0,18,1,0,'Watches'
     505Watch1='p1',256,0,18,1,0,'Watches'
     506Watch2='SL.Text',256,0,18,1,0,'Watches'
     507Watch3='Temp',256,0,18,1,0,'Watches'
     508Watch4='Txt[i]',256,0,18,1,0,'Watches'
     509Watch5='CloseMatchesNeeded',256,0,18,1,0,'Watches'
     510Watch6='FnObjStr',256,0,18,1,0,'Watches'
     511Watch7='val1',256,0,18,1,0,'Watches'
     512Watch8='val2',256,0,18,1,0,'Watches'
     513Watch9='pos2',256,0,18,1,0,'Watches'
     514Watch10='Key',256,0,18,1,0,'Watches'
     515Watch11='RPCBrokerV.Results.text',256,0,18,1,0,'Watches'
     516Watch12='SL[SL.Count-1]',256,0,18,1,0,'Watches'
     517Watch13='NameToObjID.Strings[i]',256,0,18,1,0,'Watches'
     518Watch14='txt',256,0,18,1,0,'Watches'
     519Watch15='SL[i]',256,0,18,1,0,'Watches'
     520Watch16='FldName',256,0,18,1,0,'Watches'
     521Watch17='pos(ObjMarker, SL.Text)',256,0,18,1,0,'Watches'
     522Watch18='RPCBrokerV.Results.text',256,0,18,1,0,'Watches'
     523Watch19='Strings[I]',256,0,18,1,0,'Watches'
     524Watch20='test[i]',256,0,18,1,0,'Watches'
    221525
    222526[WatchWindow]
    … …  
    228532Left=0
    229533Top=0
    230 Width=769
     534Width=704
    231535Height=407
    232536MaxLeft=-1
    233537MaxTop=-1
    234 ClientWidth=769
     538ClientWidth=704
    235539ClientHeight=407
    236540TBDockHeight=264
    … …  
    239543
    240544[Breakpoints]
    241 Count=34
     545Count=32
    242546Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1710,'',0,1,'',1,0,0,'',1,'','',''
    243547Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1787,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    258562Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',584,'',0,1,'',1,0,0,'',1,'','',''
    259563Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',599,'',0,1,'',1,0,0,'',1,'','',''
    260 Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1298,'',0,1,'',1,0,0,'',1,'','',''
    261 Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fReview.pas',1350,'',0,1,'',1,0,0,'',1,'','',''
    262 Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas',63,'',0,1,'',1,0,0,'',1,'','',''
    263 Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\rCover.pas',439,'',0,1,'',1,0,0,'',1,'','',''
    264 Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas',204,'',0,1,'',1,0,0,'',1,'','',''
    265 Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',2922,'',0,1,'',1,0,0,'',1,'','',''
    266 Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4550,'',0,1,'',1,0,0,'',1,'','',''
    267 Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',163,'',0,1,'',1,0,0,'',1,'','',''
    268 Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
    269 Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
    270 Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
    271 Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',281,'',0,1,'',1,0,0,'',1,'','',''
    272 Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',267,'',0,1,'',1,0,0,'',1,'','',''
    273 Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1094,'',0,1,'',1,0,0,'',1,'','',''
    274 Breakpoint32='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1138,'',0,1,'',1,0,0,'',1,'','',''
    275 Breakpoint33='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
     564Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\fReview.pas',1350,'',0,1,'',1,0,0,'',1,'','',''
     565Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas',204,'',0,1,'',1,0,0,'',1,'','',''
     566Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',2924,'',0,1,'',1,0,0,'',1,'','',''
     567Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4550,'',0,1,'',1,0,0,'',1,'','',''
     568Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',163,'',0,1,'',1,0,0,'',1,'','',''
     569Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
     570Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
     571Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
     572Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1128,'',0,1,'',1,0,0,'',1,'','',''
     573Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',216,'',0,1,'',1,0,0,'',1,'','',''
     574Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',504,'',0,1,'',1,0,0,'',1,'','',''
     575Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1890,'',0,1,'',1,0,0,'',1,'','',''
     576Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
     577Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1126,'',0,1,'',1,0,0,'',1,'','',''
    276578
    277579[AddressBreakpoints]
    … …  
    282584Visible=1
    283585State=0
    284 Left=8
    285 Top=7
     586Left=15
     587Top=17
    286588Width=988
    287589Height=112
    … …  
    360662Top=0
    361663Width=132
    362 Height=440
     664Height=327
    363665MaxLeft=-1
    364666MaxTop=-1
    365667ClientWidth=132
    366 ClientHeight=440
     668ClientHeight=327
    367669TBDockHeight=492
    368670LRDockWidth=190
    369671Dockable=1
    370 SplitPos=82
     672SplitPos=65
    371673ArrangeBy=Name
    372674SelectedItem=
    373 ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders,Font,Options
     675ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders
    374676HiddenCategories=Legacy
    375677
    … …  
    439741Top=0
    440742Width=132
    441 Height=440
     743Height=327
    442744MaxLeft=-1
    443745MaxTop=-1
    444746ClientWidth=132
    445 ClientHeight=440
     747ClientHeight=327
    446748TBDockHeight=175
    447749LRDockWidth=108
    … …  
    454756Left=0
    455757Top=0
    456 Width=769
     758Width=704
    457759Height=407
    458760MaxLeft=-1
    459761MaxTop=-1
    460 ClientWidth=769
     762ClientWidth=704
    461763ClientHeight=407
    462764TBDockHeight=291
    … …  
    579881Top=0
    580882Width=985
    581 Height=105
     883Height=218
    582884MaxLeft=-1
    583885MaxTop=-1
    584886ClientWidth=985
    585 ClientHeight=105
    586 TBDockHeight=105
     887ClientHeight=218
     888TBDockHeight=218
    587889LRDockWidth=443
    588890Dockable=1
    … …  
    596898Visible=1
    597899State=0
    598 Left=-803
    599 Top=210
    600 Width=785
     900Left=-752
     901Top=258
     902Width=720
    601903Height=462
    602904MaxLeft=-1
    603905MaxTop=-1
    604 ClientWidth=777
     906ClientWidth=712
    605907ClientHeight=436
    606908TBDockHeight=233
    … …  
    619921Top=12
    620922Width=140
    621 Height=469
     923Height=356
    622924MaxLeft=-1
    623925MaxTop=-1
    624926ClientWidth=140
    625 ClientHeight=469
    626 TBDockHeight=469
     927ClientHeight=356
     928TBDockHeight=356
    627929LRDockWidth=140
    628930Dockable=1

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

    r729 r735  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 3/29/2010 5:43:06 PM from Type Library described below.
     15// File generated on 3/31/2010 9:12:36 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r729 r735  
    11object frmOptions: TfrmOptions
    2   Left = 321
    3   Top = 155
     2  Left = 283
     3  Top = 179
    44  Width = 435
    55  Height = 397
    … …  
    8787      Height = 323
    8888      HelpContext = 9999
    89       ActivePage = tsAppearance
     89      ActivePage = tsImages
    9090      Align = alClient
    9191      TabOrder = 0
    … …  
    17511751        end
    17521752      end
     1753      object tsImages: TTabSheet
     1754        Caption = 'Images'
     1755        ImageIndex = 9
     1756        object Label3: TLabel
     1757          Left = 16
     1758          Top = 56
     1759          Width = 113
     1760          Height = 13
     1761          Caption = 'Image Retrieval Method'
     1762        end
     1763        object Label4: TLabel
     1764          Left = 16
     1765          Top = 104
     1766          Width = 72
     1767          Height = 13
     1768          Caption = 'Dropbox Folder'
     1769        end
     1770        object Label5: TLabel
     1771          Left = 15
     1772          Top = 231
     1773          Width = 196
     1774          Height = 13
     1775          Caption = 'Polling Interval of Scanned Images Folder'
     1776        end
     1777        object Label6: TLabel
     1778          Left = 15
     1779          Top = 183
     1780          Width = 112
     1781          Height = 13
     1782          Caption = 'Scanned Images Folder'
     1783        end
     1784        object Label7: TLabel
     1785          Left = 96
     1786          Top = 248
     1787          Width = 40
     1788          Height = 13
     1789          Caption = 'seconds'
     1790        end
     1791        object cbEnableImages: TCheckBox
     1792          Left = 16
     1793          Top = 24
     1794          Width = 137
     1795          Height = 17
     1796          Caption = 'Enable Images Tab'
     1797          TabOrder = 0
     1798        end
     1799        object cboTransMethod: TComboBox
     1800          Left = 16
     1801          Top = 72
     1802          Width = 145
     1803          Height = 21
     1804          ItemHeight = 13
     1805          ItemIndex = 0
     1806          TabOrder = 1
     1807          Text = 'Dropbox Transfer'
     1808          Items.Strings = (
     1809            'Dropbox Transfer'
     1810            'Direct Access'
     1811            'Embedded in RPCs')
     1812        end
     1813        object Edit1: TEdit
     1814          Left = 16
     1815          Top = 120
     1816          Width = 201
     1817          Height = 22
     1818          TabOrder = 2
     1819        end
     1820        object BitBtn1: TBitBtn
     1821          Left = 224
     1822          Top = 120
     1823          Width = 41
     1824          Height = 20
     1825          Caption = '...'
     1826          TabOrder = 3
     1827          Glyph.Data = {
     1828            F6000000424DF600000000000000760000002800000010000000100000000100
     1829            0400000000008000000000000000000000001000000000000000000000000000
     1830            8000008000000080800080000000800080008080000080808000C0C0C0000000
     1831            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F00000000000
     1832            FFFF033333333330FFFF0033333333330FFF0033333333330FFF0B0333333333
     1833            30FF0B033333333330FF0BB033333333330F0BB000000000000F0BBBBBBBBBBB
     1834            0FFF0BBBBBBBBBBB0FFF0BB0000000000FFF0000FFFFFFFFF000FFFFFFFFFFFF
     1835            FF00FFFFF00FFFFF00F0FFFFFF0000000FFFFFFFFFFFFFFFFFFF}
     1836        end
     1837        object cbEnableScanning: TCheckBox
     1838          Left = 16
     1839          Top = 160
     1840          Width = 225
     1841          Height = 17
     1842          Caption = 'Enable auto-upload of scanned images'
     1843          TabOrder = 4
     1844        end
     1845        object Edit2: TEdit
     1846          Left = 15
     1847          Top = 199
     1848          Width = 201
     1849          Height = 22
     1850          TabOrder = 5
     1851        end
     1852        object BitBtn2: TBitBtn
     1853          Left = 224
     1854          Top = 200
     1855          Width = 41
     1856          Height = 20
     1857          Caption = '...'
     1858          TabOrder = 6
     1859          Glyph.Data = {
     1860            F6000000424DF600000000000000760000002800000010000000100000000100
     1861            0400000000008000000000000000000000001000000000000000000000000000
     1862            8000008000000080800080000000800080008080000080808000C0C0C0000000
     1863            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F00000000000
     1864            FFFF033333333330FFFF0033333333330FFF0033333333330FFF0B0333333333
     1865            30FF0B033333333330FF0BB033333333330F0BB000000000000F0BBBBBBBBBBB
     1866            0FFF0BBBBBBBBBBB0FFF0BB0000000000FFF0000FFFFFFFFF000FFFFFFFFFFFF
     1867            FF00FFFFF00FFFFF00F0FFFFFF0000000FFFFFFFFFFFFFFFFFFF}
     1868        end
     1869        object edtPolFreq: TEdit
     1870          Left = 16
     1871          Top = 248
     1872          Width = 73
     1873          Height = 21
     1874          TabOrder = 7
     1875          Text = '60'
     1876        end
     1877      end
    17531878      object tsAppearance: TTabSheet
    17541879        Caption = 'Appearance'
    … …  
    18301955  end
    18311956  object DKLanguageController1: TDKLanguageController
    1832     Left = 328
    1833     Top = 192
     1957    Left = 232
     1958    Top = 32
    18341959    LangData = {
    18351960      0A0066726D4F7074696F6E73010200000001000000070043617074696F6E0200
    1836       0000080048656C7046696C65016B0000000900706E6C426F74746F6D00000500
     1961      0000080048656C7046696C65017A0000000900706E6C426F74746F6D00000500
    18371962      62746E4F4B010100000003000000070043617074696F6E00090062746E43616E
    18381963      63656C010100000004000000070043617074696F6E00080062746E4170706C79
    … …  
    19362061      617074696F6E000E0062746E44697361626C65536B696E010100000055000000
    19372062      070043617074696F6E000C0062746E4170706C79536B696E0101000000560000
    1938       00070043617074696F6E00}
     2063      00070043617074696F6E0008007473496D616765730101000000570000000700
     2064      43617074696F6E000E006362456E61626C65496D616765730101000000580000
     2065      00070043617074696F6E000E0063626F5472616E734D6574686F640102000000
     2066      5A00000005004974656D73590000000400546578740006004C6162656C330101
     2067      0000005B000000070043617074696F6E0005004564697431000006004C616265
     2068      6C3401010000005C000000070043617074696F6E00070042697442746E310000
     2069      0A00646C675069636B446972000010006362456E61626C655363616E6E696E67
     2070      01010000005D000000070043617074696F6E0006004C6162656C350101000000
     2071      5E000000070043617074696F6E00050045646974320000070042697442746E32
     2072      000006004C6162656C3601010000005F000000070043617074696F6E000A0065
     2073      6474506F6C46726571000006004C6162656C3701010000006000000007004361
     2074      7074696F6E00}
     2075  end
     2076  object dlgPickDir: TOpenDialog
     2077    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
     2078    Left = 201
     2079    Top = 37
    19392080  end
    19402081end

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

    r729 r735  
    135135    btnDisableSkin: TButton;
    136136    btnApplySkin: TButton;
     137    tsImages: TTabSheet;
     138    cbEnableImages: TCheckBox;
     139    cboTransMethod: TComboBox;
     140    Label3: TLabel;
     141    Edit1: TEdit;
     142    Label4: TLabel;
     143    BitBtn1: TBitBtn;
     144    dlgPickDir: TOpenDialog;
     145    cbEnableScanning: TCheckBox;
     146    Label5: TLabel;
     147    Edit2: TEdit;
     148    BitBtn2: TBitBtn;
     149    Label6: TLabel;
     150    edtPolFreq: TEdit;
     151    Label7: TLabel;
    137152    procedure FormCreate(Sender: TObject);
    138153    procedure FormDestroy(Sender: TObject);

  • cprs/branches/tmg-cprs/CPRS-Chart/Templates/fTemplateDialog.pas

    r729 r735  
    219219    frmTemplateDialog.HTMLAnswerOpenTag := '<I>'; //kt 12/28/09
    220220    //SL.Text := RemoveHTMLTags(SL.Text);  //elh
     221    HideFormulas(SL,frmTemplateDialog.Formulas); //kt added 3/26/10
    221222    AssignFieldIDs(SL,frmTemplateDialog.NameToObjID);   //kt  added NameToObjID param 3/26/10
    222     HideFormulas(SL,frmTemplateDialog.Formulas); //kt added 3/26/10
    223223    HideTxtObjects(SL,frmTemplateDialog.TxtObjects); //kt added 3/28/10
    224224    frmTemplateDialog.SL := SL;
    … …  
    230230    frmTemplateDialog.FirstIndent := 99999;
    231231    repeat
     232    //messagedlg(Txt,mtInformation,mbOKCancel,0);
    232233      i := pos(ObjMarker, Txt);
    233234      if(i > 1) then begin
    … …  
    280281          //kt -- end mod --
    281282          GetText(SL, TRUE);     {TRUE = Include embedded fields}
    282           {
    283           if uTemplates.bUsingHTMLMode then begin
    284              SL.Text := FormatHTMLTags(SL.Text);
    285           end else begin
    286              SL.Text := RemoveHTMLTags(SL.Text);
    287           end;
    288           }
    289283        end else begin
    290284          if (not PreviewMode) and (not frmTemplateDialog.Silent) and (not uInit.TimedOut) then begin

  • cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas

    r729 r735  
    198198function StripEmbedded(iItems: string): string;
    199199function CloseCharPos(OpenChar, CloseChar : char; var Txt : string; StartingPos : integer=1) : integer; //kt added
     200function FormatFormula(test: string): string;  //elh  04/09/10
    200201
    201202type
    … …  
    549550    //p2 := PosEx(FN_END_TAG,Txt,p1);
    550551    p2 := CloseCharPos(FN_BEGIN_TAG, FN_END_TAG, Txt, p1);
    551     SubStrB := MidStr(Txt,p2+1,999);
     552    SubStrB := MidStr(Txt,p2+1,99999);    //Changed from 999 to 99999. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/08/10
    552553    FnStr := MidStr(Txt,p1, (p2-p1));
    553554    FnStr := AnsiReplaceText(FnStr,#9,'');
    … …  
    647648    FldName := NameToObjID.Strings[i];
    648649    for j := 0 to i do begin
    649       if NameToObjID.Strings[i] = FldName then inc(CountofSimilar);
     650      if NameToObjID.Strings[j] = FldName then inc(CountofSimilar);     //Changed from i to j  elh  04/08/10
    650651    end;
    651652    CountOfSimStr := IntToStr(CountofSimilar);
    … …  
    11231124          FnObjStr := FN_OBJ_TAG + FnObjStr + ']';
    11241125        end;
     1126        FnObjStr := FormatFormula(FnObjStr);  //Added to remove all characters from the formula  elh  4/9/10
    11251127        if (Pos(FN_OBJ_TAG,FnObjStr)>0) then begin
    11261128          EvalTIUObjects(FnObjStr);
    … …  
    30213023end;
    30223024
     3025function FormatFormula(test: string): string;
     3026var
     3027   test2: string;
     3028   i: integer;
     3029begin
     3030   for i := 1 to length(test) do begin
     3031      if test[i] in ['0'..'9','+','-','*','/','(',')','^'] then begin
     3032         test2 := test2 + test[i];
     3033      end;
     3034   end;
     3035   Result := test2;
     3036end;
     3037
    30233038initialization
    30243039

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

    r729 r735  
    11object frmFrame: TfrmFrame
    2   Left = 1140
    3   Top = 281
     2  Left = 116
     3  Top = 113
    44  Width = 684
    55  Height = 487

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

    r729 r735  
    752752  i : integer;  //kt added 6/29/07
    753753  tempPosition : TTabPosition; //kt
     754  ImagesEnabled : boolean; //kt
    754755begin
    755756  //kt 6/29/07  Begin modification -------------------
    … …  
    976977  //kt original line --> CreateTab(CT_IMAGES,   'Images');
    977978  CreateTab(CT_IMAGES, DKLangConstW('fFrame_Images'));    //kt
    978   SetATabVisibility(CT_IMAGES, uTMGOptions.ReadBool('EnableImages',false));
     979  ImagesEnabled := uTMGOptions.ReadBool('EnableImages',false); //kt
     980  if not ImagesEnabled then SetATabVisibility(CT_IMAGES, ImagesEnabled); //kt
    979981
    980982  for i := CT_WEBTAB1 to CT_LAST_WEBTAB do begin

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

    r729 r735  
    675675  DropboxFile : AnsiString;
    676676  CurrentFileSize : Integer;
     677  ErrMsg          : string;
    677678begin
    678679  // CallV('TMG DOWNLOAD FILE DROPBOX', ...);
    … …  
    687688
    688689  RPCBrokerV.Call;  //Move file into dropbox.
    689   Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
    690   CurrentFileSize := strtoint(Piece(RPCBrokerV.Results[0],'^',3));  //Piece 3 = file size
     690  if RPCBrokerV.Results.Count > 0 then begin
     691    Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
     692    if Result = false then ErrMsg := Piece(RPCBrokerV.Results[0],'^',2);
     693  end else begin
     694    Result := false;
     695    ErrMsg := 'Error communicating with server to retrieve image.';
     696  end;
    691697
    692698  if Result=true then begin
     699    CurrentFileSize := strtoint(Piece(RPCBrokerV.Results[0],'^',3));  //Piece 3 = file size
    693700    DropboxFile := ExcludeTrailingBackslash(DropboxDir) + '\' + FName;
    694701    if ImageTransferForm.visible = False then ImageTransferForm.show;
    … …  
    705712                 mtError,[mbOK],0);
    706713    end;
     714  end else begin
     715    MessageDlg('ERROR: '+ErrMsg,mtError,[mbOK],0);
    707716  end;
    708717end;

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

    r541 r735  
    41434143      Alignment = taCenter
    41444144      AutoSize = False
    4145       Caption = 'TMG Customization 1.1'
     4145      Caption = 'TMG Customization 2.0'
    41464146      Font.Charset = ANSI_CHARSET
    41474147      Font.Color = clGray

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

    r729 r735  
    4343    //RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
    4444    USE_SERVER_INI := StrToBool(RPCBrokerV.StrCall);
     45    Initialized := true;
    4546  end;
    4647
Note: See TracChangeset for help on using the changeset viewer.