Procedure

TfrmRemDlg.FormCreate

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmRemDlg.FormCreate
 ├EligbleConditions
 ├NotifyWhenRemindersChange
 ├TfrmRemDlg.RemindersChanged
 │ └TfrmRemDlg.UpdateButtons
 │   ├TfrmRemDlg.BackReminder
 │   │ └TfrmRemDlg.GetCurReminderList
 │   │   └TReminderDialog.GetIEN
 │   └TfrmRemDlg.NextReminder
 │     └TfrmRemDlg.GetCurReminderList...
 ├TfrmDrawers.NotifyWhenRemTreeChanges
 └KillReminderDialog
   └TfrmRemDlg.ResetProcessing
     ├TfrmRemDlg.ClearControls
     │ ├WipeOutControls
     │ │ └..(rec)..
     │ └TfrmRemDlg.GetBox
     ├TfrmRemDlg.PositionTrees
     └TfrmRemDlg.KillDlg

Calls

Name Declaration Comments
EligbleConditions function EligbleConditions: TSCConditions; -
KillReminderDialog procedure KillReminderDialog(frm: TForm); -
NotifyWhenRemindersChange procedure NotifyWhenRemindersChange(Proc: TNotifyEvent); -
TfrmDrawers.NotifyWhenRemTreeChanges procedure NotifyWhenRemTreeChanges(Proc: TNotifyEvent); -
TfrmRemDlg.RemindersChanged procedure RemindersChanged(Sender: TObject); -


Source

387   procedure TfrmRemDlg.FormCreate(Sender: TObject);
388   begin
389    // reData.Color := ReadOnlyColor;
390   //  reText.Color := ReadOnlyColor;
391     FSCCond := EligbleConditions;
392    (* FSCRelated  := SCC_NA;
393     FAORelated  := SCC_NA;
394     FIRRelated  := SCC_NA;       AGP Change 25.2
395     FECRelated  := SCC_NA;
396     FMSTRelated := SCC_NA;
397     FHNCRelated := SCC_NA;
398     FCVRelated  := SCC_NA;
399     with FSCCond do
400       FSCPrompt := (SCAllow or AOAllow or IRAllow or ECAllow or MSTAllow or HNCAllow or CVAllow); *)
401     NotifyWhenRemindersChange(RemindersChanged);
402     RemForm.Drawers.NotifyWhenRemTreeChanges(RemindersChanged);
403     KillReminderDialogProc := KillReminderDialog;
404   end;