Changeset 654 for cprs/branches/tmg-cprs/CPRS-Chart/Templates/fTemplateDialog.pas

Timestamp:

Jan 4, 2010, 8:02:21 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added HTML templating

File:

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

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

@@ -6 +6 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls, ORCtrls, ORFn, AppEvnts, uTemplates, DKLang;
+  StdCtrls, StrUtils, ExtCtrls, ORCtrls, ORFn, AppEvnts, uTemplates, DKLang;
 
 type
@@ -44 +44 @@
     FCheck4Required: boolean;
     FSilent: boolean;
+    FHTMLMode : boolean; //kt added 12/28/09
+    FAnswerOpenTag : string; //kt added 12/28/09
+    FAnswerCloseTag : string; //kt added 12/28/09
     procedure SizeFormToCancelBtn();
     procedure ChkAll(Chk: boolean);
@@ -59 +62 @@
     procedure ParentCBEnter(Sender: TObject);
     procedure ParentCBExit(Sender: TObject);
+    procedure SetAnswerHTMLTag(Value : string); //kt 12/28/09
   public
     property Silent: boolean read FSilent write FSilent ;
+    property HTMLMode : boolean read FHTMLMode write FHTMLMode; //kt added 12/28/09
+    property HTMLAnswerOpenTag : string read FAnswerOpenTag write SetAnswerHTMLTag;  //kt added 12/28/09
+    property HTMLAnswerCloseTag : string read FAnswerCloseTag write SetAnswerHTMLTag;  //kt added 12/28/09
   published
   end;
@@ -66 +73 @@
 // Returns True if Cancel button is pressed
 function DoTemplateDialog(SL: TStrings; const CaptionText: string; PreviewMode: boolean = FALSE): boolean;
+function RemoveHTMLTags(Txt : string) : string;
+function FormatHTMLTags(Txt : string): string;
 procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;
 procedure CheckBoilerplate4Fields(var AText: string; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload;
@@ -81 +90 @@
   Gap = 4;
   IndentGap = 18;
+  HTMLBEGINNINGTAG = '{HTML:';   //kt
+  HTMLENDINGTAG = '}';       //kt
+  HTMLBEGINNINGTAGLEN = length(HTMLBEGINNINGTAG);  //kt
+  HTMLENDINGTAGLEN = length(HTMLENDINGTAG);   //kt
 
 
@@ -89 +102 @@
   Save, Hidden: boolean;
   TmpCtrl: TStringList;
-
+  HTMLMode : boolean; //kt added 12/28/09
+  HTMLOpenTag,HTMLCloseTag : string; //kt added 12/28/09
 begin
   Txt := SL.Text;
   SL.Clear;
   TmpCtrl := TStringList.Create;
+  HTMLMode := frmTemplateDialog.HTMLMode; //kt added 12/28/09
+  HTMLOpenTag := frmTemplateDialog.HTMLAnswerOpenTag;  //kt added 12/28/09
+  HTMLCloseTag := frmTemplateDialog.HTMLAnswerCloseTag; //kt added 12/28/09
+  //kt added 12/28/09
   try
     for i := 0 to frmTemplateDialog.sbMain.ControlCount-1 do
@@ -117 +135 @@
         p2 := StrToInt(Piece(tmp,'~',2));
         Hidden := (copy(Piece(tmp,'~',3),2,1)=BOOLCHAR[TRUE]);
-        SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields);
+        //kt original line 12/28/09 --> SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields);
+        SL.Text := SL.Text + ResolveTemplateFields(Copy(Txt,p1,p2), FALSE, Hidden, IncludeEmbeddedFields,
+                                                   HTMLMode, HTMLOpenTag, HTMLCloseTag );
       end;
     end;
@@ -195 +215 @@
     DlgIDCounts.Duplicates := dupError;
     frmTemplateDialog.Caption := CaptionText;
+    frmTemplateDialog.HTMLMode := uTemplates.bUsingHTMLMode; //kt
+    frmTemplateDialog.HTMLAnswerOpenTag := '<I>'; //kt 12/28/09
+    //SL.Text := RemoveHTMLTags(SL.Text);  //elh
     AssignFieldIDs(SL);
     frmTemplateDialog.SL := SL;
@@ -237 +260 @@
       end;
       frmTemplateDialog.BuildAllControls;
-      repeat                      
+      repeat
          frmTemplateDialog.ShowModal;
-         if(frmTemplateDialog.ModalResult = mrOK) then
-           GetText(SL, TRUE)     {TRUE = Include embedded fields}
-         else
+         if(frmTemplateDialog.ModalResult = mrOK) then begin
+           GetText(SL, TRUE);     {TRUE = Include embedded fields}
+           if uTemplates.bUsingHTMLMode then begin
+              SL.Text := FormatHTMLTags(SL.Text);
+           end else begin
+              SL.Text := RemoveHTMLTags(SL.Text);
+           end;
+         end else begin
           if (not PreviewMode) and (not frmTemplateDialog.Silent) and (not uInit.TimedOut) then
             begin
@@ -262 +290 @@
               CancelDlg := TRUE;
             end;
+         end;      
       until CancelDlg or (frmTemplateDialog.ModalResult = mrOK)
     end
@@ -281 +310 @@
 end;
 
+function RemoveHTMLTags(Txt : string): string;
+var
+  beginning,ending : integer;
+  tempString,tempResult : string;
+begin
+  tempString := Txt;
+  //here we will strip out all HTML formatting tags  //elh
+  beginning := pos(HTMLBEGINNINGTAG, tempString);
+  if beginning = 0 then begin
+     Result := Txt;
+  end else begin
+    while beginning > 0 do
+    begin
+      tempResult := tempResult + Leftstr(tempString,beginning-1);
+      tempString := Rightstr(tempString,length(tempString)-beginning-HTMLBEGINNINGTAGLEN);
+      ending := pos(HTMLENDINGTAG, tempString);
+      tempString := Rightstr(tempString,length(tempString)-ending);
+      beginning := pos(HTMLBEGINNINGTAG, tempString);
+  //    tempString := Midstr(Txt,i,HTMLBEGINNINGTAGLEN);
+    end;
+    Result := tempResult + tempString;
+  end;
+end;
+
+function FormatHTMLTags(Txt : string): string;
+var
+  beginning,ending : integer;
+  tempString,tempResult : string;
+begin
+  tempString := Txt;
+  //here we will strip out all HTML formatting tags  //elh
+  beginning := pos(HTMLBEGINNINGTAG, tempString);
+  if beginning = 0 then begin
+     Result := Txt;
+  end else begin
+    while beginning > 0 do
+    begin
+      tempResult := tempResult + Leftstr(tempString,beginning-1);
+      tempString := Rightstr(tempString,length(tempString)-beginning-HTMLBEGINNINGTAGLEN+1);
+      ending := pos(HTMLENDINGTAG, tempString);
+      tempResult := tempResult + Leftstr(tempString,ending-1);
+      tempString := Rightstr(tempString,length(tempString)-ending);
+      beginning := pos(HTMLBEGINNINGTAG, tempString);
+  //    tempString := Midstr(Txt,i,HTMLBEGINNINGTAGLEN);
+    end;
+    Result := tempResult + tempString;
+  end;
+end;
+
 procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE);
 begin
@@ -307 +385 @@
   finally
     tmp.free;
+  end;
+end;
+
+procedure TfrmTemplateDialog.SetAnswerHTMLTag(Value : string);
+//kt 12/28/09 Added entire function
+begin
+  if Value='' then begin
+    FAnswerOpenTag :='';
+    FAnswerCloseTag := '';
+  end else begin
+    if Pos('<',Value)>0 then Value := Piece(Value,'<',2);
+    if Pos('>',Value)>0 then Value := Piece(Value,'>',1);
+    if Pos('/',Value)>0 then Value := Piece(Value,'/',2);
+    FAnswerOpenTag :='<'+Value+'>';
+    FAnswerCloseTag := '</' + Value + '>';
   end;
 end;
@@ -460 +553 @@
   end;
   tmp := copy(SL.Text, p1, p2);
+  tmp := RemoveHTMLTags(tmp);
   if(copy(tmp, length(tmp)-1, 2) = CRLF) then
     delete(tmp, length(tmp)-1, 2);
@@ -637 +731 @@
 procedure TfrmTemplateDialog.FormCreate(Sender: TObject);
 begin
+  FHTMLMode := false; //kt added 12/28/09
   BuildIdx := TStringList.Create;
   Entries := TStringList.Create;