Class

TfrmChgEvent

Module

fOrdersCV

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmChgEvent = class(TfrmAutoSz)
  pnlTop: TPanel;
  lblPtInfo: TLabel;
  pnlBottom: TPanel;
  cboSpecialty: TORComboBox;
  btnCancel: TButton;
  btnAction: TButton;
  procedure FormCreate(Sender: TObject);
  procedure cboSpecialtyChange(Sender: TObject);
  procedure btnActionClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure cboSpecialtyDblClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
  { Private declarations }
  FDefaultEvntIFN:   Integer;
  FDefaultPtEvntIFN: Integer;
  FCurrSpecialty    : string;
  FDefaultIndex: String;
  FOKPress: boolean;
  FLastIndex: Integer;

  procedure updateChanges(Const AnOrderIDList: TStringList; Const AnEventName: String);

public
  { Public declarations }
  procedure LoadSpecialtyList;
  procedure Highlight(APtEvtID: string);
  procedure FilterOutEmptyPtEvt;
  property CurrSpecialty: string      read FCurrSpecialty     write FCurrSpecialty;
  property DefaultIndex:   string    read FDefaultIndex      write FDefaultIndex;
  property OKPress:        boolean    read FOKPress           write FOKPress;

end;

DFM Objects


frmChgEvent : TfrmChgEvent
 ├pnlTop : TPanel
 │ └lblPtInfo : TLabel
 ├pnlBottom : TPanel
 │ ├cboSpecialty : TORComboBox
 │ ├btnCancel : TButton
 │ └btnAction : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAction TButton Public/Published -
btnCancel TButton Public/Published -
cboSpecialty TORComboBox Public/Published -
FCurrSpecialty UnicodeString Private -
FDefaultEvntIFN Integer Private Private declarations
FDefaultIndex UnicodeString Private -
FDefaultPtEvntIFN Integer Private -
FLastIndex Integer Private -
FOKPress Boolean Private -
lblPtInfo TLabel Public/Published -
pnlBottom TPanel Public/Published -
pnlTop TPanel Public/Published -

Properties

Name Type Scope Comments
CurrSpecialty UnicodeString Public -
DefaultIndex UnicodeString Public -
OKPress Boolean Public -

Methods

Name Declaration Scope Comments
btnActionClick procedure btnActionClick(Sender: TObject); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
cboSpecialtyChange procedure cboSpecialtyChange(Sender: TObject); Public/Published -
cboSpecialtyDblClick procedure cboSpecialtyDblClick(Sender: TObject); Public/Published -
FilterOutEmptyPtEvt procedure FilterOutEmptyPtEvt; Public -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
Highlight procedure Highlight(APtEvtID: string); Public -
LoadSpecialtyList procedure LoadSpecialtyList; Public
Public declarations
TfrmChgEvent
updateChanges procedure updateChanges(Const AnOrderIDList: TStringList; Const AnEventName: String); Private -

Referenced By (2)

Module (line) Referrer Type
fOrdersCV (63) - Read
fOrdersCV (114) - Read