Changeset 1679 for cprs/trunk/CPRS-Chart/Consults/fPreReq.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Consults/fPreReq.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/Consults/fPreReq.pas

@@ -137 +137 @@
               with Lines do
                 begin
-                  AddStrings(AHeader);
                   for i := 0 to MaxLines do
                     if i < memReport.Lines.Count then
@@ -157 +156 @@
                 end;
               until LastLine >= memReport.Lines.Count - 1;
-            PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg);
+            PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg, True);
           end;
       finally
@@ -185 +184 @@
 begin
   inherited;
+  SetFormPosition(Self); //Get Saved Position & Size of Form
   ResizeAnchoredFormToFont(Self);
-  SetFormPosition(Self); //Get Saved Position & Size of Form
+  //SetFormPosition(Self); //Get Saved Position & Size of Form
 end;