Class

TfraEvntDelayList

Module

mEvntDelay

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TFrame

Declaration


TfraEvntDelayList = class(TFrame)
  pnlDate: TPanel;
  pnlList: TPanel;
  mlstEvents: TORListBox;
  edtSearch: TCaptionEdit;
  lblEffective: TLabel;
  orDateBox: TORDateBox;
  lblEvntDelayList: TLabel;
  procedure edtSearchChange(Sender: TObject);
  procedure mlstEventsChange(Sender: TObject);
  procedure mlstEventsClick(Sender: TObject);
  procedure mlstEventsKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure edtSearchKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  FEvntLimit:       Char;
  FUserDefaultEvent:integer;
  fDefaultEvent:    integer;
  FMatchedCancel:   Boolean;
  FDisableWarning:  Boolean;
  FIsForCpXfer:     Boolean;
public
  constructor Create(AOwner: TComponent); override;
  procedure ResetProperty;
  procedure DisplayEvntDelayList;
  procedure CheckMatch;
  property EvntLimit:        Char     read FEvntLimit         write FEvntLimit;
  property UserDefaultEvent: integer  read FUserDefaultEvent  write FUserDefaultEvent;
  property DefaultEvent    : integer  read fDefaultEvent      write fDefaultEvent;
  property MatchedCancel   : Boolean  read FMatchedCancel     write FMatchedCancel;
  property DisableWarning  : Boolean  read FDisableWarning    write FDisableWarning;
  property IsForCpXfer     : Boolean  read FIsForCpXfer       write FIsForCpXfer;
end;

DFM Objects


fraEvntDelayList : TfraEvntDelayList
 ├pnlDate : TPanel
 │ ├lblEffective : TLabel
 │ └orDateBox : TORDateBox
 └pnlList : TPanel
   ├lblEvntDelayList : TLabel
   ├mlstEvents : TORListBox
   └edtSearch : TCaptionEdit

Class Hierarchy


Class Fields

Name Type Scope Comments
edtSearch TCaptionEdit Public/Published -
FDefaultEvent Integer Private -
FDisableWarning Boolean Private -
FEvntLimit Char Private -
FIsForCpXfer Boolean Private -
FMatchedCancel Boolean Private -
FUserDefaultEvent Integer Private -
lblEffective TLabel Public/Published -
lblEvntDelayList TLabel Public/Published -
mlstEvents TORListBox Public/Published -
orDateBox TORDateBox Public/Published -
pnlDate TPanel Public/Published -
pnlList TPanel Public/Published -

Properties

Name Type Scope Comments
DefaultEvent Integer Public -
DisableWarning Boolean Public -
EvntLimit Char Public -
IsForCpXfer Boolean Public -
MatchedCancel Boolean Public -
UserDefaultEvent Integer Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Methods

Name Declaration Scope Comments
CheckMatch procedure CheckMatch; Public -
DisplayEvntDelayList procedure DisplayEvntDelayList; Public -
edtSearchChange procedure edtSearchChange(Sender: TObject); Public/Published -
edtSearchKeyDown procedure edtSearchKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
mlstEventsChange procedure mlstEventsChange(Sender: TObject); Public/Published -
mlstEventsClick procedure mlstEventsClick(Sender: TObject); Public/Published -
mlstEventsKeyUp procedure mlstEventsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
ResetProperty procedure ResetProperty; Public -

Referenced By (4)

Module (line) Referrer Type
fMedCopy (25) TfrmMedCopy Read
fOrdersCopy (13) TfrmCopyOrders Read
fOrdersTS (25) TfrmOrdersTS Read
mEvntDelay (315) - Read