Changeset 1679 for cprs/trunk/CPRS-Chart/fPtDemo.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/fPtDemo.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/fPtDemo.pas

@@ -80 +80 @@
   Width := MaxWidth;
   Height := AHeight;
+  Constraints.MinHeight := pnlTop.Height + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYHSCROLL) + 7;
   Rect := BoundsRect;
   ForceInsideWorkArea(Rect);
@@ -124 +125 @@
               with Lines do
                 begin
-                  AddStrings(AHeader);
                   for i := StartLine to MaxLines do
                     //if i < memPtDemo.Lines.Count - 1 then
@@ -146 +146 @@
                 end;
               until LastLine >= memPtDemo.Lines.Count - 1;
-            PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg);
+            PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg, True);
           end;
       finally