Ignore:
Timestamp:
Jun 22, 2010, 8:22:30 AM (14 years ago)
Author:
Kevin Toppenberg
Message:

Corrected HTML line feed

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

Legend:

Unmodified
Added
Removed

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

    r801 r809  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 6/16/2010 3:23:34 PM from Type Library described below.
     15// File generated on 6/21/2010 2:19:10 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r801 r809  
    101101UsePackages=0
    102102[Parameters]
    103 RunParams=CCOW=disable s=s0.sequencemanagers.com p=53110
     103RunParams=CCOW=disable s=192.168.3.99 p=9260
    104104HostApplication=
    105105Launcher=
    … …  
    174174Item2=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart\DCU
    175175[HistoryLists\hlOutputDirectorry]
    176 Count=4
     176Count=5
    177177Item0=P:\vista\tmg-cprs
    178 Item1=P:\vista\tmg-cprs\cache
    179 Item2=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart
    180 Item3=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart
     178Item1=C:\Documents and Settings\e.hagood\My Documents\CPRSChart
     179Item2=P:\vista\tmg-cprs\cache
     180Item3=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart
     181Item4=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart
    181182[HistoryLists\hlBPLOutput]
    182183Count=2

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

    r801 r809  
    332332  uLogic in 'TMG_Extra\uLogic.pas',
    333333  fImagePickPDF in 'TMG_Extra\fImagePickPDF.pas' {frmImagePickPDF},
    334   fImagePickExisting in 'TMG_Extra\fImagePickExisting.pas' {frmImagePickExisting};
     334  fImagePickExisting in 'TMG_Extra\fImagePickExisting.pas' {frmImagePickExisting},
     335  fPtDocSearch in 'TMG_Extra\fPtDocSearch.pas' {frmPtDocSearch};
    335336
    336337{$R *.TLB}
    … …  
    356357    Application.CreateForm(TdmodShared, dmodShared);
    357358  Application.CreateForm(TfrmFrame, frmFrame);
     359  Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
    358360  //kt <--- frmImages etc created here
    359     Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
    360361    if frmframe.TMGAbort = False then begin   //kt 3/25/09
     362      Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
    361363      Application.CreateForm(TfrmSearchStop, frmSearchStop);
    362364      Application.CreateForm(TUploadForm, UploadForm);

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

    r801 r809  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\BA\UBACore.pas',0,1,417,50,420,0,0
    3 File_1=SourceModule,'c:\program files\borland\delphi7\source\vcl\Graphics.pas',0,1,3762,1,3769,0,0
    4 File_2=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,5113,1,5120,0,0
    5 File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fImagePickPDF.pas',0,1,90,1,98,0,0
    6 File_4=SourceModule,'c:\program files\borland\delphi7\source\vcl\Forms.pas',0,1,2657,1,2664,0,0
    7 File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fImagePickExisting.pas',0,1,141,1,148,0,0
    8 File_6=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',0,1,631,12,638,0,0
    9 File_7=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,8385,1,8394,0,0
    10 File_8=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas',0,1,1472,1,1479,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas',0,1,1,28,200,1,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Encounter\rPCE.pas',0,1,1335,7,1345,0,0
     4File_2=SourceModule,'P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas',0,1,1,14,15,0,0
     5File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtAdd.pas',0,1,474,22,481,0,0
     6File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fImagePickExisting.pas',0,1,168,50,173,1,0
     7File_5=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas',0,1,16059,17,16068,0,0
     8File_6=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotes.dfm',0,1,1,1,1,0,0
     9File_7=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\Registry.pas',0,1,601,25,606,0,0
     10File_8=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,11791,1,11801,0,0
    1111
    1212[Modules]
    13 Module0=P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas
    14 Module1=P:\vista\tmg-cprs\CPRS-Chart\rCore.pas
    15 Module2=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    16 Module3=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\uLogic.pas
    17 Module4=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SubfilesU.pas
    18 Module5=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SearchAnimationU.pas
    19 Module6=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\fWebTab.pas
    20 Module7=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\fPtAdd.pas
    21 Module8=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmSearchResults.pas
    22 Module9=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas
    23 Module10=P:\vista\tmg-cprs\CPRS-Chart\fPtAdd.pas
    24 Module11=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
    25 Module12=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtAdd.pas
    26 Module13=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
    27 Module14=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    28 Module15=P:\vista\tmg-cprs\CPRS-Chart\Options\rOptions.pas
    29 Module16=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
    30 Module17=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    31 Module18=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    32 Count=19
     13Module0=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas
     14Module1=c:\program files\borland\delphi7\source\vcl\ExtCtrls.pas
     15Module2=P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas
     16Module3=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     17Module4=c:\program files\borland\delphi7\source\vcl\Controls.pas
     18Module5=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
     19Module6=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     20Module7=P:\vista\tmg-cprs\CPRS-Chart\fPtAdd.pas
     21Module8=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\uLogic.pas
     22Module9=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     23Module10=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     24Module11=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
     25Module12=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
     26Module13=P:\vista\tmg-cprs\CPRS-Chart\uCore.pas
     27Module14=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\fPtAdd.pas
     28Module15=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
     29Count=16
    3330EditWindowCount=1
    3431TypeLibWindowCount=1
    3532
    36 [P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas]
    37 ModuleType=SourceModule
    38 FormState=0
    39 FormOnTop=0
    40 
    41 [P:\vista\tmg-cprs\CPRS-Chart\rCore.pas]
    42 ModuleType=SourceModule
    43 FormState=0
    44 FormOnTop=0
    45 
    46 [c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
     33[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas]
     34ModuleType=SourceModule
     35FormState=1
     36FormOnTop=0
     37
     38[c:\program files\borland\delphi7\source\vcl\ExtCtrls.pas]
     39ModuleType=SourceModule
     40FormState=0
     41FormOnTop=0
     42
     43[P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas]
     44ModuleType=SourceModule
     45FormState=0
     46FormOnTop=0
     47
     48[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
     49ModuleType=SourceModule
     50FormState=0
     51FormOnTop=0
     52
     53[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     54ModuleType=SourceModule
     55FormState=0
     56FormOnTop=0
     57
     58[C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas]
     59ModuleType=SourceModule
     60FormState=0
     61FormOnTop=0
     62
     63[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
     64ModuleType=SourceModule
     65FormState=0
     66FormOnTop=0
     67
     68[P:\vista\tmg-cprs\CPRS-Chart\fPtAdd.pas]
    4769ModuleType=SourceModule
    4870FormState=0
    … …  
    5476FormOnTop=0
    5577
    56 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SubfilesU.pas]
    57 ModuleType=SourceModule
    58 FormState=0
    59 FormOnTop=0
    60 
    61 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SearchAnimationU.pas]
    62 ModuleType=SourceModule
    63 FormState=0
    64 FormOnTop=0
    65 
    66 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\fWebTab.pas]
     78[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     79ModuleType=SourceModule
     80FormState=1
     81FormOnTop=0
     82
     83[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     84ModuleType=SourceModule
     85FormState=0
     86FormOnTop=0
     87
     88[P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas]
     89ModuleType=SourceModule
     90FormState=0
     91FormOnTop=0
     92
     93[P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas]
     94ModuleType=SourceModule
     95FormState=0
     96FormOnTop=0
     97
     98[P:\vista\tmg-cprs\CPRS-Chart\uCore.pas]
    6799ModuleType=SourceModule
    68100FormState=0
    … …  
    74106FormOnTop=0
    75107
    76 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmSearchResults.pas]
    77 ModuleType=SourceModule
    78 FormState=0
    79 FormOnTop=0
    80 
    81 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas]
    82 ModuleType=SourceModule
    83 FormState=0
    84 FormOnTop=0
    85 
    86 [P:\vista\tmg-cprs\CPRS-Chart\fPtAdd.pas]
    87 ModuleType=SourceModule
    88 FormState=0
    89 FormOnTop=0
    90 
    91108[P:\vista\tmg-cprs\CPRS-Chart\fImages.pas]
    92109ModuleType=SourceModule
    … …  
    94111FormOnTop=0
    95112
    96 [P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtAdd.pas]
    97 ModuleType=SourceModule
    98 FormState=0
    99 FormOnTop=0
    100 
    101 [P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas]
    102 ModuleType=SourceModule
    103 FormState=0
    104 FormOnTop=0
    105 
    106 [P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
    107 ModuleType=SourceModule
    108 FormState=0
    109 FormOnTop=0
    110 
    111 [P:\vista\tmg-cprs\CPRS-Chart\Options\rOptions.pas]
    112 ModuleType=SourceModule
    113 FormState=0
    114 FormOnTop=0
    115 
    116 [P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
    117 ModuleType=SourceModule
    118 FormState=0
    119 FormOnTop=1
    120 
    121 [P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    122 ModuleType=SourceModule
    123 FormState=0
    124 FormOnTop=0
    125 
    126 [P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
    127 ModuleType=SourceModule
    128 FormState=0
    129 FormOnTop=0
    130 
    131113[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    132114FormState=0
    133115FormOnTop=0
    134116
    135 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    136 FormState=0
    137 FormOnTop=0
    138 
    139117[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    140118FormState=0
    … …  
    150128
    151129[EditWindow0]
    152 ViewCount=19
    153 CurrentView=10
     130ViewCount=16
     131CurrentView=7
    154132View0=0
    155133View1=1
    … …  
    168146View14=14
    169147View15=15
    170 View16=16
    171 View17=17
    172 View18=18
    173148CodeExplorer=CodeExplorer@EditWindow0
    174149MessageView=MessageView@EditWindow0
    … …  
    176151Visible=1
    177152State=0
    178 Left=275
    179 Top=119
    180 Width=716
    181 Height=615
     153Left=281
     154Top=157
     155Width=818
     156Height=609
    182157MaxLeft=-4
    183 MaxTop=-4
    184 ClientWidth=708
    185 ClientHeight=581
     158MaxTop=108
     159ClientWidth=810
     160ClientHeight=575
    186161LeftPanelSize=0
    187162LeftPanelClients=CodeExplorer@EditWindow0
    188163LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    189164RightPanelSize=0
    190 BottomPanelSize=254
    191 BottomPanelClients=DockSite0
    192 BottomPanelData=0000040000000000770300000000000000D70000000000000001000000007703000009000000446F636B5369746530FFFFFFFF
     165BottomPanelSize=152
     166BottomPanelClients=DockSite1
     167BottomPanelData=00000400000000002A030000000000000298000000000000000100000000770300000000000001000000002A03000009000000446F636B5369746531FFFFFFFF
    193168
    194169[View0]
    195170Module=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
    196 CursorX=1
    197 CursorY=1183
    198 TopLine=1174
     171CursorX=8
     172CursorY=1280
     173TopLine=1261
    199174LeftCol=1
    200175
    … …  
    207182
    208183[View2]
    209 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas
    210 CursorX=1
    211 CursorY=156
    212 TopLine=147
     184Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\uLogic.pas
     185CursorX=34
     186CursorY=637
     187TopLine=623
    213188LeftCol=1
    214189
    215190[View3]
    216 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmSearchResults.pas
    217 CursorX=1
    218 CursorY=108
    219 TopLine=99
    220 LeftCol=1
    221 
    222 [View4]
    223191Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\fPtAdd.pas
    224192CursorX=1
    … …  
    227195LeftCol=1
    228196
     197[View4]
     198Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     199CursorX=1
     200CursorY=4902
     201TopLine=4888
     202LeftCol=1
     203
    229204[View5]
    230 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\fWebTab.pas
    231 CursorX=5
    232 CursorY=79
    233 TopLine=71
     205Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     206CursorX=69
     207CursorY=365
     208TopLine=26
    234209LeftCol=1
    235210
    236211[View6]
    237 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SearchAnimationU.pas
    238 CursorX=1
    239 CursorY=133
    240 TopLine=124
     212Module=P:\vista\tmg-cprs\CPRS-Chart\uCore.pas
     213CursorX=1
     214CursorY=362
     215TopLine=352
    241216LeftCol=1
    242217
    243218[View7]
    244 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SubfilesU.pas
    245 CursorX=7
    246 CursorY=205
    247 TopLine=198
     219Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas
     220CursorX=1
     221CursorY=144
     222TopLine=134
    248223LeftCol=1
    249224
    250225[View8]
    251 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\uLogic.pas
    252 CursorX=1
    253 CursorY=1113
    254 TopLine=1104
     226Module=P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas
     227CursorX=1
     228CursorY=4358
     229TopLine=4348
    255230LeftCol=1
    256231
    257232[View9]
    258 Module=P:\vista\tmg-cprs\CPRS-Chart\Options\rOptions.pas
    259 CursorX=5
    260 CursorY=206
    261 TopLine=199
     233Module=c:\program files\borland\delphi7\source\vcl\ExtCtrls.pas
     234CursorX=1
     235CursorY=1650
     236TopLine=1640
    262237LeftCol=1
    263238
    264239[View10]
    265 Module=P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas
    266 CursorX=23
    267 CursorY=380
    268 TopLine=367
     240Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     241CursorX=1
     242CursorY=2033
     243TopLine=2023
    269244LeftCol=1
    270245
    271246[View11]
    272 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    273 CursorX=1
    274 CursorY=6473
    275 TopLine=6466
     247Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
     248CursorX=1
     249CursorY=6245
     250TopLine=6229
    276251LeftCol=1
    277252
    278253[View12]
    279 Module=P:\vista\tmg-cprs\CPRS-Chart\rCore.pas
    280 CursorX=1
    281 CursorY=402
    282 TopLine=396
     254Module=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
     255CursorX=1
     256CursorY=1479
     257TopLine=1469
    283258LeftCol=1
    284259
    285260[View13]
    286 Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    287 CursorX=5
    288 CursorY=4970
    289 TopLine=4971
     261Module=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
     262CursorX=9
     263CursorY=842
     264TopLine=817
    290265LeftCol=1
    291266
    292267[View14]
    293268Module=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
    294 CursorX=1
    295 CursorY=498
    296 TopLine=491
     269CursorX=36
     270CursorY=872
     271TopLine=865
    297272LeftCol=1
    298273
    299274[View15]
    300 Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    301 CursorX=1
    302 CursorY=4691
    303 TopLine=4679
    304 LeftCol=1
    305 
    306 [View16]
    307 Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    308 CursorX=61
    309 CursorY=2
    310 TopLine=1
    311 LeftCol=1
    312 
    313 [View17]
    314275Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
    315 CursorX=1
    316 CursorY=1303
    317 TopLine=1301
    318 LeftCol=1
    319 
    320 [View18]
    321 Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtAdd.pas
    322 CursorX=22
    323 CursorY=481
    324 TopLine=474
     276CursorX=24
     277CursorY=320
     278TopLine=306
    325279LeftCol=1
    326280
    … …  
    329283Visible=0
    330284State=0
    331 Left=200
    332 Top=115
     285Left=250
     286Top=153
    333287Width=639
    334288Height=453
    … …  
    340294
    341295[Watches]
    342 Count=4
    343 Watch0='ImagesList.Strings[0]',256,0,18,1,0,'Watches'
    344 Watch1='ImagesList.Strings[1]',256,0,18,1,0,'Watches'
    345 Watch2='ImagesList.Strings[2]',256,0,18,1,0,'Watches'
    346 Watch3='frmImagePickExisting.SelectedIndex',256,0,18,1,0,'Watches'
     296Count=1
     297Watch0='Lines.Strings[i]',256,0,18,1,0,'Watches'
    347298
    348299[WatchWindow]
    … …  
    354305Left=0
    355306Top=0
    356 Width=688
    357 Height=225
    358 MaxLeft=-1
    359 MaxTop=-1
    360 ClientWidth=688
    361 ClientHeight=225
     307Width=790
     308Height=123
     309MaxLeft=-1
     310MaxTop=-1
     311ClientWidth=790
     312ClientHeight=123
    362313TBDockHeight=103
    363314LRDockWidth=421
    … …  
    365316
    366317[Breakpoints]
    367 Count=39
     318Count=42
    368319Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1714,'',0,1,'',1,0,0,'',1,'','',''
    369320Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1791,'',0,1,'',1,0,0,'',1,'','',''
    370321Breakpoint2='P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',1068,'',0,1,'',1,0,0,'',1,'','',''
    371 Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3288,'',0,1,'',1,0,0,'',1,'','',''
    372 Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3294,'',0,1,'',1,0,0,'',1,'','',''
    373 Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4388,'',0,1,'',1,0,0,'',1,'','',''
    374 Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4829,'',0,1,'',1,0,0,'',1,'','',''
    375 Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4849,'',0,1,'',1,0,0,'',1,'','',''
     322Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3290,'',0,1,'',1,0,0,'',1,'','',''
     323Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3296,'',0,1,'',1,0,0,'',1,'','',''
     324Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4390,'',0,1,'',1,0,0,'',1,'','',''
     325Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4831,'',0,1,'',1,0,0,'',1,'','',''
     326Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4851,'',0,1,'',1,0,0,'',1,'','',''
    376327Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas',2419,'',0,1,'',1,0,0,'',1,'','',''
    377328Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fReports.pas',2966,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    380331Breakpoint12='P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas',846,'',0,1,'',1,0,0,'',1,'','',''
    381332Breakpoint13='P:\vista\tmg-cprs\CPRS-Chart\fReview.pas',1350,'',0,1,'',1,0,0,'',1,'','',''
    382 Breakpoint14='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',169,'',0,1,'',1,0,0,'',1,'','',''
     333Breakpoint14='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',173,'',0,1,'',1,0,0,'',1,'','',''
    383334Breakpoint15='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
    384335Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
    385336Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
    386337Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1128,'',0,1,'',1,0,0,'',1,'','',''
    387 Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1897,'',0,1,'',1,0,0,'',1,'','',''
     338Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1899,'',0,1,'',1,0,0,'',1,'','',''
    388339Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
    389340Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1126,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    393344Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas',706,'',0,1,'',1,0,0,'',1,'','',''
    394345Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',86,'',0,1,'',1,0,0,'',1,'','',''
    395 Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',784,'',0,1,'',1,0,0,'',1,'','',''
     346Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',786,'',0,1,'',1,0,0,'',1,'','',''
    396347Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',243,'',0,1,'',1,0,0,'',1,'','',''
    397348Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas',2820,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    403354Breakpoint35='P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas',1378,'',0,1,'',1,0,0,'',1,'','',''
    404355Breakpoint36='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas',522,'',0,1,'',1,0,0,'',1,'','',''
    405 Breakpoint37='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4671,'',0,1,'',1,0,0,'',1,'','',''
    406 Breakpoint38='P:\vista\tmg-cprs\CPRS-Chart\rCore.pas',402,'',0,1,'',1,0,0,'',1,'','',''
     356Breakpoint37='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',251,'',0,1,'',1,0,0,'',1,'','',''
     357Breakpoint38='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',254,'',0,1,'',1,0,0,'',1,'','',''
     358Breakpoint39='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas',144,'',0,1,'',1,0,0,'',1,'','',''
     359Breakpoint40='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas',93,'',0,1,'',1,0,0,'',1,'','',''
     360Breakpoint41='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDocSearch.pas',127,'',0,1,'',1,0,0,'',1,'','',''
    407361
    408362[AddressBreakpoints]
    … …  
    413367Visible=1
    414368State=0
    415 Left=11
     369Left=14
    416370Top=0
    417371Width=1013
    … …  
    458412Visible=0
    459413State=0
    460 Left=31
    461 Top=162
     414Left=39
     415Top=216
    462416Width=731
    463417Height=488
    … …  
    501455SplitPos=114
    502456ArrangeBy=Name
    503 SelectedItem=Caption
     457SelectedItem=
    504458ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders,Font,Images,Options
    505459HiddenCategories=Legacy
    … …  
    529483[CallStackWindow]
    530484Create=1
    531 Visible=1
    532 State=0
    533 Left=13
    534 Top=161
     485Visible=0
     486State=0
     487Left=19
     488Top=168
    535489Width=321
    536490Height=521
    … …  
    639593Visible=0
    640594State=0
    641 Left=307
    642 Top=281
     595Left=384
     596Top=375
    643597Width=457
    644598Height=250
    … …  
    705659[MessageView@EditWindow0]
    706660Create=1
    707 Visible=1
     661Visible=0
    708662State=0
    709663Left=0
    710664Top=0
    711 Width=688
    712 Height=225
    713 MaxLeft=-1
    714 MaxTop=-1
    715 ClientWidth=688
    716 ClientHeight=225
     665Width=790
     666Height=123
     667MaxLeft=-1
     668MaxTop=-1
     669ClientWidth=790
     670ClientHeight=123
    717671TBDockHeight=215
    718672LRDockWidth=443
    … …  
    723677
    724678[DockSite0]
    725 DockSiteType=1
    726 Create=1
    727 Visible=1
    728 State=0
    729 Left=12
    730 Top=0
    731 Width=696
    732 Height=254
    733 MaxLeft=-1
    734 MaxTop=-1
    735 ClientWidth=696
    736 ClientHeight=254
    737 TBDockHeight=254
    738 LRDockWidth=283
    739 Dockable=1
    740 TabPosition=0
    741 ActiveTab=Messages
    742 TabDockClients=MessageView@EditWindow0,WatchWindow
    743 
    744 [DockSite1]
    745679DockSiteType=1
    746680Create=1
    … …  
    762696TabDockClients=PropertyInspector,ObjectTree
    763697
     698[DockSite1]
     699DockSiteType=1
     700Create=1
     701Visible=1
     702State=0
     703Left=12
     704Top=0
     705Width=798
     706Height=152
     707MaxLeft=-1
     708MaxTop=-1
     709ClientWidth=798
     710ClientHeight=152
     711TBDockHeight=152
     712LRDockWidth=283
     713Dockable=1
     714TabPosition=0
     715ActiveTab=Watch List
     716TabDockClients=MessageView@EditWindow0,WatchWindow
     717

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

    r801 r809  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 6/16/2010 3:23:35 PM from Type Library described below.
     15// File generated on 6/21/2010 2:19:10 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtQuery.pas

    r801 r809  
    127127    cmd := cmd + '^' + SearchFileNumber + '^' + SearchString;
    128128    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    129     //RPCBrokerV.Call;
    130129    CallBroker;
    131130    if RPCBrokerV.Results.Count > 0 then begin
    … …  
    152151    cmd := cmd + '^' + JobNumber + '^' + FldNum;
    153152    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    154     //RPCBrokerV.Call;
    155153    CallBroker;
    156154

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fWebTab.dfm

    r801 r809  
    11object frmWebTab: TfrmWebTab
    2   Left = 266
    3   Top = 184
    4   Width = 473
    5   Height = 375
     2  Left = 267
     3  Top = 185
     4  Width = 472
     5  Height = 374
    66  Caption = 'Web Browser'
    77  Color = clBtnFace
    … …  
    1818    Left = 0
    1919    Top = 0
    20     Width = 465
    21     Height = 341
     20    Width = 464
     21    Height = 340
    2222    Align = alClient
    2323    TabOrder = 0
    2424    ControlData = {
    25       4C0000000F3000003E2300000000000000000000000000000000000000000000
     25      4C000000F52F0000242300000000000000000000000000000000000000000000
    2626      000000004C000000000000000000000001000000E0D057007335CF11AE690800
    2727      2B2E126208000000000000004C0000000114020000000000C000000000000046

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

    r801 r809  
    583583    end;
    584584    Info.Free;
     585    frmImages.NumImagesAvailableOnServer := NOT_YET_CHECKED_SERVER;   //Forces re-query of server
    585586  end;
    586587
    … …  
    869870      Text.Add('<p>');
    870871      for i := 0 to UploadNote.CurNoteImages.Count-1 do begin
    871         // note: $CPRSDIR$ will be replaced at runtime with directory of CPRS
     872        // note: CPRS_DIR_SIGNAL ('$CPRSDIR$') will be replaced at runtime with directory of CPRS
    872873        // This will be done as page is passed to TWebBrowser (in rHTMLTools)
    873         oneImage := '$CPRSDIR$\Cache\' + UploadNote.CurNoteImages.Strings[i]; 
    874         //oneImage := CacheDir + '\' + CurNoteImages.Strings[i];
     874        oneImage := CPRS_CACHE_DIR_SIGNAL + UploadNote.CurNoteImages.Strings[i];
    875875        Text.Add('<img WIDTH=640 src="'+oneImage+'">');
    876876        Text.Add('<p>');

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

    r801 r809  
    9999    ImageInfoList : TList;
    100100    LastDisplayedTIUIEN : AnsiString;
    101     NumImagesAvailableOnServer : integer;
    102101    ImageIndexLastDownloaded : integer;
    103102    procedure EnsureImageListLoaded();
    … …  
    118117    DropBoxDir : string;
    119118    NullImageName : AnsiString;
     119    NumImagesAvailableOnServer : integer;
    120120    DownloadImagesInBackground : boolean;
    121121    function Decode(input: AnsiString) : AnsiString;

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

    r801 r809  
    11981198        OnClick = mnuActIdentifyAddlSignersClick
    11991199      end
     1200      object mnuSearchNotes: TMenuItem
     1201        Caption = '&Search Notes'
     1202        OnClick = mnuSearchNotesClick
     1203      end
    12001204    end
    12011205    object mnuOptions: TMenuItem
    … …  
    14481452    LangData = {
    14491453      080066726D4E6F746573010200000001000000070043617074696F6E02000000
    1450       080048656C7046696C6501A60000000D0073687050616765426F74746F6D0000
     1454      080048656C7046696C6501A70000000D0073687050616765426F74746F6D0000
    14511455      0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874
    14521456      000008006C626C4E6F746573010100000003000000070043617074696F6E0009
    … …  
    16081612      78697374696E67496D6167650101000000A1000000070043617074696F6E000E
    16091613      006D6E754164644E6577496D6167650101000000A2000000070043617074696F
    1610       6E00}
     1614      6E000E006D6E755365617263684E6F7465730101000000A30000000700436170
     1615      74696F6E00}
    16111616  end
    16121617  object popupAddImage: TPopupMenu

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

    r801 r809  
    183183    popupAddImage: TPopupMenu;
    184184    mnuSelectExistingImage: TMenuItem;
    185     mnuAddNewImage: TMenuItem;                //kt 4/10
     185    mnuAddNewImage: TMenuItem;
     186    mnuSearchNotes: TMenuItem;                //kt 4/10
    186187    procedure mnuChartTabClick(Sender: TObject);
    187188    procedure lstNotesClick(Sender: TObject);
    … …  
    294295    procedure popNoteMemoHTMLFormatClick(Sender: TObject);
    295296    procedure mnuAddNewImageClick(Sender: TObject);
    296     procedure mnuSelectExistingImageClick(Sender: TObject); //kt 8/09
     297    procedure mnuSelectExistingImageClick(Sender: TObject);
     298    procedure mnuSearchNotesClick(Sender: TObject); //kt 8/09
    297299  private
    298300    FNavigatingTab : Boolean; //Currently Using tab to navigate
    … …  
    407409     fOptionsNotes, //kt 8/09
    408410     fImagePickExisting, //kt 6/16/10
    409      rHTMLTools, fImages, UploadImages;  {//kt added 5-27-05 for IsHTMLDocument}
     411     rHTMLTools, fImages, UploadImages,  {//kt added 5-27-05 for IsHTMLDocument}
     412     fPtDocSearch;        //kt 6/21/10
    410413
    411414const
    … …  
    48904893end;
    48914894
    4892 
     4895procedure TfrmNotes.mnuSearchNotesClick(Sender: TObject);
     4896begin
     4897  inherited;
     4898  Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
     4899  frmPtDocSearch.ShowModal;
     4900  //open diff note it selected
     4901  frmPtDocSearch.Free;
     4902end;
    48934903
    48944904initialization

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

    r793 r809  
    11object frmPtSel: TfrmPtSel
    2   Left = 108
    3   Top = 100
     2  Left = 344
     3  Top = 171
    44  Width = 797
    55  Height = 622

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

    r801 r809  
    11object frmSplash: TfrmSplash
    2   Left = 245
    3   Top = 129
     2  Left = 286
     3  Top = 131
    44  BorderIcons = []
    55  BorderStyle = bsNone
    … …  
    41424142      Height = 17
    41434143      Alignment = taCenter
    4144       Caption = 'TMG Customization 2.0; 6.16.2010'
     4144      Caption = 'TMG Customization 2.0; 6.18.2010'
    41454145      Font.Charset = ANSI_CHARSET
    41464146      Font.Color = clGray

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

    r793 r809  
    1818    URL_CPRSDir : string;  //This is CPRSDir, but all '\'s are converted to '/'s
    1919
    20   CONST ALT_IMG_TAG_CONVERT = 'alt="convert to $CPRSDIR$"';
     20  CONST
     21    CPRS_DIR_SIGNAL = '$CPRSDIR$';
     22    CPRS_CACHE_DIR_SIGNAL = CPRS_DIR_SIGNAL+'\Cache\';
     23    ALT_IMG_TAG_CONVERT = 'alt="convert to ' + CPRS_DIR_SIGNAL +'"';
    2124
    2225  procedure PrintHTMLReport(Lines: TStringList; var ErrMsg: string;
    … …  
    4346  Procedure ScanForSubs(Lines : TStrings);
    4447  Procedure InsertSubs(Lines : TStrings);
     48  function HTTPEncode(const AStr: string): string;
    4549
    4650implementation
    … …  
    217221    SubsFoundList.Clear;
    218222    for i := 0 to Lines.Count-1 do begin
    219       p := Pos('$CPRSDIR$',Lines.Strings[i]);
     223      p := Pos(CPRS_DIR_SIGNAL,Lines.Strings[i]);
    220224      if p>0 then begin
    221         p := p + Length('$CPRSDIR$\Cache\');
     225        p := p + Length(CPRS_CACHE_DIR_SIGNAL);
    222226        p2 := PosEx('"',Lines.Strings[i],p);
    223227        tempS := MidStr(Lines.Strings[i],p,(p2-p));
    224228        SubsFoundList.Add(tempS);
    225229        if Pos('file:///',Lines.Strings[i]) > 0 then begin
    226           Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',URL_CPRSDir);
     230          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],CPRS_DIR_SIGNAL,URL_CPRSDir);
    227231        end else begin
    228           Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',CPRSDir);
     232          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],CPRS_DIR_SIGNAL,CPRSDir);
    229233        end;
    230234        //Ensure images are downloaded before passing page to web browser
    … …  
    237241  Procedure InsertSubs(Lines : TStrings);
    238242  //Purpose: To scan a edited note images, and replace references to CPRS's
    239   //         actual local directory with $CPRS$
     243  //         actual local directory with CPRS_DIR_SIGNAL ('$CPRSDIR$')
    240244  var i,p : integer;
    241245     TempS: string;
    … …  
    243247  begin
    244248    for i := 0 to Lines.Count-1 do begin
    245       Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],URL_CPRSDir,'$CPRSDIR$');
     249      p := pos(ALT_IMG_TAG_CONVERT,Lines.Strings[i]);
     250      if p = 0 then continue;
     251      TempS := Lines.Strings[i];
     252      Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],URL_CPRSDir,CPRS_DIR_SIGNAL);
     253      if Lines.Strings[i] = TempS then begin  //There is a problem. Replacement failed.
     254        MessageDlg('Problem converting image path to $CPRSDIR$',mtWarning,[mbOK],0);
     255      end;
     256      //TempS := MidStr(Lines.Strings[i],1,p-1);
     257      //TempS := TempS + MidStr(Lines.Strings[i],p+length(ALT_IMG_TAG_CONVERT),length(Lines.Strings[i])+1);
     258      //Lines.Strings[i] := TempS;
    246259      Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],ALT_IMG_TAG_CONVERT,'IMAGE'); //Remove signal
    247       p := pos(ALT_IMG_TAG_CONVERT,Lines.Strings[i]);
    248       if p > 0 then begin
    249         TempS := MidStr(Lines.Strings[i],1,p-1);
    250         TempS := TempS + MidStr(Lines.Strings[i],p+length(ALT_IMG_TAG_CONVERT),length(Lines.Strings[i])+1);
    251         Lines.Strings[i] := TempS;
    252       end;
    253260    end;
    254261  end;
    … …  
    504511    Result := AnsiReplaceText(Result,'>'+CRLF,'>'#$1F); //protect sequences we want
    505512    Result := AnsiReplaceText(Result,CRLF,'<BR>'+CRLF); //Add <BR>'s to CrLf's
    506     Result := AnsiReplaceText(Result,'>'#$1F,'>'+CRLF); //Restore sequences we wanted
     513    Result := AnsiReplaceText(Result,'>'#$1F,'><BR>'+CRLF); //Restore sequences we wanted
    507514    Result := AnsiReplaceText(Result,#$1E,'<NO DATA>'); //Restore sequences we wanted
    508515  end;
    … …  
    829836  //elh 6/19/09
    830837  begin
    831     if not assigned(Reg) then Reg := TRegistry.Create;
     838    if not assigned(Reg) then begin
     839       Reg := TRegistry.Create;
     840       Reg.Rootkey := HKEY_CURRENT_USER;
     841       Reg.OpenKey('\Software\Microsoft\Internet Explorer\PageSetup', False)
     842    end;   
    832843    try
    833844      StoredIEFooters := '&u&b&d';          //Comment this line to restore previous value
    … …  
    853864      s := Piece(Lines.Strings[i],'DATE OF NOTE:',2);
    854865      s := Piece(s,'@',1);
    855       Result := Trim(s);     
    856     end;
    857   end;
     866      Result := Trim(s);
     867    end;
     868  end;
     869
     870  function HTTPEncode(const AStr: string): string;
     871  //NOTE: routine from here:
     872  //   http://www.delphitricks.com/source-code/internet/encode_a_http_url.html
     873  //NOTE: I modified this to my purposes.  I removed conversion of '/',':'
     874  const
     875    //kt original --> NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-'];
     876    NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-', '/', ':'];  //kt
     877  var
     878    Sp, Rp: PChar;
     879  begin
     880    SetLength(Result, Length(AStr) * 3);
     881    Sp := PChar(AStr);
     882    Rp := PChar(Result);
     883    while Sp^ <> #0 do begin
     884      if Sp^ in NoConversion then
     885        Rp^ := Sp^
     886      //kt else if Sp^ = ' ' then
     887      //kt   Rp^ := '+'
     888      else begin
     889        FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
     890        Inc(Rp, 2);
     891      end;
     892      Inc(Rp);
     893      Inc(Sp);
     894    end;
     895    SetLength(Result, Rp - PChar(Result));
     896  end;
     897
    858898
    859899  //===============================================================
    … …  
    883923    RestorePrinterTimer.Enabled := false;
    884924    RestoreIEPrinting;   {elh 6/19/09}  //kt
    885     //kt SetDefaultPrinter(SavedDefaultPrinter);   
     925    //kt SetDefaultPrinter(SavedDefaultPrinter);
    886926    //beep;   
    887   end; 
     927  end;
    888928
    889929  //===============================================================
    890  
     930
     931  function EncodePath(var Path : string) : string;
     932  begin
     933    Result := AnsiReplaceStr(Path,'\','/');
     934    Result := HTTPEncode(Result);
     935  end;
    891936
    892937initialization
    … …  
    894939  PrinterEvents := TPrinterEvents.Create;
    895940  CPRSDir := ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
    896   URL_CPRSDir := AnsiReplaceStr(CPRSDir,'\','/');
     941  URL_CPRSDir := EncodePath(CPRSDir);
    897942  SubsFoundList := TStringList.Create;
    898943
    899944finalization
     945  //kt causing crash -->  Reg.WriteString('footer',StoredIEFooters);
     946  //RestoreIEPrinting;
    900947  PrinterEvents.Free;
    901948  SubsFoundList.Free;
Note: See TracChangeset for help on using the changeset viewer.