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

Timestamp:

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

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

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

cprs/branches/HealthSevak-CPRS/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;