Class

TfrmConsultAlertsTo

Module

fConsultAlertTo

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmConsultAlertsTo = class(TfrmBase508Form)
  cmdOK: TButton;
  cmdCancel: TButton;
  cboSrcList: TORComboBox;
  DstList: TORListBox;
  SrcLabel: TLabel;
  DstLabel: TLabel;
  pnlBase: TORAutoPanel;
  btnAdd: TButton;
  btnRemove: TButton;
  procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  //procedure cboSrcListdblClick(Sender: TObject);
  procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure DstListClick(Sender: TObject);
  procedure cboSrcListMouseClick(Sender: TObject);
private
  FActionType: integer;
  FRecipients: string ;
  FChanged: Boolean;
end;

DFM Objects


frmConsultAlertsTo : TfrmConsultAlertsTo
 ├pnlBase : TORAutoPanel
 │ ├SrcLabel : TLabel
 │ ├DstLabel : TLabel
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ ├cboSrcList : TORComboBox
 │ ├DstList : TORListBox
 │ ├btnAdd : TButton
 │ └btnRemove : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAdd TButton Public/Published -
btnRemove TButton Public/Published -
cboSrcList TORComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
DstLabel TLabel Public/Published -
DstList TORListBox Public/Published -
FActionType Integer Private -
FChanged Boolean Private -
FRecipients UnicodeString Private -
pnlBase TORAutoPanel Public/Published -
SrcLabel TLabel Public/Published -

Methods

Name Declaration Scope Comments
cboSrcListKeyDown procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published Procedure cboSrcListdblClick(Sender: TObject);
cboSrcListMouseClick procedure cboSrcListMouseClick(Sender: TObject); Public/Published -
cboSrcListNeedData procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
DstListClick procedure DstListClick(Sender: TObject); Public/Published
Procedure TfrmConsultAlertsTo.cboSrcListdblClick(Sender: TObject);
begin
     if cboSrcList.ItemIndex = -1 then exit ;
     if DstList.SelectByID(cboSrcList.ItemID) = -1 then
       DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]) ;
end;

Referenced By (2)

Module (line) Referrer Type
fConsultAlertTo (55) - Read
fConsultAlertTo (57) - Read