Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/fReportsPrint.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/fReportsPrint.pas (modified) (7 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/fReportsPrint.pas

@@ -44 +44 @@
 procedure PrintReports(AReports: string; const AReportsTitle: string);
 function StringPad(aString: string; aStringCount, aPadCount: integer): String;
+function DeleteLineBreaks(const S: string): string;
 
 implementation
@@ -115 +116 @@
   ListItem: TListItem;
   aWPFlag: Boolean;
+  DistanceFromLeft, DistanceRemaining, TotalSpaceAvailable: Integer;
+  SigText, LineBreak, PageBreak, LeftMask: string;
+  LinesPerPage, Limit, Z: Integer;
+  WrappedSig: TStringList;
 begin
   aBasket := TStringList.Create;
   aBasket.Clear;
-  //frmReports.MemText.Clear;
   aHead := '';
   cnt := 2;
-  //aWPFlag := false;
   for i := 0 to uColumns.Count - 1 do
     begin
@@ -145 +148 @@
       FReportText.Lines.Add(aHead);
       FReportText.Lines.Add('-------------------------------------------------------------------------------');
-      //frmReports.memText.Lines.Add(aHead);
-      //frmReports.MemText.Lines.Add('-------------------------------------------------------------------------------');
+      TotalSpaceAvailable := Length(FReportText.Lines[FReportText.Lines.Count - 1]);
     end;
   for i := 0 to frmReports.lvReports.Items.Count - 1 do
@@ -171 +173 @@
                     begin
                       FastAssign(TCellObject(RowObjects.ColumnList[j]).Data, aBasket);
+                      if POS('SIG', piece(uColumns[StrToInt(piece(aCol, ':', 2))], '^', 1)) > 0 then begin
+                       DistanceFromLeft := Length(aData); //distance from the left side of the page
+                       DistanceRemaining := TotalSpaceAvailable - DistanceFromLeft; //Distance to end of page
+                       LinesPerPage := 40;
+                       Limit := 10; //Arbitrary limit to detrmine if there is enough space to bother with wrapping.
+                       LineBreak := #13#10;
+                       PageBreak := '**PAGE BREAK**';
+                       X := '';
+                       LeftMask := StringOfChar(' ', DistanceFromLeft);
+                       //remove any line breaks from the text
+                       SigText := StringReplace(aBasket.Text, #13#10, '', [rfReplaceAll]);
+                       if DistanceRemaining < Limit then begin
+                        DistanceRemaining := TotalSpaceAvailable;
+                        LeftMask := '';
+                       end;
+                       WrappedSig := TStringList.Create;
+                       try
+                        WrappedSig.Text := WrapText(SigText, LineBreak + LeftMask, [' '], DistanceRemaining);
+                        For Z := 0 to WrappedSig.Count - 1 do begin
+                          Inc(Cnt);
+                          If Cnt > LinesPerPage then x := x  + PageBreak;
+                          X := X + WrappedSig.Strings[Z] + LineBreak;
+                        end;
+                       finally
+                        FreeAndNil(WrappedSig);
+                       end;
+                       aData := aData + x;
+                      end else begin
                       for k := 0 to aBasket.Count - 1 do
-                        begin
-                          L := StrToIntDef(piece(uColumns[StrToInt(piece(aCol,':',2))],'^',6),15);
-                          x := StringPad(aBasket[k], L, L+1);
-                          aData := aData + x;
-                        end;
+                      begin
+                       L := StrToIntDef(piece(uColumns[StrToInt(piece(aCol,':',2))],'^',6),15);
+                       x := StringPad(aBasket[k], L, L+1);
+                       aData := aData + x;
+                      end;
                     end;
                 end;
+            end;
           end;
-        //frmReports.memText.Lines.Add(aData);
         FReportText.Lines.Add(aData);
         cnt := cnt + 1;
@@ -186 +216 @@
           begin
             cnt := 0;
-            //frmReports.memText.Lines.Add('**PAGE BREAK**');
             FReportText.Lines.Add('**PAGE BREAK**');
           end;
@@ -200 +229 @@
                       aWPFlag := true;
                       FastAssign(TCellObject(RowObjects.ColumnList[j]).Data, aBasket);
-                      //frmReports.MemText.Lines.Add(TCellObject(RowObjects.ColumnList[j]).Name);
                       FReportText.Lines.Add(TCellObject(RowObjects.ColumnList[j]).Name);
                       cnt := cnt + 1;
                       for k := 0 to aBasket.Count - 1 do
                         begin
-                          //frmReports.memText.Lines.Add('  ' + aBasket[k]);
-                          FReportText.Lines.Add('  ' + aBasket[k]);
+                          FReportText.Lines.Add('' + aBasket[k]);
                           cnt := cnt + 1;
                           if cnt > 40 then
                             begin
                               cnt := 0;
-                              //frmReports.memText.Lines.Add('**PAGE BREAK**');
                               FReportText.Lines.Add('**PAGE BREAK**');
                             end;
@@ -220 +246 @@
         if aWPFlag = true then
           begin
-            //frmReports.MemText.Lines.Add('===============================================================================');
             FReportText.Lines.Add('===============================================================================');
           end;
       end;
   aBasket.Free;
+end;
+
+function DeleteLineBreaks(const S: string): string;
+var
+  Source, SourceEnd: PChar;
+begin
+  Source := Pointer(S);
+  SourceEnd := Source + Length(S);
+  while Source < SourceEnd do
+  begin
+    case Source^ of
+      #10: Source^ := #32;
+      #13: Source^ := #32;
+    end;
+    Inc(Source);
+  end;
+  Result := S;
 end;