Class

TfrmPtCWAD

Module

fPtCWAD

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmPtCWAD = class(TfrmAutoSz)
  lstAllergies: TORListBox;
  lstNotes: TORListBox;
  lblNotes: TOROffsetLabel;
  pnlBottom: TPanel;
  btnClose: TButton;
  lblAllergies: TOROffsetLabel;
  procedure FormCreate(Sender: TObject);
  procedure lstAllergiesClick(Sender: TObject);
  procedure lstNotesClick(Sender: TObject);
  procedure FormKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure btnCloseClick(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

DFM Objects


frmPtCWAD : TfrmPtCWAD
 ├lblNotes : TOROffsetLabel
 ├lblAllergies : TOROffsetLabel
 ├lstAllergies : TORListBox
 ├lstNotes : TORListBox
 ├pnlBottom : TPanel
 │ └btnClose : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnClose TButton Public/Published -
lblAllergies TOROffsetLabel Public/Published -
lblNotes TOROffsetLabel Public/Published -
lstAllergies TORListBox Public/Published -
lstNotes TORListBox Public/Published -
pnlBottom TPanel Public/Published -

Methods

Name Declaration Scope Comments
btnCloseClick procedure btnCloseClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormKeyUp procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lstAllergiesClick procedure lstAllergiesClick(Sender: TObject); Public/Published -
lstNotesClick procedure lstNotesClick(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fPtCWAD (44) - Read
fPtCWAD (46) - Read