Class

TfrmAllgyFind

Module

fAllgyFind

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmAllgyFind = class(TfrmAutoSz)
  txtSearch: TCaptionEdit;
  cmdSearch: TButton;
  cmdOK: TButton;
  cmdCancel: TButton;
  lblSearch: TLabel;
  lblSelect: TLabel;
  stsFound: TStatusBar;
  ckNoKnownAllergies: TCheckBox;
  tvAgent: TORTreeView;
  imTree: TImageList;
  lblDetail: TLabel;
  lblSearchCaption: TLabel;
  imgLblAllgyFindTree: TVA508ImageListLabeler;
  NoAllergylbl508: TVA508StaticText;
  procedure cmdSearchClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure txtSearchChange(Sender: TObject);
  procedure BuildAgentTree(AgentList: TStrings; const Parent: string; Node: TORTreeNode);
  procedure ckNoKnownAllergiesClick(Sender: TObject);
  procedure tvAgentDblClick(Sender: TObject);
private
  FAllergy: string   ;
  FExpanded : boolean;
end;

DFM Objects


frmAllgyFind : TfrmAllgyFind
 ├lblSearch : TLabel
 ├lblSelect : TLabel
 ├lblDetail : TLabel
 ├lblSearchCaption : TLabel
 ├txtSearch : TCaptionEdit
 ├cmdSearch : TButton
 ├cmdOK : TButton
 ├cmdCancel : TButton
 ├stsFound : TStatusBar
 ├ckNoKnownAllergies : TCheckBox
 ├tvAgent : TORTreeView
 ├NoAllergylbl508 : TVA508StaticText
 ├amgrMain : TVA508AccessibilityManager
 ├imTree : TImageList
 └imgLblAllgyFindTree : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
ckNoKnownAllergies TCheckBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
cmdSearch TButton Public/Published -
FAllergy UnicodeString Private -
FExpanded Boolean Private -
imgLblAllgyFindTree TVA508ImageListLabeler Public/Published -
imTree TImageList Public/Published -
lblDetail TLabel Public/Published -
lblSearch TLabel Public/Published -
lblSearchCaption TLabel Public/Published -
lblSelect TLabel Public/Published -
NoAllergylbl508 TVA508StaticText Public/Published -
stsFound Simple (unknown) Public/Published -
tvAgent TORTreeView Public/Published -
txtSearch TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
BuildAgentTree procedure BuildAgentTree(AgentList: TStrings; const Parent: string; Node: TORTreeNode); Public/Published -
ckNoKnownAllergiesClick procedure ckNoKnownAllergiesClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdSearchClick procedure cmdSearchClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
tvAgentDblClick procedure tvAgentDblClick(Sender: TObject); Public/Published -
txtSearchChange procedure txtSearchChange(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fAllgyFind (94) - Read
fAllgyFind (96) - Read