Procedure

TfrmPtSel.cmdProcessAllClick

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPtSel

Declaration

procedure cmdProcessAllClick(Sender: TObject);

Calls Hierarchy


TfrmPtSel.cmdProcessAllClick
 ├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

717   procedure TfrmPtSel.cmdProcessAllClick(Sender: TObject);
718   var
719     i: integer;
720   begin
721     if FAlertsNotReady then exit;
722     for i := 0 to lstvAlerts.Items.Count-1 do
723       lstvAlerts.Items[i].Selected := True;
724     cmdProcessClick(Self);
725     ShowButts(False);
726   end;