Procedure

TfrmOptions.btnNotificationsRemoveClick

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Confirm before clearing notifications

Visibility

Public/Published

Owner

TfrmOptions

Declaration

procedure btnNotificationsRemoveClick(Sender: TObject);

Calls Hierarchy


TfrmOptions.btnNotificationsRemoveClick
 └rpcClearNotifications

Calls

Name Declaration Comments
rpcClearNotifications procedure rpcClearNotifications; -


Source

350   procedure TfrmOptions.btnNotificationsRemoveClick(Sender: TObject);
351   // confirm before clearing notifications
352   begin
353     if InfoBox('CAUTION: This will clear all the current notifications you have pending.'
354       + #13 + 'If you say YES, these changes will take place immediately.'
355       + #13 + 'Are you sure you want to erase all of your notifications?',
356       'Warning', MB_YESNO or MB_ICONWARNING) = IDYES then
357       begin
358         rpcClearNotifications;
359       end;
360   end;