Procedure

TfrmAlertForward.cboSrcListMouseClick

Module

fAlertForward

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmAlertForward

Declaration

procedure cboSrcListMouseClick(Sender: TObject);

Called-By Hierarchy


TfrmAlertForward.cboSrcListMouseClick
  TfrmAlertForward.btnAddAlertClick┤ 
 TfrmAlertForward.cboSrcListKeyDown┘ 

Called-By

Name Declaration Comments
TfrmAlertForward.btnAddAlertClick procedure btnAddAlertClick(Sender: TObject); -
TfrmAlertForward.cboSrcListKeyDown procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

182   procedure TfrmAlertForward.cboSrcListMouseClick(Sender: TObject);
183   begin
184     if cboSrcList.ItemIndex = -1 then exit;
185     if (DstList.SelectByID(cboSrcList.ItemID) <> -1) then
186       begin
187         InfoBox(TX_DUP_RECIP, TX_RECIP_CAP, MB_OK or MB_ICONWARNING);
188         Exit;
189       end;
190     DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]);
191     if ScreenReaderSystemActive then
192       GetScreenReader.Speak(Piece(cboSrcList.Items[cboSrcList.Itemindex],U,2) +
193         ' Added to ' + DstLabel.Caption);
194     btnRemoveAlertFwrd.Enabled := DstList.SelCount > 0;
195     btnRemoveAllAlertFwrd.Enabled := DstList.Items.Count > 0;
196   end;