Changeset 655 for cprs/branches/tmg-cprs/CPRS-Chart/Templates

Timestamp:

Jan 4, 2010, 2:07:34 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fix for HTML templates

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Templates/fTemplateDialog.pas (modified) (3 diffs)

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

@@ -264 +264 @@
          if(frmTemplateDialog.ModalResult = mrOK) then begin
            GetText(SL, TRUE);     {TRUE = Include embedded fields}
+           {
            if uTemplates.bUsingHTMLMode then begin
               SL.Text := FormatHTMLTags(SL.Text);
@@ -269 +270 @@
               SL.Text := RemoveHTMLTags(SL.Text);
            end;
+           }
          end else begin
           if (not PreviewMode) and (not frmTemplateDialog.Silent) and (not uInit.TimedOut) then
@@ -380 +382 @@
   tmp := TStringList.Create;
   try
-    tmp.text := AText;
+    if uTemplates.bUsingHTMLMode then begin   //elh   01/04/10
+      tmp.text := FormatHTMLTags(AText);
+    end else begin
+      tmp.text := RemoveHTMLTags(AText);
+    end;
+    //elh tmp.text := AText;
     CheckBoilerplate4Fields(tmp, CaptionText, PreviewMode);
     AText := tmp.text;