Class

TfrmOptionsDays

Module

fOptionsDays

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsDays = class(TfrmBase508Form)
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  bvlTop: TBevel;
  bvlMiddle: TBevel;
  txtLabInpatient: TCaptionEdit;
  spnLabInpatient: TUpDown;
  txtLabOutpatient: TCaptionEdit;
  spnLabOutpatient: TUpDown;
  txtVisitStart: TCaptionEdit;
  spnVisitStart: TUpDown;
  txtVisitStop: TCaptionEdit;
  spnVisitStop: TUpDown;
  lblVisit: TStaticText;
  lblVisitStop: TLabel;
  lblVisitStart: TLabel;
  lblLabOutpatient: TLabel;
  lblLabInpatient: TLabel;
  lblLab: TStaticText;
  lblVisitValue: TMemo;
  lblLabValue: TMemo;
  btnLabDefaults: TButton;
  btnVisitDefaults: TButton;
  bvlBottom: TBevel;
  procedure FormCreate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType);
  procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType);
  procedure spnLabInpatientClick(Sender: TObject; Button: TUDBtnType);
  procedure spnLabOutpatientClick(Sender: TObject; Button: TUDBtnType);
  procedure txtLabInpatientKeyPress(Sender: TObject; var Key: Char);
  procedure btnLabDefaultsClick(Sender: TObject);
  procedure btnVisitDefaultsClick(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure txtLabInpatientChange(Sender: TObject);
  procedure txtLabInpatientExit(Sender: TObject);
  procedure txtLabOutpatientChange(Sender: TObject);
  procedure txtLabOutpatientExit(Sender: TObject);
  procedure txtVisitStartExit(Sender: TObject);
  procedure txtVisitStartKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure txtVisitStopExit(Sender: TObject);
  procedure txtVisitStopKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure txtVisitStartKeyPress(Sender: TObject; var Key: Char);
  procedure txtVisitStopKeyPress(Sender: TObject; var Key: Char);
private
  { Private declarations }
  FStartEntered: boolean;
  FStopEntered: boolean;
  procedure AdjustVisitLabel;
  procedure AdjustLabLabel;
public
  { Public declarations }
end;

DFM Objects


frmOptionsDays : TfrmOptionsDays
 ├bvlTop : TBevel
 ├bvlMiddle : TBevel
 ├lblVisitStop : TLabel
 ├lblVisitStart : TLabel
 ├lblLabOutpatient : TLabel
 ├lblLabInpatient : TLabel
 ├lblVisitValue : TMemo
 ├lblLabValue : TMemo
 ├lblVisit : TStaticText
 ├lblLab : TStaticText
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 ├txtLabInpatient : TCaptionEdit
 ├spnLabInpatient : TUpDown
 ├txtLabOutpatient : TCaptionEdit
 ├spnLabOutpatient : TUpDown
 ├txtVisitStart : TCaptionEdit
 ├spnVisitStart : TUpDown
 ├txtVisitStop : TCaptionEdit
 ├spnVisitStop : TUpDown
 ├btnLabDefaults : TButton
 ├btnVisitDefaults : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancel TButton Public/Published -
btnLabDefaults TButton Public/Published -
btnOK TButton Public/Published -
btnVisitDefaults TButton Public/Published -
bvlBottom TBevel Public/Published -
bvlMiddle TBevel Public/Published -
bvlTop TBevel Public/Published -
FStartEntered Boolean Private Private declarations
FStopEntered Boolean Private -
lblLab TStaticText Public/Published -
lblLabInpatient TLabel Public/Published -
lblLabOutpatient TLabel Public/Published -
lblLabValue TMemo Public/Published -
lblVisit TStaticText Public/Published -
lblVisitStart TLabel Public/Published -
lblVisitStop TLabel Public/Published -
lblVisitValue TMemo Public/Published -
pnlBottom TPanel Public/Published -
spnLabInpatient TUpDown Public/Published -
spnLabOutpatient TUpDown Public/Published -
spnVisitStart TUpDown Public/Published -
spnVisitStop TUpDown Public/Published -
txtLabInpatient TCaptionEdit Public/Published -
txtLabOutpatient TCaptionEdit Public/Published -
txtVisitStart TCaptionEdit Public/Published -
txtVisitStop TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
AdjustLabLabel procedure AdjustLabLabel; Private -
AdjustVisitLabel procedure AdjustVisitLabel; Private -
btnLabDefaultsClick procedure btnLabDefaultsClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnVisitDefaultsClick procedure btnVisitDefaultsClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published
Get lab defaults, personal values, visit defaults, personal values
tags for textboxes hold setting, tags on spinbuttons hold default,
tag of 1 on buttons indicate system default being used
spnLabInpatientClick procedure spnLabInpatientClick(Sender: TObject; Button: TUDBtnType); Public/Published -
spnLabOutpatientClick procedure spnLabOutpatientClick(Sender: TObject; Button: TUDBtnType); Public/Published -
spnVisitStartClick procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType); Public/Published -
spnVisitStopClick procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType); Public/Published -
txtLabInpatientChange procedure txtLabInpatientChange(Sender: TObject); Public/Published -
txtLabInpatientExit procedure txtLabInpatientExit(Sender: TObject); Public/Published -
txtLabInpatientKeyPress procedure txtLabInpatientKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtLabOutpatientChange procedure txtLabOutpatientChange(Sender: TObject); Public/Published -
txtLabOutpatientExit procedure txtLabOutpatientExit(Sender: TObject); Public/Published -
txtVisitStartExit procedure txtVisitStartExit(Sender: TObject); Public/Published -
txtVisitStartKeyPress procedure txtVisitStartKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtVisitStartKeyUp procedure txtVisitStartKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
txtVisitStopExit procedure txtVisitStopExit(Sender: TObject); Public/Published -
txtVisitStopKeyPress procedure txtVisitStopKeyPress(Sender: TObject; var Key: Char); Public/Published -
txtVisitStopKeyUp procedure txtVisitStopKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsDays (69) frmOptionsDays Read
fOptionsDays (82) - Read
fOptionsDays (84) - Read