Procedure

SetReminderMenuSelectRoutine

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Scope

Interfaced

Declaration

procedure SetReminderMenuSelectRoutine(Menu: TMenuItem);

Calls Hierarchy


SetReminderMenuSelectRoutine
 └ReminderMenuItemSelect
   └ReminderMenuBuilder
     ├Add
     │ ├ReminderClinMaintClicked
     │ │ ├ReportBox
     │ │ │ └CreateReportBox
     │ │ │   └TfrmBase508Form.Create
     │ │ │     ├TfrmBase508Form.UpdateAccessibilityActions
     │ │ │     ├UnfocusableControlEnter
     │ │ │     └AdjustControls
     │ │ │       ├TfrmBase508Form.ModifyUnfocusableControl
     │ │ │       └..(rec)..
     │ │ ├DetailReminder
     │ │ │ └InteractiveRemindersActive
     │ │ │   └GetRemindersActive
     │ │ └ReminderName
     │ │   └TReminderDialog.GetPrintName
     │ ├ReminderEduClicked
     │ │ ├ReportBox...
     │ │ └EducationTopicDetail
     │ ├ReminderInqClicked
     │ │ ├ReportBox...
     │ │ ├ReminderInquiry
     │ │ └ReminderName...
     │ ├ReminderWebClicked
     │ │ ├GotoWebPage
     │ │ └GetWebPageAddress
     │ ├ReminderEvalClicked
     │ │ └EvalReminder
     │ │   ├EvaluateReminder
     │ │   │ └EvaluateReminders
     │ │   ├ReminderEvaluated
     │ │   └ReminderName...
     │ ├ReminderViewFolderClicked
     │ │ ├GetRemFolders
     │ │ │ └GetReminderFolders
     │ │ └SetRemFolders
     │ │   ├BeginReminderUpdate
     │ │   ├SetReminderFolders
     │ │   └EndReminderUpdate
     │ ├GetRemFolders...
     │ └ReminderIconLegendClicked
     │   └ShowIconLegend
     │     ├TfrmBase508Form.Create...
     │     ├TfrmFrame.TabExists
     │     ├TfrmIconLegend.ShowTab
     │     └TfrmIconLegend.SetFontSize
     │       └TfrmIconLegend.SnapLabels
     ├GetEducationTopics
     │ ├GetEducationTopicsForReminder
     │ └GetEducationSubtopics
     ├AddEducationTopics
     │ ├GetEducationTopics...
     │ ├Add...
     │ └..(rec)..
     ├GetWebPages
     │ └GetReminderWebPages
     └AddWebPages
       ├Add...
       └GetWebPageName

Called-By Hierarchy


 SetReminderMenuSelectRoutine
TfrmReminderTree.FormCreate┘ 

Calls

Name Declaration Comments
ReminderMenuItemSelect procedure ReminderMenuItemSelect(AData: pointer; Sender: TObject); -

Called-By

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


Source

1635  procedure SetReminderMenuSelectRoutine(Menu: TMenuItem);
1636  var
1637    M: TMethod;
1638  
1639  begin
1640    M.Code := @ReminderMenuItemSelect;
1641    M.Data := nil;
1642    Menu.OnClick := TNotifyEvent(M);
1643  end;