Class

TfrmOptionsOther

Module

fOptionsOther

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOptionsOther = class(TfrmBase508Form)
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  bvlBottom: TBevel;
  stStart: TStaticText;
  stStop: TStaticText;
  dtStart: TORDateBox;
  dtStop: TORDateBox;
  lblMedsTab: TLabel;
  lblTabDefault: TStaticText;
  lblTab: TLabel;
  cboTab: TORComboBox;
  chkLastTab: TCheckBox;
  Bevel1: TBevel;
  lblEncAppts: TLabel;
  stStartEncAppts: TStaticText;
  txtTodayMinus: TStaticText;
  txtEncStart: TCaptionEdit;
  txtDaysMinus: TStaticText;
  spnEncStart: TUpDown;
  txtDaysPlus: TStaticText;
  spnEncStop: TUpDown;
  txtEncStop: TCaptionEdit;
  txtTodayPlus: TStaticText;
  stStopEncAppts: TStaticText;
  Bevel2: TBevel;
  btnEncDefaults: TButton;
  procedure FormShow(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure dtStartExit(Sender: TObject);
  procedure dtStopExit(Sender: TObject);
  procedure dtStartChange(Sender: TObject);
  procedure txtEncStartChange(Sender: TObject);
  procedure txtEncStopChange(Sender: TObject);
  procedure txtEncStartExit(Sender: TObject);
  procedure txtEncStopExit(Sender: TObject);
  procedure btnEncDefaultsClick(Sender: TObject);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure btnCancelClick(Sender: TObject);
private
  { Private declarations }
  FstartDt: TFMDateTime;
  FstopDt: TFMDateTime;
  FEncStartDays, FEncStopDays, FEncDefStartDays, FEncDefStopDays: integer;
  OK2Closed: boolean;
  //FDefaultEvent: string;
public
  { Public declarations }
end;

DFM Objects


frmOptionsOther : TfrmOptionsOther
 ├lblMedsTab : TLabel
 ├lblTab : TLabel
 ├Bevel1 : TBevel
 ├lblEncAppts : TLabel
 ├Bevel2 : TBevel
 ├pnlBottom : TPanel
 │ ├bvlBottom : TBevel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 ├stStart : TStaticText
 ├stStop : TStaticText
 ├dtStart : TORDateBox
 ├dtStop : TORDateBox
 ├lblTabDefault : TStaticText
 ├cboTab : TORComboBox
 ├chkLastTab : TCheckBox
 ├stStartEncAppts : TStaticText
 ├txtTodayMinus : TStaticText
 ├txtEncStart : TCaptionEdit
 ├txtDaysMinus : TStaticText
 ├spnEncStart : TUpDown
 ├txtDaysPlus : TStaticText
 ├spnEncStop : TUpDown
 ├txtEncStop : TCaptionEdit
 ├txtTodayPlus : TStaticText
 ├stStopEncAppts : TStaticText
 ├btnEncDefaults : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
Bevel2 TBevel Public/Published -
btnCancel TButton Public/Published -
btnEncDefaults TButton Public/Published -
btnOK TButton Public/Published -
bvlBottom TBevel Public/Published -
cboTab TORComboBox Public/Published -
chkLastTab TCheckBox Public/Published -
dtStart TORDateBox Public/Published -
dtStop TORDateBox Public/Published -
FEncDefStartDays Integer Private -
FEncDefStopDays Integer Private -
FEncStartDays Integer Private -
FEncStopDays Integer Private -
FstartDt TFMDateTime Private Private declarations
FstopDt TFMDateTime Private -
lblEncAppts TLabel Public/Published -
lblMedsTab TLabel Public/Published -
lblTab TLabel Public/Published -
lblTabDefault TStaticText Public/Published -
OK2Closed Boolean Private -
pnlBottom TPanel Public/Published -
spnEncStart TUpDown Public/Published -
spnEncStop TUpDown Public/Published -
stStart TStaticText Public/Published -
stStartEncAppts TStaticText Public/Published -
stStop TStaticText Public/Published -
stStopEncAppts TStaticText Public/Published -
txtDaysMinus TStaticText Public/Published -
txtDaysPlus TStaticText Public/Published -
txtEncStart TCaptionEdit Public/Published -
txtEncStop TCaptionEdit Public/Published -
txtTodayMinus TStaticText Public/Published -
txtTodayPlus TStaticText Public/Published -

Methods

Name Declaration Scope Comments
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnEncDefaultsClick procedure btnEncDefaultsClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published Opening tab^use last tab^autosave seconds^verify note title
dtStartChange procedure dtStartChange(Sender: TObject); Public/Published -
dtStartExit procedure dtStartExit(Sender: TObject); Public/Published -
dtStopExit procedure dtStopExit(Sender: TObject); Public/Published -
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published
Displays defaults
 opening tab^use last tab^autosave seconds^verify note title
txtEncStartChange procedure txtEncStartChange(Sender: TObject); Public/Published -
txtEncStartExit procedure txtEncStartExit(Sender: TObject); Public/Published -
txtEncStopChange procedure txtEncStopChange(Sender: TObject); Public/Published -
txtEncStopExit procedure txtEncStopExit(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fOptionsOther (64) frmOptionsOther Read
fOptionsOther (81) - Read
fOptionsOther (83) - Read