Procedure

ReportTextFontChange

Module

uReports

Last Modified

7/15/2014 3:26:44 PM

Comments

Procedures & functions for Report Fonts

Scope

Interfaced

Declaration

procedure ReportTextFontChange(Self, Sender: TObject);

Called-By Hierarchy


                        ReportTextFontChange
                 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┘         

Called-By

Name Declaration Comments
CreateReportTextComponent function CreateReportTextComponent(ParentForm: TForm): TRichEdit; -


Source

350   procedure ReportTextFontChange(Self, Sender: TObject);
351   begin
352     TFont(Sender).Size := 8;
353   end;