Procedure

TfrmMeds.SetFontSize

Directives

Override

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Overrides

TfrmPage.SetFontSize

Owner

TfrmMeds

Declaration

procedure SetFontSize( FontSize: integer); override;

Calls Hierarchy


TfrmMeds.SetFontSize
 ├TfrmPage.SetFontSize
 ├TfrmMeds.mnuOptimizeFieldsClick
 │ ├TfrmMeds.hdrMedsNonVASectionResize
 │ ├TfrmMeds.hdrMedsInSectionResize
 │ └TfrmMeds.hdrMedsOutSectionResize
 └TfrmMeds.RefreshMedLists
   ├TfrmFrame.GetTimedOut
   │ └TimedOut
   ├LoadActiveMedLists
   │ ├ClearMedList
   │ └SetMedFields
   ├TfrmMeds.SetViewCaption
   └TfrmMeds.GetPlainText
     ├TfrmMeds.GetMedList
     ├TfrmMeds.GetHeader
     └TfrmMeds.GetListText
       ├TfrmMeds.GetActionText
       └TfrmMeds.GetInstructText

Called-By Hierarchy


               TfrmMeds.SetFontSize
             TfrmFrame.ChangeFont┘ 
     TfrmFrame.LoadSizesForUser┤   
TfrmFrame.LoadUserPreferences┘ │   
       TfrmFrame.UMInitiate┘   │   
     TfrmFrame.mnuFontSizeClick┘   

Calls

Name Declaration Comments
TfrmMeds.mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); -
TfrmMeds.RefreshMedLists procedure RefreshMedLists; -
TfrmPage.SetFontSize procedure SetFontSize(NewFontSize: Integer); virtual; -

Called-By

Name Declaration Comments
TfrmFrame.ChangeFont procedure ChangeFont(NewFontSize: Integer); -


Source

538   procedure TfrmMeds.SetFontSize( FontSize: integer);
539   begin
540     inherited SetFontSize(FontSize);
541     mnuOptimizeFieldsClick(self);
542     if Patient.DFN <> '' then
543       RefreshMedLists;
544   end;