Ignore:
Timestamp:
Jan 27, 2010, 12:14:12 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Fixed HTML Linked Template-Note Issue

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

Legend:

Unmodified
Added
Removed

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

    r670 r686  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 1/19/2010 8:26:12 AM from Type Library described below.
     15// File generated on 1/22/2010 5:46:21 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r670 r686  
    241241  fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists},
    242242  fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList},
    243   fOptionsNotes in 'Options\fOptionsNotes.pas' {frmOptionsNotes},
     243  fOptionsNotes in 'fOptionsNotes.pas' {frmOptionsNotes},
    244244  fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther},
    245245  fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection},

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

    r671 r686  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fTMGPrintingAnimation.dfm',0,1,709,34,5,0,0
    3 File_1=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas',0,1,4331,1,4343,0,0
    4 File_2=SourceModule,'c:\program files\borland\delphi7\source\vcl\Menus.pas',0,1,1814,1,1822,0,0
    5 File_3=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,11704,1,11719,0,0
    6 File_4=SourceModule,'P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas',0,1,832,1,840,0,0
    7 File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',0,1,980,1,993,0,0
    8 File_6=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,3974,1,3986,0,0
    9 File_7=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',0,1,4414,1,4423,0,0
    10 File_8=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fReports.pas',0,1,837,33,845,0,0
    11 File_9=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas',0,1,58,10,51,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\dShared.pas',0,1,203,34,224,0,0
     3File_1=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas',0,1,1470,1,1479,0,0
     4File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\rReports.pas',0,1,630,1,642,0,0
     5File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',0,1,301,9,310,0,0
     6File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\uFormMonitor.pas',0,1,1,1,1,0,0
     7File_5=SourceModule,'c:\program files\borland\delphi7\source\vcl\Forms.pas',0,1,3770,1,3779,0,0
     8File_6=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,13366,4,13380,0,0
    129
    1310[Modules]
    14 Module0=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    15 Module1=P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas
     11Module0=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
     12Module1=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    1613Module2=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
    17 Module3=P:\vista\tmg-cprs\CPRS-Chart\rReports.pas
    18 Module4=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    19 Count=5
     14Module3=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
     15Module4=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     16Module5=P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas
     17Module6=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
     18Module7=P:\vista\tmg-cprs\CPRS-Chart\uReminders.pas
     19Module8=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     20Module9=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
     21Count=10
    2022EditWindowCount=1
    2123TypeLibWindowCount=1
    2224
    23 [C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
    24 ModuleType=SourceModule
    25 FormState=0
    26 FormOnTop=0
    27 
    28 [P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas]
     25[P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas]
     26ModuleType=SourceModule
     27FormState=0
     28FormOnTop=0
     29
     30[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas]
    2931ModuleType=SourceModule
    3032FormState=0
    … …  
    3638FormOnTop=0
    3739
    38 [P:\vista\tmg-cprs\CPRS-Chart\rReports.pas]
     40[P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas]
     41ModuleType=SourceModule
     42FormState=0
     43FormOnTop=0
     44
     45[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     46ModuleType=SourceModule
     47FormState=0
     48FormOnTop=0
     49
     50[P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas]
     51ModuleType=SourceModule
     52FormState=0
     53FormOnTop=0
     54
     55[P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
     56ModuleType=SourceModule
     57FormState=0
     58FormOnTop=0
     59
     60[P:\vista\tmg-cprs\CPRS-Chart\uReminders.pas]
    3961ModuleType=SourceModule
    4062FormState=0
    … …  
    4668FormOnTop=0
    4769
     70[P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas]
     71ModuleType=SourceModule
     72FormState=0
     73FormOnTop=0
     74
     75[P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
     76FormState=0
     77FormOnTop=0
     78
    4879[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    4980FormState=0
    … …  
    5485FormOnTop=0
    5586
     87[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
     88FormState=0
     89FormOnTop=0
     90
     91[P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
     92FormState=0
     93FormOnTop=0
     94
    5695[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    5796FormState=0
    … …  
    5998
    6099[EditWindow0]
    61 ViewCount=5
    62 CurrentView=3
     100ViewCount=10
     101CurrentView=6
    63102View0=0
    64103View1=1
    … …  
    66105View3=3
    67106View4=4
     107View5=5
     108View6=6
     109View7=7
     110View8=8
     111View9=9
    68112CodeExplorer=CodeExplorer@EditWindow0
    69113MessageView=MessageView@EditWindow0
    70114Create=1
    71115Visible=1
    72 State=2
    73 Left=221
    74 Top=132
     116State=0
     117Left=168
     118Top=130
    75119Width=803
    76120Height=591
    77 MaxLeft=-4
    78 MaxTop=108
    79 MaxWidth=1032
    80 MaxHeight=664
    81 ClientWidth=1024
    82 ClientHeight=630
     121MaxLeft=-136
     122MaxTop=126
     123ClientWidth=795
     124ClientHeight=557
    83125LeftPanelSize=140
    84126LeftPanelClients=CodeExplorer@EditWindow0
    85 LeftPanelData=00000400000000008C00000000000000027E010000000000000100000000000000000000000001000000008C0000000C000000436F64654578706C6F726572FFFFFFFF
     127LeftPanelData=00000400000000008C000000000000000235010000000000000100000000000000000000000001000000008C0000000C000000436F64654578706C6F726572FFFFFFFF
    86128RightPanelSize=0
    87129BottomPanelSize=245
    88 BottomPanelClients=MessageView@EditWindow0,DockSite1
    89 BottomPanelData=00000400010000000B0000004D65737361676556696577F50000000000000001000400000000000001000000002A000000000000000100000002F50000000000000002000000000004000009000000446F636B53697465310200000000000400000B0000004D657373616765566965770200000000000400000000000002000000000004000000000000FFFFFFFF
     130BottomPanelClients=DockSite0,MessageView@EditWindow0
     131BottomPanelData=0000040000000000F500000000000000011B0300000000000001000000002A000000000000000100000002F50000000000000002000000004B01000009000000446F636B536974653002000000001B0300000B0000004D65737361676556696577020000000000040000000000000200000000000400000000000002000000000004000000000000FFFFFFFF
    90132
    91133[View0]
     134Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     135CursorX=63
     136CursorY=1590
     137TopLine=1583
     138LeftCol=1
     139
     140[View1]
    92141Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    93 CursorX=64
    94 CursorY=363
    95 TopLine=352
    96 LeftCol=1
    97 
    98 [View1]
    99 Module=P:\vista\tmg-cprs\CPRS-Chart\rReports.pas
    100142CursorX=1
    101 CursorY=642
    102 TopLine=630
     143CursorY=333
     144TopLine=324
    103145LeftCol=1
    104146
    105147[View2]
    106 Module=P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas
    107 CursorX=9
    108 CursorY=310
    109 TopLine=301
     148Module=P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas
     149CursorX=54
     150CursorY=103
     151TopLine=97
    110152LeftCol=1
    111153
    112154[View3]
    113 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
     155Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    114156CursorX=1
    115 CursorY=1479
    116 TopLine=1470
     157CursorY=382
     158TopLine=375
    117159LeftCol=1
    118160
    119161[View4]
     162Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas
     163CursorX=1
     164CursorY=98
     165TopLine=89
     166LeftCol=1
     167
     168[View5]
     169Module=P:\vista\tmg-cprs\CPRS-Chart\uReminders.pas
     170CursorX=1
     171CursorY=4507
     172TopLine=4558
     173LeftCol=1
     174
     175[View6]
     176Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
     177CursorX=1
     178CursorY=580
     179TopLine=573
     180LeftCol=1
     181
     182[View7]
     183Module=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
     184CursorX=1
     185CursorY=559
     186TopLine=550
     187LeftCol=1
     188
     189[View8]
    120190Module=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
    121 CursorX=22
    122 CursorY=135
    123 TopLine=114
     191CursorX=1
     192CursorY=760
     193TopLine=751
     194LeftCol=1
     195
     196[View9]
     197Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
     198CursorX=7
     199CursorY=472
     200TopLine=457
    124201LeftCol=1
    125202
    … …  
    139216
    140217[Watches]
    141 Count=1
     218Count=3
    142219Watch0='frmPtSel',256,0,18,1,0,'Watches'
     220Watch1='FRealType',256,0,18,1,0,'Watches'
     221Watch2='FDialog',256,0,18,1,0,'Watches'
    143222
    144223[WatchWindow]
    … …  
    150229Left=0
    151230Top=0
    152 Width=1004
     231Width=307
    153232Height=216
    154233MaxLeft=-1
    155234MaxTop=-1
    156 ClientWidth=1004
     235ClientWidth=307
    157236ClientHeight=216
    158237TBDockHeight=264
    … …  
    161240
    162241[Breakpoints]
    163 Count=12
     242Count=33
    164243Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\rCover.pas',315,'',0,1,'',1,0,0,'',1,'','',''
    165244Breakpoint1='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1516,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    169248Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',1068,'',0,1,'',1,0,0,'',1,'','',''
    170249Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas',286,'',0,1,'',1,0,0,'',1,'','',''
    171 Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4423,'',0,1,'',1,0,0,'',1,'','',''
    172 Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas',293,'',0,1,'',1,0,0,'',1,'','',''
    173 Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3692,'',0,1,'',1,0,0,'',1,'','',''
    174 Breakpoint10='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1059,'',0,1,'',1,0,0,'',1,'','',''
    175 Breakpoint11='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1076,'',0,1,'',1,0,0,'',1,'','',''
     250Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4424,'',0,1,'',1,0,0,'',1,'','',''
     251Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3692,'',0,1,'',1,0,0,'',1,'','',''
     252Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1059,'',0,1,'',1,0,0,'',1,'','',''
     253Breakpoint10='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1076,'',0,1,'',1,0,0,'',1,'','',''
     254Breakpoint11='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',319,'',0,1,'',1,0,0,'',1,'','',''
     255Breakpoint12='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',387,'',0,1,'',1,0,0,'',1,'','',''
     256Breakpoint13='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',562,'',0,1,'',1,0,0,'',1,'','',''
     257Breakpoint14='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',370,'',0,1,'',1,0,0,'',1,'','',''
     258Breakpoint15='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',382,'',0,1,'',1,0,0,'',1,'','',''
     259Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',760,'',0,1,'',1,0,0,'',1,'','',''
     260Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',1946,'',0,1,'',1,0,0,'',1,'','',''
     261Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',1947,'',0,1,'',1,0,0,'',1,'','',''
     262Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas',98,'',0,1,'',1,0,0,'',1,'','',''
     263Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2167,'',0,1,'',1,0,0,'',1,'','',''
     264Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',1942,'',0,1,'',1,0,0,'',1,'','',''
     265Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',1928,'',0,1,'',1,0,0,'',1,'','',''
     266Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',580,'',0,1,'',1,0,0,'',1,'','',''
     267Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas',292,'',0,1,'',1,0,0,'',1,'','',''
     268Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2474,'',0,1,'',1,0,0,'',1,'','',''
     269Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',1623,'',0,1,'',1,0,0,'',1,'','',''
     270Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',209,'',0,1,'',1,0,0,'',1,'','',''
     271Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',213,'',0,1,'',1,0,0,'',1,'','',''
     272Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3281,'',0,1,'',1,0,0,'',1,'','',''
     273Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3287,'',0,1,'',1,0,0,'',1,'','',''
     274Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',541,'',0,1,'',1,0,0,'',1,'','',''
     275Breakpoint32='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',1949,'',0,1,'',1,0,0,'',1,'','',''
    176276
    177277[AddressBreakpoints]
    … …  
    181281Create=1
    182282Visible=1
    183 State=0
     283State=2
    184284Left=0
    185285Top=0
    186286Width=1024
    187287Height=112
    188 MaxLeft=-1
    189 MaxTop=-1
    190 ClientWidth=1016
     288MaxLeft=-4
     289MaxTop=-4
     290MaxWidth=1032
     291MaxHeight=112
     292ClientWidth=1024
    191293ClientHeight=78
    192294
    … …  
    270372SplitPos=114
    271373ArrangeBy=Name
    272 SelectedItem=
     374SelectedItem=Caption
    273375ExpandedItems=CalColors,EdgeBorders,Options
    274376HiddenCategories=Legacy
    … …  
    300402Visible=0
    301403State=0
    302 Left=456
    303 Top=279
    304 Width=443
    305 Height=350
    306 MaxLeft=-1
    307 MaxTop=-1
    308 ClientWidth=435
    309 ClientHeight=324
     404Left=650
     405Top=247
     406Width=933
     407Height=416
     408MaxLeft=-1
     409MaxTop=-1
     410ClientWidth=925
     411ClientHeight=390
    310412TBDockHeight=411
    311413LRDockWidth=155
    … …  
    354456Left=0
    355457Top=0
    356 Width=1004
     458Width=307
    357459Height=216
    358460MaxLeft=-1
    359461MaxTop=-1
    360 ClientWidth=1004
     462ClientWidth=307
    361463ClientHeight=216
    362464TBDockHeight=291
    … …  
    463565Top=12
    464566Width=140
    465 Height=370
     567Height=297
    466568MaxLeft=-1
    467569MaxTop=-1
    468570ClientWidth=140
    469 ClientHeight=370
    470 TBDockHeight=370
     571ClientHeight=297
     572TBDockHeight=297
    471573LRDockWidth=140
    472574Dockable=1
    … …  
    474576[MessageView@EditWindow0]
    475577Create=1
    476 Visible=0
    477 State=0
    478 Left=524
    479 Top=0
    480 Width=500
     578Visible=1
     579State=0
     580Left=343
     581Top=0
     582Width=452
    481583Height=245
    482584MaxLeft=-1
    483585MaxTop=-1
    484 ClientWidth=500
     586ClientWidth=452
    485587ClientHeight=245
    486588TBDockHeight=245
    … …  
    496598Visible=1
    497599State=0
    498 Left=82
    499 Top=116
     600Left=12
     601Top=0
     602Width=315
     603Height=245
     604MaxLeft=-1
     605MaxTop=-1
     606ClientWidth=315
     607ClientHeight=245
     608TBDockHeight=245
     609LRDockWidth=283
     610Dockable=1
     611TabPosition=0
     612ActiveTab=Watch List
     613TabDockClients=WatchWindow,DebugLogView
     614
     615[DockSite1]
     616DockSiteType=1
     617Create=1
     618Visible=1
     619State=0
     620Left=10
     621Top=128
    500622Width=278
    501623Height=595
    … …  
    511633TabDockClients=PropertyInspector,ObjectTree
    512634
    513 [DockSite1]
    514 DockSiteType=1
    515 Create=1
    516 Visible=1
    517 State=0
    518 Left=12
    519 Top=0
    520 Width=1012
    521 Height=245
    522 MaxLeft=-1
    523 MaxTop=-1
    524 ClientWidth=1012
    525 ClientHeight=245
    526 TBDockHeight=245
    527 LRDockWidth=283
    528 Dockable=1
    529 TabPosition=0
    530 ActiveTab=Watch List
    531 TabDockClients=WatchWindow,DebugLogView
    532 

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

    r670 r686  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 1/19/2010 8:26:12 AM from Type Library described below.
     15// File generated on 1/22/2010 5:46:21 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r657 r686  
    9898  uCore,    //kt 8/09
    9999  Registry, //kt 8/09
    100   rOptions, uOptions, rCore, rTIU, rDCSumm;
     100  rOptions, uOptions, rCore, rTIU, rDCSumm, uTemplates;
    101101
    102102const
    … …  
    302302    end;
    303303  end;
     304  uTemplates.bUsingHTMLMode := Value;    //test line  //elh
    304305end;
    305306

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

    r655 r686  
    8181  frmTemplateDialog: TfrmTemplateDialog;
    8282
    83 implementation
    84 
    85 uses dShared, uConst, uTemplateFields, fRptBox, uInit, rMisc;
    86 
    87 {$R *.DFM}
    88 
    8983const
    90   Gap = 4;
    91   IndentGap = 18;
    9284  HTMLBEGINNINGTAG = '{HTML:';   //kt
    9385  HTMLENDINGTAG = '}';       //kt
    9486  HTMLBEGINNINGTAGLEN = length(HTMLBEGINNINGTAG);  //kt
    9587  HTMLENDINGTAGLEN = length(HTMLENDINGTAG);   //kt
     88
     89implementation
     90
     91uses dShared, uConst, uTemplateFields, fRptBox, uInit, rMisc;
     92
     93{$R *.DFM}
     94
     95const
     96  Gap = 4;
     97  IndentGap = 18;
     98
    9699
    97100

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

    r654 r686  
    16211621    FPrintName := Piece(DataString, U, 4);
    16221622    FExclude := (Piece(DataString, U, 5) = '1');
    1623     FDialog :=  (Piece(DataString, U, 9) = '1');
     1623    FDialog :=  (Piece(DataString, U, 9) = '1');  //TEMPLATE  //ELH
    16241624    FDisplayOnly := (Piece(DataString, U, 10) = '1');
    16251625    FFirstLine := (Piece(DataString, U, 11) = '1');

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

    r541 r686  
    15881588  inherited;
    15891589  //kt --- Begin Modification 9-2005, 8/09 -------------
     1590  fOptionsNotes.Loaded;    //ported from version .15   1-27-10
    15901591  CacheDir := ExtractFilePath(ParamStr(0))+ 'Cache'; //kt 9-05
    15911592  if not DirectoryExists(CacheDir) then CreateDir(CacheDir);

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

    r671 r686  
    4646       fTMGPrintingAnimation,
    4747       ExtCtrls,
     48       fTemplateDialog,
    4849       StrUtils;
    4950
    … …  
    286287  function IsHTML(Line : String): boolean;
    287288  {Purpose: To look at the Text and determine if it is an HTML document.
    288    Test used: if document contains <!DOCTYPE HTML" or <HTML> or </BODY>
     289   Test used: if document contains <!DOCTYPE HTML" or <HTML> or </BODY> or other tags
    289290        This is not a fool-proof test...                                   
    290291   NOTE: **This does NOT call ScanForSubs as the other IsHTML(TStrings) function does.     }
    291        
     292
    292293  begin
    293294    Result := false;  //default of false
    294295    Line := UpperCase(Line);
    295296    if (Pos('<!DOCTYPE HTML',Line) > 0)
    296       or (Pos('<HTML>',Line) > 0)
     297      or (Pos('<HTML>',Line) > 0)
     298      or (Pos('<BR>',Line) > 0)
     299      or (Pos(fTemplateDialog.HTMLBEGINNINGTAG,Line) > 0)
     300      or (Pos('<P>',Line) > 0)
     301      or (Pos('&NBSP',Line) > 0)
    297302      or (Pos('</BODY>',Line) > 0)then begin
    298303      Result := true;
    … …  
    522527      for i := EndHTMLLine+1 to Lines.Count-1 do Lines.Delete(EndHTMLLine+1);
    523528    end;
    524   end; 
     529  end;
    525530
    526531  Function FixHTMLCRLF(Text : String) : string;
    … …  
    529534    Result := AnsiReplaceText(Result,'>'+CRLF,'>'#$1F); //protect sequences we want
    530535    Result := AnsiReplaceText(Result,CRLF,'<BR>'+CRLF); //Add <BR>'s to CrLf's
    531     Result := AnsiReplaceText(Result,'>'#$1F,'>'+CRLF); //Restore sequences we wanted
     536    Result := AnsiReplaceText(Result,'>'#$1F,'><BR>'+CRLF); //Restore sequences we wanted
    532537    Result := AnsiReplaceText(Result,#$1E,'<NO DATA>'); //Restore sequences we wanted
    533538  end;
Note: See TracChangeset for help on using the changeset viewer.