Ignore:
Timestamp:
Jan 4, 2010, 8:02:21 AM (15 years ago)
Author:
Kevin Toppenberg
Message:

Added HTML templating

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

Legend:

Unmodified
Added
Removed

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

    r612 r654  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 11/27/2009 5:46:58 PM from Type Library described below.
     15// File generated on 12/28/2009 9:26:13 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r612 r654  
    101101UsePackages=0
    102102[Parameters]
    103 RunParams=CCOW=disable s=localhost p=9260 SPOOF-VER=1.0.26.76
     103RunParams=CCOW=disable s=192.168.3.97 p=9260 SPOOF-VER=1.0.26.69
    104104HostApplication=
    105105Launcher=

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

    r612 r654  
    184184#define QConsts_STooManyMessageBoxButtons 65102
    185185#define QConsts_SmkcBkSp 65103
    186 #define TeeConst_TeeMsg_ValuesArrowEndY 65104
    187 #define ComConst_SCreateRegKeyError 65105
    188 #define ComConst_SOleError 65106
    189 #define ComConst_SObjectFactoryMissing 65107
    190 #define ComConst_STypeInfoMissing 65108
    191 #define ComConst_SBadTypeInfo 65109
    192 #define ComConst_SDispIntfMissing 65110
    193 #define ComConst_SNoMethod 65111
    194 #define ComConst_SVarNotObject 65112
    195 #define ComConst_STooManyParams 65113
    196 #define ComConst_SDCOMNotInstalled 65114
    197 #define ComConst_SDAXError 65115
    198 #define ComConst_SAutomationWarning 65116
    199 #define ComConst_SNoCloseActiveServer1 65117
    200 #define ComConst_SNoCloseActiveServer2 65118
     186#define TeeConst_TeeMsg_FunctionAverage 65104
     187#define TeeConst_TeeMsg_DefaultFontName 65105
     188#define TeeConst_TeeMsg_CheckPointerSize 65106
     189#define TeeConst_TeeMsg_FunctionPeriod 65107
     190#define TeeConst_TeeMsg_PieOther 65108
     191#define TeeConst_TeeMsg_ValuesX 65109
     192#define TeeConst_TeeMsg_ValuesY 65110
     193#define TeeConst_TeeMsg_ValuesPie 65111
     194#define TeeConst_TeeMsg_ValuesBar 65112
     195#define TeeConst_TeeMsg_ValuesAngle 65113
     196#define TeeConst_TeeMsg_ValuesGanttStart 65114
     197#define TeeConst_TeeMsg_ValuesGanttEnd 65115
     198#define TeeConst_TeeMsg_ValuesGanttNextTask 65116
     199#define TeeConst_TeeMsg_ValuesArrowEndX 65117
     200#define TeeConst_TeeMsg_ValuesArrowEndY 65118
    201201#define TntSystem_SBufferOverflow 65119
    202 #define TeeConst_TeeMsg_FunctionHigh 65120
    203 #define TeeConst_TeeMsg_FunctionLow 65121
    204 #define TeeConst_TeeMsg_FunctionAverage 65122
    205 #define TeeConst_TeeMsg_DefaultFontName 65123
    206 #define TeeConst_TeeMsg_CheckPointerSize 65124
    207 #define TeeConst_TeeMsg_FunctionPeriod 65125
    208 #define TeeConst_TeeMsg_PieOther 65126
    209 #define TeeConst_TeeMsg_ValuesX 65127
    210 #define TeeConst_TeeMsg_ValuesY 65128
    211 #define TeeConst_TeeMsg_ValuesPie 65129
    212 #define TeeConst_TeeMsg_ValuesBar 65130
    213 #define TeeConst_TeeMsg_ValuesAngle 65131
    214 #define TeeConst_TeeMsg_ValuesGanttStart 65132
    215 #define TeeConst_TeeMsg_ValuesGanttEnd 65133
    216 #define TeeConst_TeeMsg_ValuesGanttNextTask 65134
    217 #define TeeConst_TeeMsg_ValuesArrowEndX 65135
    218 #define TeeConst_TeeMsg_GalleryGantt 65136
    219 #define TeeConst_TeeMsg_GanttSample1 65137
    220 #define TeeConst_TeeMsg_GanttSample2 65138
    221 #define TeeConst_TeeMsg_GanttSample3 65139
    222 #define TeeConst_TeeMsg_GanttSample4 65140
    223 #define TeeConst_TeeMsg_GanttSample5 65141
    224 #define TeeConst_TeeMsg_GanttSample6 65142
    225 #define TeeConst_TeeMsg_GanttSample7 65143
    226 #define TeeConst_TeeMsg_GanttSample8 65144
    227 #define TeeConst_TeeMsg_GanttSample9 65145
    228 #define TeeConst_TeeMsg_GanttSample10 65146
    229 #define TeeConst_TeeMsg_DefaultFontSize 65147
    230 #define TeeConst_TeeMsg_FunctionAdd 65148
    231 #define TeeConst_TeeMsg_FunctionSubtract 65149
    232 #define TeeConst_TeeMsg_FunctionMultiply 65150
    233 #define TeeConst_TeeMsg_FunctionDivide 65151
    234 #define TeeConst_TeeMsg_GalleryBar 65152
    235 #define TeeConst_TeeMsg_GalleryHorizBar 65153
    236 #define TeeConst_TeeMsg_GalleryPie 65154
    237 #define TeeConst_TeeMsg_GalleryFastLine 65155
    238 #define TeeConst_TeeMsg_Rotation 65156
    239 #define TeeConst_TeeMsg_PieSample1 65157
    240 #define TeeConst_TeeMsg_PieSample2 65158
    241 #define TeeConst_TeeMsg_PieSample3 65159
    242 #define TeeConst_TeeMsg_PieSample4 65160
    243 #define TeeConst_TeeMsg_PieSample5 65161
    244 #define TeeConst_TeeMsg_PieSample6 65162
    245 #define TeeConst_TeeMsg_PieSample7 65163
    246 #define TeeConst_TeeMsg_PieSample8 65164
    247 #define TeeConst_TeeMsg_GalleryStandard 65165
    248 #define TeeConst_TeeMsg_GalleryFunctions 65166
    249 #define TeeConst_TeeMsg_GalleryArrow 65167
    250 #define TeeConst_TeeMsg_AxisMinMax 65168
    251 #define TeeConst_TeeMsg_AxisMaxMin 65169
    252 #define TeeConst_TeeMsg_AxisLogBase 65170
    253 #define TeeConst_TeeMsg_MaxPointsPerPage 65171
    254 #define TeeConst_TeeMsg_3dPercent 65172
    255 #define TeeConst_TeeMsg_CircularSeries 65173
    256 #define TeeConst_TeeMsg_BarWidthPercent 65174
    257 #define TeeConst_TeeMsg_BarOffsetPercent 65175
    258 #define TeeConst_TeeMsg_DefaultPercentOf 65176
    259 #define TeeConst_TeeMsg_DefPercentFormat 65177
    260 #define TeeConst_TeeMsg_DefValueFormat 65178
    261 #define TeeConst_TeeMsg_AxisTitle 65179
    262 #define TeeConst_TeeMsg_AxisLabels 65180
    263 #define TeeConst_TeeMsg_GalleryLine 65181
    264 #define TeeConst_TeeMsg_GalleryPoint 65182
    265 #define TeeConst_TeeMsg_GalleryArea 65183
     202#define TeeConst_TeeMsg_GanttSample2 65120
     203#define TeeConst_TeeMsg_GanttSample3 65121
     204#define TeeConst_TeeMsg_GanttSample4 65122
     205#define TeeConst_TeeMsg_GanttSample5 65123
     206#define TeeConst_TeeMsg_GanttSample6 65124
     207#define TeeConst_TeeMsg_GanttSample7 65125
     208#define TeeConst_TeeMsg_GanttSample8 65126
     209#define TeeConst_TeeMsg_GanttSample9 65127
     210#define TeeConst_TeeMsg_GanttSample10 65128
     211#define TeeConst_TeeMsg_DefaultFontSize 65129
     212#define TeeConst_TeeMsg_FunctionAdd 65130
     213#define TeeConst_TeeMsg_FunctionSubtract 65131
     214#define TeeConst_TeeMsg_FunctionMultiply 65132
     215#define TeeConst_TeeMsg_FunctionDivide 65133
     216#define TeeConst_TeeMsg_FunctionHigh 65134
     217#define TeeConst_TeeMsg_FunctionLow 65135
     218#define TeeConst_TeeMsg_GalleryPie 65136
     219#define TeeConst_TeeMsg_GalleryFastLine 65137
     220#define TeeConst_TeeMsg_Rotation 65138
     221#define TeeConst_TeeMsg_PieSample1 65139
     222#define TeeConst_TeeMsg_PieSample2 65140
     223#define TeeConst_TeeMsg_PieSample3 65141
     224#define TeeConst_TeeMsg_PieSample4 65142
     225#define TeeConst_TeeMsg_PieSample5 65143
     226#define TeeConst_TeeMsg_PieSample6 65144
     227#define TeeConst_TeeMsg_PieSample7 65145
     228#define TeeConst_TeeMsg_PieSample8 65146
     229#define TeeConst_TeeMsg_GalleryStandard 65147
     230#define TeeConst_TeeMsg_GalleryFunctions 65148
     231#define TeeConst_TeeMsg_GalleryArrow 65149
     232#define TeeConst_TeeMsg_GalleryGantt 65150
     233#define TeeConst_TeeMsg_GanttSample1 65151
     234#define TeeConst_TeeMsg_AxisLogBase 65152
     235#define TeeConst_TeeMsg_MaxPointsPerPage 65153
     236#define TeeConst_TeeMsg_3dPercent 65154
     237#define TeeConst_TeeMsg_CircularSeries 65155
     238#define TeeConst_TeeMsg_BarWidthPercent 65156
     239#define TeeConst_TeeMsg_BarOffsetPercent 65157
     240#define TeeConst_TeeMsg_DefaultPercentOf 65158
     241#define TeeConst_TeeMsg_DefPercentFormat 65159
     242#define TeeConst_TeeMsg_DefValueFormat 65160
     243#define TeeConst_TeeMsg_AxisTitle 65161
     244#define TeeConst_TeeMsg_AxisLabels 65162
     245#define TeeConst_TeeMsg_GalleryLine 65163
     246#define TeeConst_TeeMsg_GalleryPoint 65164
     247#define TeeConst_TeeMsg_GalleryArea 65165
     248#define TeeConst_TeeMsg_GalleryBar 65166
     249#define TeeConst_TeeMsg_GalleryHorizBar 65167
     250#define ComConst_SAutomationWarning 65168
     251#define ComConst_SNoCloseActiveServer1 65169
     252#define ComConst_SNoCloseActiveServer2 65170
     253#define TeeConst_TeeMsg_LegendTopPos 65171
     254#define TeeConst_TeeMsg_LegendFirstValue 65172
     255#define TeeConst_TeeMsg_LegendColorWidth 65173
     256#define TeeConst_TeeMsg_SeriesSetDataSource 65174
     257#define TeeConst_TeeMsg_SeriesInvDataSource 65175
     258#define TeeConst_TeeMsg_FillSample 65176
     259#define TeeConst_TeeMsg_Angle 65177
     260#define TeeConst_TeeMsg_AxisLogDateTime 65178
     261#define TeeConst_TeeMsg_AxisLogNotPositive 65179
     262#define TeeConst_TeeMsg_AxisLabelSep 65180
     263#define TeeConst_TeeMsg_AxisIncrementNeg 65181
     264#define TeeConst_TeeMsg_AxisMinMax 65182
     265#define TeeConst_TeeMsg_AxisMaxMin 65183
    266266#define ComStrs_sFailSetCalDateTime 65184
    267267#define ComStrs_sFailSetCalMaxSelRange 65185
    … …  
    269269#define ComStrs_sFailsetCalSelRange 65187
    270270#define WinHelpViewer_hNoKeyword 65188
    271 #define TeeConst_TeeMsg_LegendTopPos 65189
    272 #define TeeConst_TeeMsg_LegendFirstValue 65190
    273 #define TeeConst_TeeMsg_LegendColorWidth 65191
    274 #define TeeConst_TeeMsg_SeriesSetDataSource 65192
    275 #define TeeConst_TeeMsg_SeriesInvDataSource 65193
    276 #define TeeConst_TeeMsg_FillSample 65194
    277 #define TeeConst_TeeMsg_Angle 65195
    278 #define TeeConst_TeeMsg_AxisLogDateTime 65196
    279 #define TeeConst_TeeMsg_AxisLogNotPositive 65197
    280 #define TeeConst_TeeMsg_AxisLabelSep 65198
    281 #define TeeConst_TeeMsg_AxisIncrementNeg 65199
     271#define ComConst_SCreateRegKeyError 65189
     272#define ComConst_SOleError 65190
     273#define ComConst_SObjectFactoryMissing 65191
     274#define ComConst_STypeInfoMissing 65192
     275#define ComConst_SBadTypeInfo 65193
     276#define ComConst_SDispIntfMissing 65194
     277#define ComConst_SNoMethod 65195
     278#define ComConst_SVarNotObject 65196
     279#define ComConst_STooManyParams 65197
     280#define ComConst_SDCOMNotInstalled 65198
     281#define ComConst_SDAXError 65199
    282282#define ComStrs_sTabFailGetObject 65200
    283283#define ComStrs_sTabFailSet 65201
    … …  
    793793        QConsts_STooManyMessageBoxButtons,      "Too many buttons specified for message box"
    794794        QConsts_SmkcBkSp,       "Backspace"
    795         TeeConst_TeeMsg_ValuesArrowEndY,        "EndY"
    796         ComConst_SCreateRegKeyError,    "Error creating system registry entry"
    797         ComConst_SOleError,     "OLE error %.8x"
    798         ComConst_SObjectFactoryMissing, "Object factory for class %s missing"
    799         ComConst_STypeInfoMissing,      "Type information missing for class %s"
    800         ComConst_SBadTypeInfo,  "Incorrect type information for class %s"
    801         ComConst_SDispIntfMissing,      "Dispatch interface missing from class %s"
    802         ComConst_SNoMethod,     "Method '%s' not supported by automation object"
    803         ComConst_SVarNotObject, "Variant does not reference an automation object"
    804         ComConst_STooManyParams,        "Dispatch methods do not support more than 64 parameters"
    805         ComConst_SDCOMNotInstalled,     "DCOM not installed"
    806         ComConst_SDAXError,     "DAX Error"
    807         ComConst_SAutomationWarning,    "COM Server Warning"
    808         ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application.  One or more clients may have references to these objects, so manually closing "
    809         ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
    810         TntSystem_SBufferOverflow,      "Buffer overflow"
    811         TeeConst_TeeMsg_FunctionHigh,   "High"
    812         TeeConst_TeeMsg_FunctionLow,    "Low"
    813795        TeeConst_TeeMsg_FunctionAverage,        "Average"
    814796        TeeConst_TeeMsg_DefaultFontName,        "Arial"
    … …  
    825807        TeeConst_TeeMsg_ValuesGanttNextTask,    "NextTask"
    826808        TeeConst_TeeMsg_ValuesArrowEndX,        "EndX"
    827         TeeConst_TeeMsg_GalleryGantt,   "Gantt"
    828         TeeConst_TeeMsg_GanttSample1,   "Design"
     809        TeeConst_TeeMsg_ValuesArrowEndY,        "EndY"
     810        TntSystem_SBufferOverflow,      "Buffer overflow"
    829811        TeeConst_TeeMsg_GanttSample2,   "Prototyping"
    830812        TeeConst_TeeMsg_GanttSample3,   "Development"
    … …  
    841823        TeeConst_TeeMsg_FunctionMultiply,       "Multiply"
    842824        TeeConst_TeeMsg_FunctionDivide, "Divide"
    843         TeeConst_TeeMsg_GalleryBar,     "Bar"
    844         TeeConst_TeeMsg_GalleryHorizBar,        "Horiz. Bar"
     825        TeeConst_TeeMsg_FunctionHigh,   "High"
     826        TeeConst_TeeMsg_FunctionLow,    "Low"
    845827        TeeConst_TeeMsg_GalleryPie,     "Pie"
    846828        TeeConst_TeeMsg_GalleryFastLine,        "Fast Line"
    … …  
    857839        TeeConst_TeeMsg_GalleryFunctions,       "Functions"
    858840        TeeConst_TeeMsg_GalleryArrow,   "Arrow"
    859         TeeConst_TeeMsg_AxisMinMax,     "Axis Minimum Value must be <= Maximum"
    860         TeeConst_TeeMsg_AxisMaxMin,     "Axis Maximum Value must be >= Minimum"
     841        TeeConst_TeeMsg_GalleryGantt,   "Gantt"
     842        TeeConst_TeeMsg_GanttSample1,   "Design"
    861843        TeeConst_TeeMsg_AxisLogBase,    "Axis Logarithmic Base should be >= 2"
    862844        TeeConst_TeeMsg_MaxPointsPerPage,       "MaxPointsPerPage must be >= 0"
    … …  
    873855        TeeConst_TeeMsg_GalleryPoint,   "Point"
    874856        TeeConst_TeeMsg_GalleryArea,    "Area"
    875         ComStrs_sFailSetCalDateTime,    "Failed to set calendar date or time"
    876         ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"
    877         ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
    878         ComStrs_sFailsetCalSelRange,    "Failed to set calendar selected range"
    879         WinHelpViewer_hNoKeyword,       "No help keyword specified."
     857        TeeConst_TeeMsg_GalleryBar,     "Bar"
     858        TeeConst_TeeMsg_GalleryHorizBar,        "Horiz. Bar"
     859        ComConst_SAutomationWarning,    "COM Server Warning"
     860        ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application.  One or more clients may have references to these objects, so manually closing "
     861        ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
    880862        TeeConst_TeeMsg_LegendTopPos,   "Top Legend Position must be between 0 and 100 %"
    881863        TeeConst_TeeMsg_LegendFirstValue,       "First Legend Value must be > 0"
    … …  
    889871        TeeConst_TeeMsg_AxisLabelSep,   "Labels Separation % must be greater than 0"
    890872        TeeConst_TeeMsg_AxisIncrementNeg,       "Axis increment must be >= 0"
     873        TeeConst_TeeMsg_AxisMinMax,     "Axis Minimum Value must be <= Maximum"
     874        TeeConst_TeeMsg_AxisMaxMin,     "Axis Maximum Value must be >= Minimum"
     875        ComStrs_sFailSetCalDateTime,    "Failed to set calendar date or time"
     876        ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"
     877        ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
     878        ComStrs_sFailsetCalSelRange,    "Failed to set calendar selected range"
     879        WinHelpViewer_hNoKeyword,       "No help keyword specified."
     880        ComConst_SCreateRegKeyError,    "Error creating system registry entry"
     881        ComConst_SOleError,     "OLE error %.8x"
     882        ComConst_SObjectFactoryMissing, "Object factory for class %s missing"
     883        ComConst_STypeInfoMissing,      "Type information missing for class %s"
     884        ComConst_SBadTypeInfo,  "Incorrect type information for class %s"
     885        ComConst_SDispIntfMissing,      "Dispatch interface missing from class %s"
     886        ComConst_SNoMethod,     "Method '%s' not supported by automation object"
     887        ComConst_SVarNotObject, "Variant does not reference an automation object"
     888        ComConst_STooManyParams,        "Dispatch methods do not support more than 64 parameters"
     889        ComConst_SDCOMNotInstalled,     "DCOM not installed"
     890        ComConst_SDAXError,     "DAX Error"
    891891        ComStrs_sTabFailGetObject,      "Failed to get object at index %d"
    892892        ComStrs_sTabFailSet,    "Failed to set tab \"%s\" at index %d"

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

    r612 r654  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',0,1,189,1,207,0,0
    3 File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',0,1,231,19,242,0,0
    4 File_2=SourceModule,'P:\vista\tmg-cprs\CPRSChart.ini',0,1,1,9,18,0,0
    5 File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas',0,1,343,29,349,1,0
    6 File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas',0,1,731,1,736,1,0
    7 File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',0,1,551,41,562,0,0
    8 File_6=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Windows.pas',0,1,28958,88,28963,0,0
    9 File_7=SourceModule,'P:\vista\CPRS-1.0.23.15\CPRS-Chart\fDrawers.pas',0,1,1605,1,1614,0,0
    10 File_8=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\rCore.pas',0,1,933,1,945,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\dShared.pas',0,1,1,1,1,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',0,1,975,1,986,0,0
     4File_2=SourceModule,'c:\program files\borland\delphi7\source\vcl\ComCtrls.pas',0,1,8808,1,8828,0,0
     5File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',0,1,88,51,95,0,0
     6File_4=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\variants.pas',0,1,740,1,747,0,0
     7File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',0,1,3123,1,3130,0,0
     8File_6=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,4201,1,4214,0,0
     9File_7=SourceModule,'c:\program files\borland\delphi7\source\vcl\Controls.pas',0,1,5874,1,5887,0,0
     10File_8=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',0,1,629,1,636,0,0
    1111
    1212[Modules]
    13 Module0=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
    14 Module1=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    15 Module2=P:\vista\tmg-cprs\CPRS-Chart\fxBroker.pas
    16 Module3=P:\Vista\tmg-cprs\CPRS-Lib\ORSystem.pas
    17 Module4=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    18 Module5=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
    19 Module6=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    20 Module7=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    21 Module8=P:\vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas
    22 Module9=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
    23 Count=10
     13Module0=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
     14Module1=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     15Count=2
    2416EditWindowCount=1
    2517TypeLibWindowCount=1
    26 
    27 [P:\vista\tmg-cprs\CPRS-Chart\fImages.pas]
    28 ModuleType=SourceModule
    29 FormState=0
    30 FormOnTop=0
    31 
    32 [P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
    33 ModuleType=SourceModule
    34 FormState=0
    35 FormOnTop=0
    36 
    37 [P:\vista\tmg-cprs\CPRS-Chart\fxBroker.pas]
    38 ModuleType=SourceModule
    39 FormState=0
    40 FormOnTop=0
    41 
    42 [P:\Vista\tmg-cprs\CPRS-Lib\ORSystem.pas]
    43 ModuleType=SourceModule
    44 FormState=0
    45 FormOnTop=0
    46 
    47 [P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    48 ModuleType=SourceModule
    49 FormState=0
    50 FormOnTop=0
    51 
    52 [P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas]
    53 ModuleType=SourceModule
    54 FormState=0
    55 FormOnTop=0
    56 
    57 [c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
    58 ModuleType=SourceModule
    59 FormState=0
    60 FormOnTop=0
    61 
    62 [C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
    63 ModuleType=SourceModule
    64 FormState=0
    65 FormOnTop=0
    66 
    67 [P:\vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas]
    68 ModuleType=SourceModule
    69 FormState=0
    70 FormOnTop=0
    7118
    7219[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas]
    … …  
    7522FormOnTop=0
    7623
     24[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     25ModuleType=SourceModule
     26FormState=0
     27FormOnTop=0
     28
    7729[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    7830FormState=0
    7931FormOnTop=0
    8032
    81 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    82 FormState=0
    83 FormOnTop=0
    84 
    8533[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    8634FormState=0
    8735FormOnTop=0
    8836
    89 [P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    90 FormState=0
    91 FormOnTop=0
    92 
    93 [P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
    94 FormState=0
    95 FormOnTop=0
    96 
    97 [P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    98 FormState=0
    99 FormOnTop=0
    100 
    101 [P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
    102 FormState=0
    103 FormOnTop=0
    104 
    10537[EditWindow0]
    106 ViewCount=10
    107 CurrentView=7
     38ViewCount=2
     39CurrentView=1
    10840View0=0
    10941View1=1
    110 View2=2
    111 View3=3
    112 View4=4
    113 View5=5
    114 View6=6
    115 View7=7
    116 View8=8
    117 View9=9
    11842CodeExplorer=CodeExplorer@EditWindow0
    11943MessageView=MessageView@EditWindow0
    … …  
    12145Visible=1
    12246State=0
    123 Left=-794
    124 Top=176
    125 Width=787
    126 Height=569
    127 MaxLeft=-4
    128 MaxTop=104
    129 ClientWidth=779
    130 ClientHeight=535
    131 LeftPanelSize=0
    132 LeftPanelClients=DockSite1
    133 LeftPanelData=000004000100000009000000446F636B5369746531000000000000000000000000000000000001000000000000000000000000FFFFFFFF
     47Left=280
     48Top=126
     49Width=694
     50Height=485
     51MaxLeft=-1
     52MaxTop=-1
     53ClientWidth=686
     54ClientHeight=451
     55LeftPanelSize=140
     56LeftPanelClients=CodeExplorer@EditWindow0
     57LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
    13458RightPanelSize=0
    135 BottomPanelSize=87
     59BottomPanelSize=0
    13660BottomPanelClients=MessageView@EditWindow0
    137 BottomPanelData=00000400000000000B030000000000000257000000000000000100000000000000000000000001000000002303000000000000010000000023030000000000000100000000230300000000000001000000008F0200000000000001000000000B0300000B0000004D65737361676556696577FFFFFFFF
     61BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
    13862
    13963[View0]
    140 Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     64Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    14165CursorX=1
    142 CursorY=4512
    143 TopLine=4502
     66CursorY=1
     67TopLine=1
    14468LeftCol=1
    14569
    14670[View1]
    147 Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    148 CursorX=1
    149 CursorY=859
    150 TopLine=850
    151 LeftCol=1
    152 
    153 [View2]
    154 Module=P:\Vista\tmg-cprs\CPRS-Lib\ORSystem.pas
    155 CursorX=1
    156 CursorY=132
    157 TopLine=121
    158 LeftCol=1
    159 
    160 [View3]
    161 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    162 CursorX=39
    163 CursorY=1483
    164 TopLine=1468
    165 LeftCol=1
    166 
    167 [View4]
    168 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    169 CursorX=1
    170 CursorY=16069
    171 TopLine=16058
    172 LeftCol=1
    173 
    174 [View5]
    175 Module=P:\vista\tmg-cprs\CPRS-Chart\fxBroker.pas
    176 CursorX=1
    177 CursorY=128
    178 TopLine=121
    179 LeftCol=1
    180 
    181 [View6]
    182 Module=P:\vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas
    183 CursorX=75
    184 CursorY=1265
    185 TopLine=1254
    186 LeftCol=1
    187 
    188 [View7]
    189 Module=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
    190 CursorX=46
    191 CursorY=844
    192 TopLine=834
    193 LeftCol=1
    194 
    195 [View8]
    196 Module=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
    197 CursorX=47
    198 CursorY=328
    199 TopLine=317
    200 LeftCol=1
    201 
    202 [View9]
    20371Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
    204 CursorX=1
    205 CursorY=189
    206 TopLine=178
     72CursorX=13
     73CursorY=894
     74TopLine=882
    20775LeftCol=1
    20876
    … …  
    22290
    22391[Watches]
    224 Count=4
    225 Watch0='CachedWPField',256,0,18,1,0,'Watches'
    226 Watch1='DataForGrid.indexof',256,0,18,1,0,'Watches'
    227 Watch2='E',256,0,18,1,0,'Watches'
    228 Watch3='MarkForDelete',256,0,18,1,0,'Watches'
     92Count=1
     93Watch0='frmPtSel',256,0,18,1,0,'Watches'
    22994
    23095[WatchWindow]
    … …  
    23499Visible=1
    235100State=0
    236 Left=0
    237 Top=0
    238 Width=207
    239 Height=621
    240 MaxLeft=-1
    241 MaxTop=-1
    242 ClientWidth=207
    243 ClientHeight=621
    244 TBDockHeight=234
     101Left=-785
     102Top=535
     103Width=750
     104Height=229
     105MaxLeft=-1
     106MaxTop=-1
     107ClientWidth=742
     108ClientHeight=203
     109TBDockHeight=57
    245110LRDockWidth=421
    246111Dockable=1
    247112
    248113[Breakpoints]
    249 Count=7
     114Count=8
    250115Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\rCover.pas',315,'',0,1,'',1,0,0,'',1,'','',''
    251 Breakpoint1='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\TMGHTML2.pas',688,'',0,1,'',1,0,0,'',1,'','',''
    252 Breakpoint2='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1516,'',0,1,'',1,0,0,'',1,'','',''
    253 Breakpoint3='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1540,'',0,1,'',1,0,0,'',1,'','',''
    254 Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1710,'',0,1,'',1,0,0,'',1,'','',''
    255 Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1787,'',0,1,'',1,0,0,'',1,'','',''
    256 Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',858,'',0,1,'',1,0,0,'',1,'','',''
     116Breakpoint1='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1516,'',0,1,'',1,0,0,'',1,'','',''
     117Breakpoint2='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1540,'',0,1,'',1,0,0,'',1,'','',''
     118Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1710,'',0,1,'',1,0,0,'',1,'','',''
     119Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1787,'',0,1,'',1,0,0,'',1,'','',''
     120Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',1068,'',0,1,'',1,0,0,'',1,'','',''
     121Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas',286,'',0,1,'',1,0,0,'',1,'','',''
     122Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',627,'',0,1,'',1,0,0,'',1,'','',''
    257123
    258124[AddressBreakpoints]
    … …  
    269135MaxLeft=-4
    270136MaxTop=-4
    271 MaxWidth=808
     137MaxWidth=1032
    272138MaxHeight=112
    273 ClientWidth=800
     139ClientWidth=1024
    274140ClientHeight=78
    275141
    … …  
    310176Visible=0
    311177State=0
    312 Left=220
    313 Top=110
     178Left=0
     179Top=39
    314180Width=800
    315181Height=561
    … …  
    353219SplitPos=128
    354220ArrangeBy=Name
    355 SelectedItem=DragKind
     221SelectedItem=
    356222ExpandedItems=Anchors,Options
    357223HiddenCategories=Legacy
    … …  
    361227Visible=0
    362228State=0
    363 Left=31
    364 Top=201
     229Left=-744
     230Top=207
    365231Width=737
    366232Height=350
    … …  
    372238LRDockWidth=737
    373239Dockable=1
    374 Column0Width=100
     240Column0Width=178
    375241Column1Width=75
    376242Column2Width=200
    … …  
    383249Visible=0
    384250State=0
    385 Left=592
    386 Top=324
     251Left=363
     252Top=83
    387253Width=420
    388254Height=412
    … …  
    544410State=0
    545411Left=0
    546 Top=0
    547 Width=207
    548 Height=621
    549 MaxLeft=-1
    550 MaxTop=-1
    551 ClientWidth=207
    552 ClientHeight=621
     412Top=12
     413Width=140
     414Height=439
     415MaxLeft=-1
     416MaxTop=-1
     417ClientWidth=140
     418ClientHeight=439
    553419TBDockHeight=305
    554420LRDockWidth=140
    … …  
    557423[MessageView@EditWindow0]
    558424Create=1
    559 Visible=1
    560 State=0
    561 Left=12
    562 Top=0
    563 Width=767
    564 Height=87
    565 MaxLeft=-1
    566 MaxTop=-1
    567 ClientWidth=767
    568 ClientHeight=87
    569 TBDockHeight=87
     425Visible=0
     426State=0
     427Left=-170
     428Top=-513
     429Width=443
     430Height=85
     431MaxLeft=-1
     432MaxTop=-1
     433ClientWidth=443
     434ClientHeight=85
     435TBDockHeight=85
    570436LRDockWidth=443
    571437Dockable=1
    572438
    573439[DockHosts]
    574 DockHostCount=2
     440DockHostCount=1
    575441
    576442[DockSite0]
    … …  
    579445Visible=1
    580446State=0
    581 Left=-783
    582 Top=268
     447Left=12
     448Top=118
    583449Width=342
    584450Height=482
    … …  
    594460TabDockClients=PropertyInspector,ObjectTree
    595461
    596 [DockSite1]
    597 DockSiteType=1
    598 Create=1
    599 Visible=0
    600 State=0
    601 Left=0
    602 Top=12
    603 Width=215
    604 Height=650
    605 MaxLeft=-1
    606 MaxTop=-1
    607 ClientWidth=215
    608 ClientHeight=650
    609 TBDockHeight=94
    610 LRDockWidth=215
    611 Dockable=1
    612 TabPosition=0
    613 ActiveTab=Watch List
    614 TabDockClients=CodeExplorer@EditWindow0,WatchWindow
    615 

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

    r612 r654  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 11/27/2009 5:46:58 PM from Type Library described below.
     15// File generated on 12/28/2009 9:26:13 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.pas

    r541 r654  
    891891    KeyTime.HighPart := KeyPressTime.dwHighDateTime;
    892892    Delta := floor( (NowTime2.QuadPart - KeyTime.QuadPart) / 100000);
    893     Result := (Delta < 100);
     893    Result := (Delta < 100) and (Delta > 0);
    894894  end;
    895895

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.~pas

    r541 r654  
    655655
    656656function THtmlObj.MoveCaretToEnd : boolean;
    657 //kt added       
     657//kt added
    658658var //TextRange:IHtmlTxtRange;
    659659    count : integer;
    660660begin
     661  if not assigned (FTMGDisplayPointer) then begin
     662    Result := false;
     663    exit;
     664  end;
    661665  Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_BottomOfWindow,0));
    662666  count := 0;
    663   repeat   
     667  repeat
    664668    Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_NextLine,-1));
    665669    inc (count);
    666670  until (Result = false) or (count > 500);
    667   Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_CurrentLineEnd,0));   
     671  Result:=(S_OK = FTMGDisplayPointer.MoveUnit(DISPLAY_MOVEUNIT_CurrentLineEnd,0));
    668672  Result:=(S_OK = FCaret.MoveCaretToPointer(FTMGDisplayPointer,
    669673                                            integer(FALSE),
    670674                                            CARET_DIRECTION_SAME));
    671675  {
    672   SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0); 
     676  SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0);
    673677  SendMessage(FmsHTMLwinHandle, WM_KEYUP, VK_END, 0);
    674   SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0); 
     678  SendMessage(FmsHTMLwinHandle, WM_KEYDOWN, VK_END, 0);
    675679  SendMessage(FmsHTMLwinHandle, WM_KEYUP, VK_END, 0);
    676680  }

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

    r453 r654  
    66uses
    77  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    8   StdCtrls, ExtCtrls, ORCtrls, ORFn, AppEvnts, uTemplates, DKLang;
     8  StdCtrls, StrUtils, ExtCtrls, ORCtrls, ORFn, AppEvnts, uTemplates, DKLang;
    99
    1010type
    … …  
    4444    FCheck4Required: boolean;
    4545    FSilent: boolean;
     46    FHTMLMode : boolean; //kt added 12/28/09
     47    FAnswerOpenTag : string; //kt added 12/28/09
     48    FAnswerCloseTag : string; //kt added 12/28/09
    4649    procedure SizeFormToCancelBtn();
    4750    procedure ChkAll(Chk: boolean);
    … …  
    5962    procedure ParentCBEnter(Sender: TObject);
    6063    procedure ParentCBExit(Sender: TObject);
     64    procedure SetAnswerHTMLTag(Value : string); //kt 12/28/09
    6165  public
    6266    property Silent: boolean read FSilent write FSilent ;
     67    property HTMLMode : boolean read FHTMLMode write FHTMLMode; //kt added 12/28/09
     68    property HTMLAnswerOpenTag : string read FAnswerOpenTag write SetAnswerHTMLTag;  //kt added 12/28/09
     69    property HTMLAnswerCloseTag : string read FAnswerCloseTag write SetAnswerHTMLTag;  //kt added 12/28/09
    6370  published
    6471  end;
    … …  
    6673// Returns True if Cancel button is pressed
    6774function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean;
     75function RemoveHTMLTags(Txt : string) : string;
     76function FormatHTMLTags(Txt : string): string;
    6877procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;
    6978procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;
    … …  
    8190  Gap = 4;
    8291  IndentGap = 18;
     92  HTMLBEGINNINGTAG = '{HTML:';   //kt
     93  HTMLENDINGTAG = '}';       //kt
     94  HTMLBEGINNINGTAGLEN = length(HTMLBEGINNINGTAG);  //kt
     95  HTMLENDINGTAGLEN = length(HTMLENDINGTAG);   //kt
    8396
    8497
    … …  
    89102  Save, Hidden: boolean;
    90103  TmpCtrl: TStringList;
    91 
     104  HTMLMode : boolean; //kt added 12/28/09
     105  HTMLOpenTag,HTMLCloseTag : string; //kt added 12/28/09
    92106begin
    93107  Txt := SL.Text;
    94108  SL.Clear;
    95109  TmpCtrl := TStringList.Create;
     110  HTMLMode := frmTemplateDialog.HTMLMode; //kt added 12/28/09
     111  HTMLOpenTag := frmTemplateDialog.HTMLAnswerOpenTag;  //kt added 12/28/09
     112  HTMLCloseTag := frmTemplateDialog.HTMLAnswerCloseTag; //kt added 12/28/09
     113  //kt added 12/28/09
    96114  try
    97115    for i := 0 to frmTemplateDialog.sbMain.ControlCount-1 do
    … …  
    117135        p2 := StrToInt(Piece(tmp,'~',2));
    118136        Hidden := (copy(Piece(tmp,'~',3),2,1)=BOOLCHAR[TRUE]);
    119         SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields);
     137        //kt original line 12/28/09 --> SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields);
     138        SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields,
     139                                                   HTMLMode, HTMLOpenTag, HTMLCloseTag );
    120140      end;
    121141    end;
    … …  
    195215    DlgIDCounts.Duplicates := dupError;
    196216    frmTemplateDialog.Caption := CaptionText;
     217    frmTemplateDialog.HTMLMode := uTemplates.bUsingHTMLMode; //kt
     218    frmTemplateDialog.HTMLAnswerOpenTag := '<I>'; //kt 12/28/09
     219    //SL.Text := RemoveHTMLTags(SL.Text);  //elh
    197220    AssignFieldIDs(SL);
    198221    frmTemplateDialog.SL := SL;
    … …  
    237260      end;
    238261      frmTemplateDialog.BuildAllControls;
    239       repeat                     
     262      repeat
    240263         frmTemplateDialog.ShowModal;
    241          if(frmTemplateDialog.ModalResult = mrOK) then
    242            GetText(SL, TRUE)     {TRUE = Include embedded fields}
    243          else
     264         if(frmTemplateDialog.ModalResult = mrOK) then begin
     265           GetText(SL, TRUE);     {TRUE = Include embedded fields}
     266           if uTemplates.bUsingHTMLMode then begin
     267              SL.Text := FormatHTMLTags(SL.Text);
     268           end else begin
     269              SL.Text := RemoveHTMLTags(SL.Text);
     270           end;
     271         end else begin
    244272          if (not PreviewMode) and (not frmTemplateDialog.Silent) and (not uInit.TimedOut) then
    245273            begin
    … …  
    262290              CancelDlg := TRUE;
    263291            end;
     292         end;     
    264293      until CancelDlg or (frmTemplateDialog.ModalResult = mrOK)
    265294    end
    … …  
    281310end;
    282311
     312function RemoveHTMLTags(Txt : string): string;
     313var
     314  beginning,ending : integer;
     315  tempString,tempResult : string;
     316begin
     317  tempString := Txt;
     318  //here we will strip out all HTML formatting tags  //elh
     319  beginning := pos(HTMLBEGINNINGTAG, tempString);
     320  if beginning = 0 then begin
     321     Result := Txt;
     322  end else begin
     323    while beginning > 0 do
     324    begin
     325      tempResult := tempResult + Leftstr(tempString,beginning-1);
     326      tempString := Rightstr(tempString,length(tempString)-beginning-HTMLBEGINNINGTAGLEN);
     327      ending := pos(HTMLENDINGTAG, tempString);
     328      tempString := Rightstr(tempString,length(tempString)-ending);
     329      beginning := pos(HTMLBEGINNINGTAG, tempString);
     330  //    tempString := Midstr(Txt,i,HTMLBEGINNINGTAGLEN);
     331    end;
     332    Result := tempResult + tempString;
     333  end;
     334end;
     335
     336function FormatHTMLTags(Txt : string): string;
     337var
     338  beginning,ending : integer;
     339  tempString,tempResult : string;
     340begin
     341  tempString := Txt;
     342  //here we will strip out all HTML formatting tags  //elh
     343  beginning := pos(HTMLBEGINNINGTAG, tempString);
     344  if beginning = 0 then begin
     345     Result := Txt;
     346  end else begin
     347    while beginning > 0 do
     348    begin
     349      tempResult := tempResult + Leftstr(tempString,beginning-1);
     350      tempString := Rightstr(tempString,length(tempString)-beginning-HTMLBEGINNINGTAGLEN+1);
     351      ending := pos(HTMLENDINGTAG, tempString);
     352      tempResult := tempResult + Leftstr(tempString,ending-1);
     353      tempString := Rightstr(tempString,length(tempString)-ending);
     354      beginning := pos(HTMLBEGINNINGTAG, tempString);
     355  //    tempString := Midstr(Txt,i,HTMLBEGINNINGTAGLEN);
     356    end;
     357    Result := tempResult + tempString;
     358  end;
     359end;
     360
    283361procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE);
    284362begin
    … …  
    307385  finally
    308386    tmp.free;
     387  end;
     388end;
     389
     390procedure TfrmTemplateDialog.SetAnswerHTMLTag(Value : string);
     391//kt 12/28/09 Added entire function
     392begin
     393  if Value='' then begin
     394    FAnswerOpenTag :='';
     395    FAnswerCloseTag := '';
     396  end else begin
     397    if Pos('<',Value)>0 then Value := Piece(Value,'<',2);
     398    if Pos('>',Value)>0 then Value := Piece(Value,'>',1);
     399    if Pos('/',Value)>0 then Value := Piece(Value,'/',2);
     400    FAnswerOpenTag :='<'+Value+'>';
     401    FAnswerCloseTag := '</' + Value + '>';
    309402  end;
    310403end;
    … …  
    460553  end;
    461554  tmp := copy(SL.Text, p1, p2);
     555  tmp := RemoveHTMLTags(tmp);
    462556  if(copy(tmp, length(tmp)-1, 2) = CRLF) then
    463557    delete(tmp, length(tmp)-1, 2);
    … …  
    637731procedure TfrmTemplateDialog.FormCreate(Sender: TObject);
    638732begin
     733  FHTMLMode := false; //kt added 12/28/09
    639734  BuildIdx := TStringList.Create;
    640735  Entries := TStringList.Create;

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

    r453 r654  
    4444    FPanelDying: boolean;
    4545    FOnDestroy: TNotifyEvent;
     46    FHTMLMode : boolean; //kt added 12/28/09
     47    FAnswerOpenTag : string; //kt added 12/28/09
     48    FAnswerCloseTag : string; //kt added 12/28/09
    4649    procedure KillLabels;
    4750    function GetFieldValues: string;
    4851    procedure SetFieldValues(const Value: string);
    4952    procedure SetAutoDestroyOnPanelFree(const Value: boolean);
     53    procedure SetAnswerHTMLTag(Value : string); //kt 12/28/09
     54
    5055  protected
    5156    procedure UpDownChange(Sender: TObject);
    … …  
    6772    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
    6873    property FieldValues: string read GetFieldValues write SetFieldValues;
     74    property HTMLMode : boolean read FHTMLMode write FHTMLMode; //kt added 12/28/09
     75    property AnswerHTMLTag : string read FAnswerOpenTag write SetAnswerHTMLTag;  //kt added 12/28/09
    6976    property AutoDestroyOnPanelFree: boolean read FAutoDestroyOnPanelFree
    7077                                             write SetAutoDestroyOnPanelFree;
    … …  
    161168procedure AssignFieldIDs(var Txt: string); overload;
    162169procedure AssignFieldIDs(SL: TStrings); overload;
    163 function ResolveTemplateFields(Text: string; AutoWrap: boolean; Hidden: boolean = FALSE; IncludeEmbedded: boolean = FALSE): string;
     170//kt 12/28/09 originial --> function ResolveTemplateFields(Text: string; AutoWrap: boolean; Hidden: boolean = FALSE; IncludeEmbedded: boolean = FALSE): string;
     171function ResolveTemplateFields(Text: string;
     172                               AutoWrap: boolean;
     173                               Hidden: boolean = FALSE;
     174                               IncludeEmbedded: boolean = FALSE;
     175                               HTMLMode : boolean = FALSE; //kt added 12/28/09
     176                               HTMLAnswerOpenTag : string = ''; //kt added 12/28/09
     177                               HTMLAnswerCloseTag : string = '' //kt added 12/28/09
     178                               ): string;
    164179function AreTemplateFieldsRequired(const Text: string; FldValues: TORStringList =  nil): boolean;
    165180function HasTemplateField(txt: string): boolean;
    … …  
    179194  TemplateFieldBeginSignature = '{FLD:';
    180195  TemplateFieldEndSignature = '}';
     196  HTMLBEGINNINGTAG = '{HTML:';
     197  HTMLENDINGTAG = '}';
     198  HTMLBEGINNINGTAGLEN = length(HTMLBEGINNINGTAG);
     199  HTMLENDINGTAGLEN = length(HTMLENDINGTAG);
    181200  //MissingFieldsTxt = 'One or more required fields must still be entered.';  <-- original line.  //kt 8/8/2007
    182201  function MissingFieldsTxt : string;  //kt added
    … …  
    519538                               AutoWrap: boolean;
    520539                               Hidden: boolean = FALSE;
    521                                IncludeEmbedded: boolean = FALSE): string;
     540                               IncludeEmbedded: boolean = FALSE;
     541                               HTMLMode : boolean = FALSE; //kt added 12/28/09
     542                               HTMLAnswerOpenTag : string = ''; //kt added 12/28/09
     543                               HTMLAnswerCloseTag : string = '' //kt added 12/28/09
     544                               ): string;
    522545var
    523546  flen, CtrlID, i, j: integer;
    … …  
    526549  FoundEntry: boolean;
    527550  TmplFld: TTemplateField;
     551  tempSL : TStringList;
    528552
    529553  procedure AddNewTxt;
    … …  
    584608            if (assigned(TmplFld)) and (TmplFld.DateType in DateComboTypes) then {if this is a TORDateBox}
    585609               NewTxt := Piece(NewTxt,':',1);          {we only want the first piece of NewTxt}
     610            //kt 12/28/09 --- Start mod to wrap answers in custom HTML tag ---
     611            if (HTMLMode=true) and (NewTxt <> '') then begin
     612              NewTxt := HTMLAnswerOpenTag + NewTxt + HTMLAnswerCloseTag;   //kt 12/29/09
     613            end;
     614            //kt --- End mod to wrap answers in custom HTML tag ---
    586615            AddNewTxt;
    587616          end;
    … …  
    594623        end;
    595624      end;
     625    end else begin
     626      if HTMLMode=true then begin
     627        tempSL := TStringList.create;
     628        tempSL.Text := Result;
     629        if tempSL.Count < 3 then begin
     630          Result := HTMLAnswerOpenTag + Result + HTMLAnswerCloseTag;
     631        end;
     632        tempSL.Free;
     633      end;
    596634    end;
    597635  until(i = 0);
    598636  if not AutoWrap then
    599637    WordWrapText(Result);
     638
    600639end;
    601640
    … …  
    18011840  FID := AID;
    18021841  FText := Text;
     1842  FHTMLMode := false; //kt added 12/28/09
    18031843  FControls := TStringList.Create;
    18041844  FIndents := TStringList.Create;
    … …  
    22232263end;
    22242264
     2265procedure TTemplateDialogEntry.SetAnswerHTMLTag(Value : string);
     2266//kt 12/28/09 Added entire function
     2267begin
     2268  if Value='' then begin
     2269    FAnswerOpenTag :='';
     2270    FAnswerCloseTag := '';
     2271  end else begin
     2272    if Pos('<',Value)>0 then Value := Piece(Value,'<',2);
     2273    if Pos('>',Value)>0 then Value := Piece(Value,'>',1);
     2274    FAnswerOpenTag :='<'+Value+'>';
     2275    FAnswerCloseTag := '</' + Value + '>';
     2276  end;
     2277end;
     2278
    22252279function TTemplateDialogEntry.GetText: string;
    22262280begin
    2227   Result := ResolveTemplateFields(FText, FALSE);
     2281  //kt Result := ResolveTemplateFields(FText, FALSE);
     2282  Result := ResolveTemplateFields(FText, FALSE, FALSE, FALSE, FHTMLMode, FAnswerOpenTag, FAnswerCloseTag); //kt 12/29/09
    22282283end;
    22292284

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

    r541 r654  
    18861886  Itm: string;
    18871887begin
    1888   Result := GetBoilerplate;
     1888  Result := GetBoilerplate; //ELH
    18891889  if FIsReminderDialog or FIsCOMObject then exit;
    18901890  Itm := ItemBoilerplate;
    … …  
    19521952          TmpSL.Text := rHTMLTools.Text2HTML(TmpSL);                //kt 8/09
    19531953        end;                                                        //kt 8/09
    1954         bUsingHTMLMode := false; //force reset each call.           //kt 8/09
     1954        //kt 12/28/09   bUsingHTMLMode := false; //force reset each call.           //kt 8/09
    19551955      end;                                                          //kt 8/09
    19561956      Result := TmpSL.Text;

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

    r453 r654  
    11object frmDrawers: TfrmDrawers
    2   Left = 634
    3   Top = 437
     2  Left = 624
     3  Top = 346
    44  BorderStyle = bsNone
    55  Caption = 'frmDrawers'

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

    r541 r654  
    977977  if (dmodShared.TemplateOK(tvTemplates.Selected.Data)) then begin  //kt
    978978    Template := TTemplate(tvTemplates.Selected.Data);
    979     TemplateIsHTML := rHTMLTools.IsHTML(Template.Text); //kt
    980     if not InsertOK(TRUE,TemplateIsHTML) then exit;  //kt
    981979    Template.TemplatePreviewMode := FALSE;
    982     if Template.IsReminderDialog then
     980    if Template.IsReminderDialog then begin
    983981      Template.ExecuteReminderDialog(TForm(Owner))
    984     else
    985     begin
     982    end else begin
    986983      if Template.IsCOMObject then
    987984        txt := Template.COMObjectText('', DocInfo)
    988       else
     985      else begin
    989986        uTemplates.bUsingHTMLMode := HTMLEditActive; //kt 8/09  Will be used in TTemplate.GetText
    990987        txt := Template.Text;
    991       if(txt <> '') then
    992       begin
     988        TemplateIsHTML := rHTMLTools.IsHTML(txt); //kt
     989        if not InsertOK(FALSE,TemplateIsHTML) then exit;  //kt
     990      end;
     991      if(txt <> '') then begin
    993992//      CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);  <-- original line.  //kt 7/15/2007
    994993        CheckBoilerplate4Fields(txt, DKLangConstW('fDrawers_Templatex') + Template.PrintName); //kt added 7/15/2007

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

    r612 r654  
    11object frmPtSel: TfrmPtSel
    2   Left = 184
    3   Top = 115
     2  Left = 248
     3  Top = 152
    44  Width = 793
    5   Height = 589
     5  Height = 587
    66  BorderIcons = []
    77  Caption = 'Patient Selection'
    … …  
    169169  object pnlNotifications: TORAutoPanel
    170170    Left = 0
    171     Top = 520
     171    Top = 518
    172172    Width = 785
    173173    Height = 35
    … …  
    229229    Top = 311
    230230    Width = 785
    231     Height = 209
     231    Height = 207
    232232    Align = alClient
    233233    Columns = <

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

    r453 r654  
    11object frmPtSelOptns: TfrmPtSelOptns
    2   Left = 587
    3   Top = 199
     2  Left = 436
     3  Top = 128
    44  BorderStyle = bsNone
    55  Caption = 'frmPtSelOptns'

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

    r453 r654  
    225225{ called by radTeams, radSpecialties, radWards - shows items for the list source }
    226226begin
     227(*     Commented out until a further clarification    //kt  12/29/09
    227228    //vwpt remove other radio button selections
    228 // if frmPtSel.radiogroup1.index <> 0 then   //kt
    229  if frmPtSel.RadioGroup1.ItemIndex <> 0 then
    230  begin
     229 if assigned(frmPtSel) and (frmPtSel.radiogroup1.ItemIndex <> 0) then   //kt
     230 begin      //elh
    231231      FSrcType := TControl(Sender).Tag;
    232232      case FSrcType of
    … …  
    257257 begin
    258258  //end vwpt
     259  *)
    259260  cboList.Pieces := '2';
    260261  FSrcType := TControl(Sender).Tag;
    … …  
    275276  end;
    276277  cboList.Caption := TRadioButton(Sender).Caption;
    277  end; //else
     278 //kt end; //else
    278279end;
    279280
    … …  
    282283begin
    283284  //vwpt remove other radio button selections
    284  // if fPtSel.radiogrp1index <> 0 then //kt
     285 (*     Commented out until a further clarification    //kt  12/29/09
    285286 if frmPtSel.RadioGroup1.ItemIndex <> 0 then
    286287 begin
    … …  
    306307 else
    307308 begin
    308   //end vwpt
     309  //end vwpt  *)
    309310  cboList.Pieces := '2';
    310311  FSrcType := TControl(Sender).Tag;
    … …  
    331332  end;
    332333  cboList.Caption := TRadioButton(Sender).Caption;
    333  end; //else
     334 //kt end; //else
    334335end;
    335336

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

    r541 r654  
    45794579  txt: string;
    45804580  FldData: TORStringList;
    4581 
    4582 begin
     4581  HTMLMode : boolean; //kt added 12/28/09
     4582
     4583begin
     4584  HTMLMode := false; //kt added 12/28/09  NOTE: Later can figure out if/when appropriate to set this to true, and how to toggle.
    45834585  if (not (FReminder is TReminder)) then
    45844586    ScootOver := 4;
    … …  
    45964598          //values from the visual control in the dialog window.
    45974599          if FReminder = CurrentReminderInDialog then
    4598              txt := ResolveTemplateFields(txt, TRUE)
     4600             //kt txt := ResolveTemplateFields(txt, TRUE)
     4601             txt := ResolveTemplateFields(txt, TRUE, FALSE, FALSE, HTMLMode, '', '')  //kt 12/28/09
    45994602          else
    46004603          //If this is not the CurrentReminderInDialog (i.e.: Next or Back button
Note: See TracChangeset for help on using the changeset viewer.