Procedure

TfrmMeds.hdrMedsNonVASectionResize

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmMeds

Declaration

procedure hdrMedsNonVASectionResize(HeaderControl: THeaderControl;
  Section: THeaderSection);

Called-By Hierarchy


     TfrmMeds.hdrMedsNonVASectionResize
      TfrmMeds.mnuOptimizeFieldsClick┘ 
             TfrmFrame.WMSysCommand┤   
               TfrmMeds.SetFontSize┤   
             TfrmFrame.ChangeFont┘ │   
     TfrmFrame.LoadSizesForUser┤   │   
TfrmFrame.LoadUserPreferences┘ │   │   
       TfrmFrame.UMInitiate┘   │   │   
     TfrmFrame.mnuFontSizeClick┘   │   
    TfrmMeds.hdrMedsOutSectionClick┤   
  TfrmMeds.hdrMedsNonVASectionClick┤   
     TfrmMeds.hdrMedsInSectionClick┘   

Called-By

Name Declaration Comments
TfrmMeds.mnuOptimizeFieldsClick procedure mnuOptimizeFieldsClick(Sender: TObject); -


Source

1693  procedure TfrmMeds.hdrMedsNonVASectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
1694  begin
1695    inherited;
1696    RedrawSuspend(Self.Handle);
1697    with lstMedsNonVA do
1698    begin
1699      IntegralHeight := not IntegralHeight;  // both lines are necessary, this forces the
1700      IntegralHeight := not IntegralHeight;  // listbox window to be recreated
1701    end;
1702    RedrawActivate(Self.Handle);
1703    lstMedsNonVA.Invalidate;
1704    Refresh;
1705  end;