Class

TfrmAllgyBox

Module

fAllgyBox

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmReportBox

Declaration


TfrmAllgyBox = class(TfrmReportBox)
  cmdEdit: TButton;
  cmdAdd: TButton;
  cmdInError: TButton;
  procedure cmdAddClick(Sender: TObject);
  procedure cmdEditClick(Sender: TObject);
  procedure cmdInErrorClick(Sender: TObject);
private
  { Private declarations }
  FAllergyIEN: integer;
  procedure RefreshText;
public
  { Public declarations }
end;

DFM Objects


frmAllgyBox : TfrmAllgyBox
 ├memReport : TRichEdit
 ├pnlButton : TPanel
 │ ├cmdPrint : TButton
 │ ├cmdClose : TButton
 │ ├cmdEdit : TButton
 │ ├cmdAdd : TButton
 │ └cmdInError : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdAdd TButton Public/Published -
cmdEdit TButton Public/Published -
cmdInError TButton Public/Published -
FAllergyIEN Integer Private Private declarations

Methods

Name Declaration Scope Comments
cmdAddClick procedure cmdAddClick(Sender: TObject); Public/Published -
cmdEditClick procedure cmdEditClick(Sender: TObject); Public/Published -
cmdInErrorClick procedure cmdInErrorClick(Sender: TObject); Public/Published -
RefreshText procedure RefreshText; Private -

Referenced By (3)

Module (line) Referrer Type
fAllgyBox (29) frmAllgyBox Read
fAllgyBox (41) CreateAllergyBox Read
fAllgyBox (52) - Read