Procedure

TfrmRemCoverSheet.LockButtonUpdate

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure LockButtonUpdate(data, FNAME, hint: string);

Calls Hierarchy


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

Called-By Hierarchy


           TfrmRemCoverSheet.LockButtonUpdate
            TfrmRemCoverSheet.UpdateButtons┤ 
                   TfrmRemCoverSheet.Init┤ │ 
             EditCoverSheetReminderList┘ │ │ 
  TfrmReminderTree.mnuCoverSheetClick┤   │ │ 
               DialogOptionsReminders┘   │ │ 
 TfrmOptions.btnCoverRemindersClick┘     │ │ 
   TfrmRemCoverSheet.UpdateMasterListView┤ │ 
     TfrmRemCoverSheet.cbEditLevelClick┤ │ │ 
   TfrmRemCoverSheet.cbxDropDownClose┘ │ │ │ 
TfrmRemCoverSheet.cbxDivisionChange┤   │ │ │ 
 TfrmRemCoverSheet.cbxServiceChange┤   │ │ │ 
TfrmRemCoverSheet.cbxLocationChange┤   │ │ │ 
   TfrmRemCoverSheet.cbxClassChange┤   │ │ │ 
    TfrmRemCoverSheet.cbxUserChange┤   │ │ │ 
 TfrmRemCoverSheet.lvViewSelectItem┘   │ │ │ 
   TfrmRemCoverSheet.lvViewChange┘     │ │ │ 
     TfrmRemCoverSheet.sbCopyRightClick┤ │ │ 
      TfrmRemCoverSheet.sbCopyLeftClick┤ │ │ 
             TfrmRemCoverSheet.SaveData┘ │ │ 
      TfrmRemCoverSheet.btnApplyClick┤   │ │ 
         TfrmRemCoverSheet.btnOKClick┘   │ │ 
           TfrmRemCoverSheet.edtSeqChange┤ │ 
            TfrmRemCoverSheet.tvAllChange┤ │ 
          TfrmRemCoverSheet.lvCoverChange┤ │ 
              TfrmRemCoverSheet.sbUpClick┤ │ 
            TfrmRemCoverSheet.sbDownClick┤ │ 
   TfrmRemCoverSheet.ActiveControlChanged┘ │ 
         TfrmRemCoverSheet.btnViewClick┤   │ 
           TfrmRemCoverSheet.FormCreate┘   │ 
             TfrmRemCoverSheet.ChangeStatus┘ 
            TfrmRemCoverSheet.btnAddClick┤   
  TfrmRemCoverSheet.LockButtonUpdate...┘ │   
         TfrmRemCoverSheet.btnRemoveClick┤   
           TfrmRemCoverSheet.btnLockClick┘   
  TfrmRemCoverSheet.LockButtonUpdate...┘     

Calls

Name Declaration Comments
TfrmRemCoverSheet.btnAddClick procedure btnAddClick(Sender: TObject); -
TfrmRemCoverSheet.btnLockClick procedure btnLockClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.ChangeStatus procedure ChangeStatus(Code: string); -
TfrmRemCoverSheet.UpdateButtons procedure UpdateButtons; -


Source

1989  procedure TfrmRemCoverSheet.LockButtonUpdate(Data, FNAME, Hint: string);
1990  begin
1991    btnLock.Caption := Data;
1992    btnLock.Glyph.LoadFromResourceName(hinstance, FNAME);
1993    if btnLock.Hint <> Hint then btnLock.Hint := Hint;
1994    if FNAME = 'BMP_LOCK' then btnLock.OnClick := btnLockClick
1995    else
1996      btnLock.OnClick := btnAddClick;
1997  end;