Procedure

TfrmFrame.ShowHideChartTabMenus

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Public

Owner

TfrmFrame

Declaration

procedure ShowHideChartTabMenus(AMenuItem: TMenuItem);

Calls Hierarchy


TfrmFrame.ShowHideChartTabMenus
 └TfrmFrame.TabExists

Called-By Hierarchy


TfrmFrame.ShowHideChartTabMenus
       TfrmDCSumm.DisplayPage┤ 
     TfrmConsults.DisplayPage┤ 
         TfrmFrame.FormCreate┤ 
       TfrmOrders.DisplayPage┤ 
         TfrmMeds.DisplayPage┤ 
      TfrmSurgery.DisplayPage┤ 
        TfrmNotes.DisplayPage┤ 
     TfrmProblems.DisplayPage┘ 

Calls

Name Declaration Comments
TfrmFrame.TabExists function TabExists(ATabID: integer): boolean; -

Called-By

Name Declaration Comments
TfrmDCSumm.DisplayPage procedure DisplayPage; override; -
TfrmConsults.DisplayPage procedure DisplayPage; override; -
TfrmOrders.DisplayPage procedure DisplayPage; override; -
TfrmMeds.DisplayPage procedure DisplayPage; override; -
TfrmSurgery.DisplayPage procedure DisplayPage; override; -
TfrmNotes.DisplayPage procedure DisplayPage; override; -
TfrmProblems.DisplayPage procedure DisplayPage; override; -
TfrmFrame.FormCreate procedure FormCreate(Sender: TObject); -


Source

3433  procedure TfrmFrame.ShowHideChartTabMenus(AMenuItem: TMenuItem);
3434  var
3435    i: integer;
3436  begin
3437    for i := 0 to AMenuItem.Count - 1 do
3438      AMenuItem.Items[i].Visible := TabExists(AMenuItem.Items[i].Tag);
3439  end;