Procedure

TfrmMeds.hdrMedsInSectionResize

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmMeds

Declaration

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

Called-By Hierarchy


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

1095  procedure TfrmMeds.hdrMedsInSectionResize(HeaderControl: THeaderControl; Section: THeaderSection);
1096  begin
1097    inherited;
1098    RedrawSuspend(Self.Handle);
1099    with lstMedsIn do
1100    begin
1101      IntegralHeight := not IntegralHeight;  // both lines are necessary, this forces the
1102      IntegralHeight := not IntegralHeight;  // listbox window to be recreated
1103    end;
1104  
1105    RedrawActivate(Self.Handle);
1106    lstMedsIn.Invalidate;
1107    Refresh;
1108  end;