Procedure

TfrmMeds.hdrMedsOutSectionResize

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmMeds

Declaration

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

Called-By Hierarchy


       TfrmMeds.hdrMedsOutSectionResize
      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

1081  procedure TfrmMeds.hdrMedsOutSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
1082  begin
1083    inherited;
1084    RedrawSuspend(Self.Handle);
1085    with lstMedsOut do
1086    begin
1087      IntegralHeight := not IntegralHeight;  // both lines are necessary, this forces the
1088      IntegralHeight := not IntegralHeight;  // listbox window to be recreated
1089    end;
1090    RedrawActivate(Self.Handle);
1091    lstMedsOut.Invalidate;
1092    Refresh;
1093  end;