Changeset 830 for cprs/trunk/CPRS-Chart/uReports.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/uReports.pas (modified) (7 diffs)

cprs/trunk/CPRS-Chart/uReports.pas

@@ -3 +3 @@
 interface
 
-uses sysutils, classes, ORFN;
+uses sysutils, classes, ORFN, ComCtrls, Forms, Graphics;
 
 type
@@ -63 +63 @@
     Direct     : String;         //Direct Remote Call flag
     HDR        : String;         //HDR is data source if = 1
+    FHIE       : String;         //FHIE is data source if = 1
+    FHIEONLY   : String;         //FHIEONLY if data is to only include FHIE
 end;
 
@@ -89 +91 @@
 function MakePrntProcTreeObject(x: string): PProcTreeObj;
 
+//procedures & functions for Report Fonts
+
+procedure ReportTextFontChange(Self, Sender: TObject);
+function CreateReportTextComponent(ParentForm: TForm): TRichEdit;
+
+
 implementation
 
@@ -116 +124 @@
   FHandle := AHandle;
   FCount := AData.Count;
-  FData.Assign(AData);
+  FastAssign(AData, FData);
 end;
 
@@ -123 +131 @@
   AnObject: PReportTreeObject;
 begin
-  //x=id^Name^Qualifier^HSTag;Routine^Entry^Routine^Remote^Type^Category^RPC^ifn^SortOrder^MaxDaysBack
+  //x=id^Name^Qualifier^HSTag;Routine^Entry^Routine^Remote^Type^Category^RPC^ifn^SortOrder^MaxDaysBack^Direct^HDR^FHIE
   New(AnObject);
   with AnObject^ do
@@ -140 +148 @@
       Direct          := Piece(x, U, 14);
       HDR             := Piece(x, U, 15);
+      FHIE            := Piece(x, U, 16);
+      FHIEONLY        := Piece(x, U, 17);
     end;
   Result := AnObject;
@@ -290 +300 @@
 end;
 
+procedure ReportTextFontChange(Self, Sender: TObject);
+begin
+  TFont(Sender).Size := 8;
+end;
+
+// CQ#70295
+function CreateReportTextComponent(ParentForm: TForm): TRichEdit;
+var
+  m: TMethod;
+begin
+  Result := TRichEdit.Create(ParentForm);
+  with Result do
+  begin
+    Parent := ParentForm;
+    Visible := False;
+    Width := 600;
+    Font.Name := 'Courier New';
+    Font.Size := 8;
+    m.Code := @ReportTextFontChange;
+    m.Data := ParentForm;
+    Font.OnChange := TNotifyEvent(m);
+  end;
+end;
+
 end.