Class

TfrmODDietLT

Module

fODDietLT

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmODDietLT = class(TfrmAutoSz)
  lblMealCutoff: TStaticText;
  Label2: TStaticText;
  GroupBox1: TGroupBox;
  cmdYes: TButton;
  cmdNo: TButton;
  radLT1: TRadioButton;
  radLT2: TRadioButton;
  radLT3: TRadioButton;
  chkBagged: TCheckBox;
  Bevel1: TBevel;
  procedure cmdYesClick(Sender: TObject);
  procedure cmdNoClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
private
  FOutpatient: boolean;
  YesPressed: Boolean;
public
  { Public declarations }
end;

DFM Objects


frmODDietLT : TfrmODDietLT
 ├Bevel1 : TBevel
 ├lblMealCutoff : TStaticText
 ├Label2 : TStaticText
 ├GroupBox1 : TGroupBox
 │ ├radLT1 : TRadioButton
 │ ├radLT2 : TRadioButton
 │ └radLT3 : TRadioButton
 ├cmdYes : TButton
 ├cmdNo : TButton
 ├chkBagged : TCheckBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
chkBagged TCheckBox Public/Published -
cmdNo TButton Public/Published -
cmdYes TButton Public/Published -
FOutpatient Boolean Private -
GroupBox1 TGroupBox Public/Published -
Label2 TStaticText Public/Published -
lblMealCutoff TStaticText Public/Published -
radLT1 TRadioButton Public/Published -
radLT2 TRadioButton Public/Published -
radLT3 TRadioButton Public/Published -
YesPressed Boolean Private -

Methods

Name Declaration Scope Comments
cmdNoClick procedure cmdNoClick(Sender: TObject); Public/Published -
cmdYesClick procedure cmdYesClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published ---------- frmODDietLT procedures ---------------

Referenced By (2)

Module (line) Referrer Type
fODDietLT (53) - Read
fODDietLT (161) - Read