Procedure

TfrmDrawers.sbRemindersClick

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDrawers

Declaration

procedure sbRemindersClick(Sender: TObject);

Calls Hierarchy


TfrmDrawers.sbRemindersClick
 ├TfrmDrawers.ToggleDrawer
 │ └TfrmDrawers.OpenDrawer
 │   ├TfrmDrawers.StartInternalResize
 │   ├TfrmDrawers.GetDrawerControls
 │   ├TfrmDrawers.SetSplitterActive
 │   ├TfrmDrawers.EndInternalResize
 │   └TfrmDrawers.ResizeToVisible
 │     ├AllCtrls
 │     │ └TfrmDrawers.GetDrawerControls
 │     ├TfrmDrawers.GetDrawerControls
 │     ├TfrmDrawers.ButtonHeights
 │     ├TfrmDrawers.MinDrawerControlHeight
 │     ├TfrmDrawers.StartInternalResize
 │     └TfrmDrawers.EndInternalResize
 ├StartupReminders
 │ └LoadReminderData
 │   ├BeginReminderUpdate
 │   ├GetCurrentReminders
 │   ├CheckReminders
 │   │ ├EvaluateReminders
 │   │ └ReminderEvaluated
 │   ├GetOtherReminders
 │   └EndReminderUpdate
 ├GetReminderStatus
 └TfrmDrawers.EnableDrawer
   ├TfrmDrawers.GetDrawerControls
   ├TfrmDrawers.OpenDrawer...
   └TfrmDrawers.ResizeToVisible...

Calls

Name Declaration Comments
TfrmDrawers.EnableDrawer function EnableDrawer(Drawer: TDrawer; EnableIt: boolean): boolean; -
GetReminderStatus function GetReminderStatus: TReminderStatus; -
StartupReminders procedure StartupReminders; -
TfrmDrawers.ToggleDrawer procedure ToggleDrawer(Drawer: TDrawer); -


Source

553   procedure TfrmDrawers.sbRemindersClick(Sender: TObject);
554   begin
555     if(InitialRemindersLoaded) then
556       ToggleDrawer(odReminders)
557     else
558     begin
559       StartupReminders;
560       if(GetReminderStatus = rsNone) then
561       begin
562         EnableDrawer(odReminders, FALSE);
563         sbReminders.Down := FALSE;
564         with sbReminders.Parent as TPanel do
565           if BevelOuter = bvLowered then
566             BevelOuter := bvRaised;
567       end
568       else
569         ToggleDrawer(odReminders)
570     end;
571     if ScreenReaderActive then
572       pnlRemindersButton.SetFocus;
573   end;