Procedure

DialogOptionsReminders

Module

fOptionsReminders

Last Modified

7/15/2014 3:26:40 PM

Comments

Create the form and make it modal, return an action

Scope

Interfaced

Declaration

procedure DialogOptionsReminders(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);

Calls Hierarchy


DialogOptionsReminders
 ├NewRemCoverSheetListActive
 ├EditCoverSheetReminderList
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├TfrmRemCoverSheet.Init
 │ │ ├GetAllRemindersAndCategories
 │ │ ├TfrmRemCoverSheet.GetUserInfo
 │ │ │ └UserDivClassInfo
 │ │ ├GetPCECodes
 │ │ │ ├LoadHistLocations
 │ │ │ └CodeSetIndex
 │ │ │   ├LoadImmSeriesItems
 │ │ │   ├LoadImmReactionItems
 │ │ │   ├LoadSkResultsItems
 │ │ │   ├LoadPEDLevelItems
 │ │ │   ├LoadHFLevelItems
 │ │ │   └LoadXAMResultsItems
 │ │ ├TfrmRemCoverSheet.GetExternalName
 │ │ │ └GetNameFromList
 │ │ │   └ExternalName
 │ │ ├TfrmRemCoverSheet.UpdateView
 │ │ │ └TfrmRemCoverSheet.GetCurrent
 │ │ │   └TfrmRemCoverSheet.GetCoverSheetLvlData
 │ │ │     └GetCoverSheetLevelData
 │ │ └TfrmRemCoverSheet.UpdateButtons
 │ │   ├TfrmRemCoverSheet.GetCurrent...
 │ │   ├TfrmRemCoverSheet.GetIndex
 │ │   └TfrmRemCoverSheet.LockButtonUpdate
 │ │     ├TfrmRemCoverSheet.btnLockClick
 │ │     │ └TfrmRemCoverSheet.ChangeStatus
 │ │     │   ├TfrmRemCoverSheet.GetCurrent...
 │ │     │   ├TfrmRemCoverSheet.GetIndex
 │ │     │   ├TfrmRemCoverSheet.MarkListAsChanged
 │ │     │   │ └TfrmRemCoverSheet.UpdateView...
 │ │     │   ├TfrmRemCoverSheet.SetupItem
 │ │     │   └TfrmRemCoverSheet.LockButtonUpdate...
 │ │     └TfrmRemCoverSheet.btnAddClick
 │ │       └TfrmRemCoverSheet.ChangeStatus...
 │ └ResetReminderLoad
 │   └LoadReminderData
 │     ├BeginReminderUpdate
 │     ├GetCurrentReminders
 │     ├CheckReminders
 │     │ ├EvaluateReminders
 │     │ └ReminderEvaluated
 │     ├GetOtherReminders
 │     └EndReminderUpdate
 └TfrmBase508Form.Create...

Called-By Hierarchy


              DialogOptionsReminders
TfrmOptions.btnCoverRemindersClick┘ 

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
EditCoverSheetReminderList procedure EditCoverSheetReminderList(AsUser: boolean); -
NewRemCoverSheetListActive function NewRemCoverSheetListActive: boolean; -

Called-By

Name Declaration Comments
TfrmOptions.btnCoverRemindersClick procedure btnCoverRemindersClick(Sender: TObject); -


Source

54    procedure DialogOptionsReminders(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
55    // create the form and make it modal, return an action
56    var
57      frmOptionsReminders: TfrmOptionsReminders;
58    begin
59      if NewRemCoverSheetListActive then
60        EditCoverSheetReminderList(TRUE)
61      else
62      begin
63        frmOptionsReminders := TfrmOptionsReminders.Create(Application);
64        actiontype := 0;
65        try
66          with frmOptionsReminders do
67          begin
68            if (topvalue < 0) or (leftvalue < 0) then
69              Position := poScreenCenter
70            else
71            begin
72              Position := poDesigned;
73              Top := topvalue;
74              Left := leftvalue;
75            end;
76            ResizeAnchoredFormToFont(frmOptionsReminders);
77            ShowModal;
78            actiontype := btnOK.Tag;
79          end;
80        finally
81          frmOptionsReminders.Release;
82        end;
83      end;
84    end;