Function

CreateReportTextComponent

Module

uReports

Last Modified

7/15/2014 3:26:44 PM

Comments

CQ#70295

Scope

Interfaced

Declaration

function CreateReportTextComponent(ParentForm: TForm): TRichEdit;

Calls Hierarchy


CreateReportTextComponent
 └ReportTextFontChange

Called-By Hierarchy


                 CreateReportTextComponent
                            PrintStrings┤ 
           TfrmReportBox.cmdPrintClick┤ │ 
        TfrmTemplateView.btnPrintClick┘ │ 
                TfrmPtDemo.cmdPrintClick┤ 
                TfrmNotePrint.cmdOKClick┤ 
                             PrintNote┘ │ 
             TfrmDCSumm.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┘ │   │ 
     TfrmDCSumm.RequestMultiplePrint┤   │ 
          TfrmPrintList.cmdOKClick┘ │   │ 
   TfrmConsults.mnuActNotePrintClick┤   │ 
TfrmConsults.popNoteMemoPrintClick┘ │   │ 
            TfrmSurgery.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┘ │   │ 
              TfrmNotes.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┘ │   │ 
      TfrmNotes.RequestMultiplePrint┘   │ 
          TfrmPrintList.cmdOKClick┘     │ 
         TfrmPrerequisites.cmdPrintClick┤ 
                 TfrmLabPrint.cmdOKClick┤ 
                             PrintLabs┘ │ 
               TfrmLabs.RequestPrint┘   │ 
              TfrmLabs.Print1Click┤     │ 
              TfrmLabs.Print2Click┤     │ 
       TfrmFrame.mnuFilePrintClick┘     │ 
                TfrmReportPrt.cmdOKClick┤ 
                          PrintReports┘ │ 
            TfrmLabs.RequestPrint...┤   │ 
            TfrmReports.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┤ │   │ 
           TfrmReports.Print1Click┤ │   │ 
           TfrmReports.Print2Click┘ │   │ 
           TfrmProblems.RequestPrint┘   │ 
       TfrmFrame.mnuFilePrintClick┘     │ 
                 Tfrm513Print.cmdOKClick┘ 
                            PrintSF513┘   
           TfrmConsults.RequestPrint┤     
TfrmConsults.mnuActPrintSF513Click┤ │     
       TfrmFrame.mnuFilePrintClick┘ │     
   TfrmConsults.RequestMultiplePrint┘     
          TfrmPrintList.cmdOKClick┘       

Calls

Name Declaration Comments
ReportTextFontChange procedure ReportTextFontChange(Self, Sender: TObject); -

Called-By

Name Declaration Comments
TfrmNotePrint.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmLabPrint.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmReportPrt.cmdOKClick procedure cmdOKClick(Sender: TObject); -
Tfrm513Print.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmPtDemo.cmdPrintClick procedure cmdPrintClick(Sender: TObject); -
TfrmPrerequisites.cmdPrintClick procedure cmdPrintClick(Sender: TObject); -
PrintStrings procedure PrintStrings(Form: TForm; StringText: TStrings; const Title, Trailer: string); -


Source

356   function CreateReportTextComponent(ParentForm: TForm): TRichEdit;
357   var
358     m: TMethod;
359   begin
360     Result := TRichEdit.Create(ParentForm);
361     with Result do
362     begin
363       Parent := ParentForm;
364       Visible := False;
365       Width := 600;
366       Font.Name := 'Courier New';
367       Font.Size := 8;
368       m.Code := @ReportTextFontChange;
369       m.Data := ParentForm;
370       Font.OnChange := TNotifyEvent(m);
371     end;
372   end;