Procedure

TfrmRemDlg.FormDestroy

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

procedure FormDestroy(Sender: TObject);

Calls Hierarchy


TfrmRemDlg.FormDestroy
 ├TfrmDrawers.RemoveNotifyWhenRemTreeChanges
 ├TfrmRemDlg.RemindersChanged
 │ └TfrmRemDlg.UpdateButtons
 │   ├TfrmRemDlg.BackReminder
 │   │ └TfrmRemDlg.GetCurReminderList
 │   │   └TReminderDialog.GetIEN
 │   └TfrmRemDlg.NextReminder
 │     └TfrmRemDlg.GetCurReminderList...
 ├RemoveNotifyRemindersChange
 ├TfrmRemDlg.ClearControls
 │ ├WipeOutControls
 │ │ └..(rec)..
 │ └TfrmRemDlg.GetBox
 └TfrmReminderTree.EnableActions
   ├ReminderDialogActive
   ├NewRemCoverSheetListActive
   └CanEditAllRemCoverSheetLists
     └HasMenuOptionAccess

Calls

Name Declaration Comments
TfrmRemDlg.ClearControls procedure ClearControls(All: boolean = FALSE); -
TfrmReminderTree.EnableActions procedure EnableActions; -
TfrmRemDlg.RemindersChanged procedure RemindersChanged(Sender: TObject); -
RemoveNotifyRemindersChange procedure RemoveNotifyRemindersChange(Proc: TNotifyEvent); -
TfrmDrawers.RemoveNotifyWhenRemTreeChanges procedure RemoveNotifyWhenRemTreeChanges(Proc: TNotifyEvent); -


Source

406   procedure TfrmRemDlg.FormDestroy(Sender: TObject);
407   begin
408     if FProcessingTemplate then
409       KillObj(@FReminder);
410     KillObj(@FClinMainBox);
411     //Save the Position and Size of the Reminder Dialog
412     RemDlgLeft := Self.Left;
413     RemDlgTop := Self.Top;
414     RemDlgWidth := Self.Width;
415     RemDlgHeight := Self.Height;
416     RemDlgSpltr1 := pnlBottom.Height;
417     RemDlgSpltr2 := reData.Height;
418   //  SaveDialogSplitterPos(Name + 'Splitters', pnlBottom.Height, reData.Height);
419     RemForm.Drawers.RemoveNotifyWhenRemTreeChanges(RemindersChanged);
420     RemoveNotifyRemindersChange(RemindersChanged);
421     KillReminderDialogProc := nil;
422     ClearControls(TRUE);
423     frmRemDlg := nil;
424     if(assigned(frmReminderTree)) then
425       frmReminderTree.EnableActions;
426     RemForm.Form := nil;
427   end;