Function

TfrmMeds.GetHeader

Module

fMeds

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmMeds

Declaration

function GetHeader(Control: TWinControl): THeaderControl;

Called-By Hierarchy


                                                          TfrmMeds.GetHeader
                                                     TfrmMeds.GetPlainText┤ 
                                                    TfrmMeds.NotifyOrder┤ │ 
                                                  TfrmFrame.UMNewOrder┘ │ │ 
                                                TfrmMeds.RefreshMedLists┘ │ 
                                                  TfrmMeds.DisplayPage┤   │ 
                                               TfrmMeds.NotifyOrder...┤   │ 
                                                  TfrmMeds.SetFontSize┤   │ 
                                                TfrmFrame.ChangeFont┘ │   │ 
                                        TfrmFrame.LoadSizesForUser┤   │   │ 
                                   TfrmFrame.LoadUserPreferences┘ │   │   │ 
                                          TfrmFrame.UMInitiate┘   │   │   │ 
                                        TfrmFrame.mnuFontSizeClick┘   │   │ 
                               TfrmMeds.SortbyStatusthenLocation1Click┤   │ 
                TfrmMeds.SortbyClinicOrderthenStatusthenStopDate1Click┤   │ 
TfrmMeds.SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click┤   │ 
                                           TfrmOptionsOther.btnOKClick┘   │ 
                                               TfrmMeds.lstMedsMeasureItem┤ 
                                                  TfrmMeds.lstMedsDrawItem┘ 

Called-By

Name Declaration Comments
TfrmMeds.GetPlainText function GetPlainText(Control: TWinControl; Index: integer): string; -
TfrmMeds.lstMedsDrawItem procedure lstMedsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); -
TfrmMeds.lstMedsMeasureItem procedure lstMedsMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); -


Source

884   function TFrmMeds.GetHeader(Control: TWinControl): THeaderControl;
885   begin
886     case Control.Tag of
887       TAG_OUTPT: result := hdrMedsOut;
888       TAG_NONVA: result := hdrMedsNonVA;
889       TAG_INPT:  result := hdrMedsIn;
890   
891       else       
892       result := nil;
893     end;
894   end;