Procedure

TfrmPtSel.cmdProcessInfoClick

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Comments

Select and process all items that are information only in the lstvAlerts list box.

Visibility

Public/Published

Owner

TfrmPtSel

Declaration

procedure cmdProcessInfoClick(Sender: TObject);

Calls Hierarchy


TfrmPtSel.cmdProcessInfoClick
 ├TfrmPtSel.cmdProcessClick
 │ ├DeleteAlert
 │ ├TNotifications.Add
 │ ├GetTIUAlertInfo
 │ ├TfrmPtSel.AlertList
 │ │ └LoadNotifications
 │ ├TfrmPtSel.FormShow
 │ │ ├GetSortMethod
 │ │ └TfrmPtSel.lstvAlertsColumnClick
 │ │   ├TfrmPtSel.ReformatAlertDateTime
 │ │   └SetSortMethod
 │ ├TfrmPtSel.ShowButts
 │ │ └TfrmPtSel.ShowDisabledButtonTexts
 │ └GetBAStatus
 │   └TfrmFrame.SetBADxList
 └TfrmPtSel.ShowButts...

Calls

Name Declaration Comments
TfrmPtSel.cmdProcessClick procedure cmdProcessClick(Sender: TObject); -
TfrmPtSel.ShowButts procedure ShowButts(ShowButts: Boolean); -


Source

694   procedure TfrmPtSel.cmdProcessInfoClick(Sender: TObject);
695     // Select and process all items that are information only in the lstvAlerts list box.
696   var
697     i: integer;
698   begin
699     if FAlertsNotReady then exit;  
700     if lstvAlerts.Items.Count = 0 then Exit;
701     if InfoBox('You are about to process all your INFORMATION alerts.' + CRLF
702       + 'These alerts will not be presented to you for individual' + CRLF
703       + 'review and they will be permanently removed from your' + CRLF
704       + 'alert list.  Do you wish to continue?',
705       'Warning', MB_YESNO or MB_ICONWARNING) = IDYES then
706     begin
707       for i := 0 to lstvAlerts.Items.Count-1 do
708         lstvAlerts.Items[i].Selected := False;  //clear any selected alerts so they aren't processed
709       for i := 0 to lstvAlerts.Items.Count-1 do
710         if lstvAlerts.Items[i].Caption = 'I' then
711           lstvAlerts.Items[i].Selected := True;
712       cmdProcessClick(Self);
713       ShowButts(False);
714     end;
715   end;