Procedure

TfrmRemCoverSheet.FormCreate

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemCoverSheet

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmRemCoverSheet.FormCreate
 └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...

Calls

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


Source

1968  procedure TfrmRemCoverSheet.FormCreate(Sender: TObject);
1969  begin
1970    FSavePause := Application.HintHidePause;   //Save Hint Pause setting
1971    Application.HintHidePause := 20000;   //Reset Hint Pause to 20 seconds
1972    //mlgnLock.hint := 'Lock a Reminder to prevent it''s removal from a lower'
1973    imgLock.hint := 'Lock a Reminder to prevent it''s removal from a lower'
1974           + CRLF + 'level Coversheet display.  For example, if you lock'
1975           + CRLF + 'a Reminder at the Service level, then that Reminder'
1976           + CRLF + 'cannot be removed from the coversheet display at'
1977           + CRLF + 'the Location, User Class, or User levels.';
1978    lblLock.hint := imgLock.hint;       
1979    fOldFocusChanged := Screen.OnActiveControlChange;
1980    Screen.OnActiveControlChange := ActiveControlChanged;
1981  end;