Procedure

TfrmRemCoverSheet.ActiveControlChanged

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure ActiveControlChanged(Sender: TObject);

Calls Hierarchy


TfrmRemCoverSheet.ActiveControlChanged
 └TfrmRemCoverSheet.UpdateButtons
   ├TfrmRemCoverSheet.GetCurrent
   │ └TfrmRemCoverSheet.GetCoverSheetLvlData
   │   └GetCoverSheetLevelData
   ├TfrmRemCoverSheet.GetIndex
   └TfrmRemCoverSheet.LockButtonUpdate
     ├TfrmRemCoverSheet.btnLockClick
     │ └TfrmRemCoverSheet.ChangeStatus
     │   ├TfrmRemCoverSheet.GetCurrent...
     │   ├TfrmRemCoverSheet.GetIndex
     │   ├TfrmRemCoverSheet.MarkListAsChanged
     │   │ └TfrmRemCoverSheet.UpdateView
     │   │   └TfrmRemCoverSheet.GetCurrent...
     │   ├TfrmRemCoverSheet.SetupItem
     │   └TfrmRemCoverSheet.LockButtonUpdate...
     └TfrmRemCoverSheet.btnAddClick
       └TfrmRemCoverSheet.ChangeStatus...

Called-By Hierarchy


TfrmRemCoverSheet.ActiveControlChanged
      TfrmRemCoverSheet.btnViewClick┤ 
        TfrmRemCoverSheet.FormCreate┘ 

Calls

Name Declaration Comments
TfrmRemCoverSheet.UpdateButtons procedure UpdateButtons; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.btnViewClick procedure btnViewClick(Sender: TObject); -
TfrmRemCoverSheet.FormCreate procedure FormCreate(Sender: TObject); -


Source

1983  procedure TfrmRemCoverSheet.ActiveControlChanged(Sender: TObject);
1984  begin
1985    if assigned(fOldFocusChanged) then fOldFocusChanged(Sender);
1986    UpdateButtons;
1987  end;