Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplates.pas

Timestamp:

Aug 12, 2009, 7:14:16 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

TMG Ver 1.1 Added HTML Support, better demographics editing

File:

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

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

@@ -284 +284 @@
   ConsultsTemplate: TTemplate = nil;
   ProceduresTemplate: TTemplate = nil;
+  bUsingHTMLMode : boolean = false; //kt 8/09
 
 implementation
@@ -291 +292 @@
   XMLUtils, fTemplateImport, Word97, uSpell, rCore, uConst, ORCtrls, uEventHooks,
   fReminderDialog, rODBase
-  , DKLang //kt
+  , rHTMLTools, DKLang //kt
   ;
 
@@ -1943 +1944 @@
 //      FDialogAborted := DoTemplateDialog(TmpSL, 'Template: ' + FPrintName, TemplatePreviewMode);  <-- original line.  //kt 8/8/2007
         FDialogAborted := DoTemplateDialog(TmpSL, DKLangConstW('uTemplates_Templatex') + FPrintName, TemplatePreviewMode); //kt added 8/8/2007
+      if bUsingHTMLMode then begin                                  //kt 8/09
+        if rHTMLTools.IsHTML(TmpSL.Text) then begin                 //kt 8/09
+          TmpSL.Text := rHTMLTools.FixHTMLCRLF(TmpSL.Text);         //kt 8/09
+          TmpSL.Text := rHTMLTools.ProtectHTMLSpaces(TmpSL.Text);   //kt 8/09
+          TmpSL.Text := rHTMLTools.UnwrapHTML(TmpSL.Text);          //kt 8/09
+        end else begin                                              //kt 8/09
+          TmpSL.Text := rHTMLTools.Text2HTML(TmpSL);                //kt 8/09
+        end;                                                        //kt 8/09
+        bUsingHTMLMode := false; //force reset each call.           //kt 8/09
+      end;                                                          //kt 8/09
       Result := TmpSL.Text;
     finally