Procedure

TfrmAlertForward.btnRemoveAlertFwrdClick

Module

fAlertForward

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmAlertForward

Declaration

procedure btnRemoveAlertFwrdClick(Sender: TObject);

Called-By Hierarchy


     TfrmAlertForward.btnRemoveAlertFwrdClick
TfrmAlertForward.btnRemoveAllAlertFwrdClick┘ 

Called-By

Name Declaration Comments
TfrmAlertForward.btnRemoveAllAlertFwrdClick procedure btnRemoveAllAlertFwrdClick(Sender: TObject); -


Source

135   procedure TfrmAlertForward.btnRemoveAlertFwrdClick(Sender: TObject);
136   var
137     i: integer;
138   begin
139     with DstList do
140       begin
141         if ItemIndex = -1 then exit ;
142         for i := Items.Count-1 downto 0 do
143           if Selected[i] then
144           begin
145             if ScreenReaderSystemActive and (not RemovingAll) then
146               GetScreenReader.Speak(Piece(DstList.Items[i],U,2) +
147               ' Removed from ' + DstLabel.Caption);
148             Items.Delete(i) ;
149           end;
150       end;
151   end;