Procedure

TfrmSurgery.SetFontSize

Directives

Override

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Comments

Adjusts the font size of any controls that don't have ParentFont = True

Visibility

Public

Overrides

TfrmPage.SetFontSize

Owner

TfrmSurgery

Declaration

procedure SetFontSize(NewFontSize: Integer); override;

Calls Hierarchy


TfrmSurgery.SetFontSize
 └TfrmPage.SetFontSize

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfrmPage.SetFontSize procedure SetFontSize(NewFontSize: Integer); virtual; -

Called-By

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


Source

584   procedure TfrmSurgery.SetFontSize(NewFontSize: Integer);
585   { adjusts the font size of any controls that don't have ParentFont = True }
586   begin
587     inherited SetFontSize(NewFontSize);
588     pnlLeft.Width := pnlLeft.Constraints.MinWidth;
589     sptHorz.Left := pnlLeft.Width;
590     memSurgery.Font.Size     := NewFontSize;
591     memNewNote.Font.Size  := NewFontSize;
592     lblTitle.Font.Size    := NewFontSize;
593     frmDrawers.Font.Size  := NewFontSize;
594     SetEqualTabStops(memNewNote);
595     // adjust heights of pnlAction, pnlFields, and lstEncntShow
596   end;