Class

TfrmOrdersTS

Module

fOrdersTS

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmOrdersTS = class(TfrmAutoSz)
  pnlMiddle: TPanel;
  pnlTop: TPanel;
  lblPtInfo: TVA508StaticText;
  grpChoice: TGroupBox;
  radReleaseNow: TRadioButton;
  radDelayed: TRadioButton;
  pnldif: TPanel;
  Image1: TImage;
  cmdOK: TButton;
  cmdCancel: TButton;
  lblUseAdmit: TVA508StaticText;
  lblUseTransfer: TVA508StaticText;
  pnlBottom: TPanel;
  fraEvntDelayList: TfraEvntDelayList;
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure radDelayedClick(Sender: TObject);
  procedure radReleaseNowClick(Sender: TObject);
  procedure fraEvntDelayListcboEvntListChange(Sender: TObject);
  procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY;
  procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure fraEvntDelayListmlstEventsChange(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  OKPressed: Boolean;
  FResult  : Boolean;
  FImmediatelyRelease: boolean;
  FCurrSpecialty: string;
  F1stClick: Boolean;
end;

DFM Objects


frmOrdersTS : TfrmOrdersTS
 ├pnlMiddle : TPanel
 │ └grpChoice : TGroupBox
 │   ├radReleaseNow : TRadioButton
 │   ├radDelayed : TRadioButton
 │   ├cmdOK : TButton
 │   └cmdCancel : TButton
 ├pnlTop : TPanel
 │ ├lblPtInfo : TVA508StaticText
 │ └pnldif : TPanel
 │   ├Image1 : TImage
 │   ├lblUseAdmit : TVA508StaticText
 │   └lblUseTransfer : TVA508StaticText
 ├pnlBottom : TPanel
 │ └fraEvntDelayList : TfraEvntDelayList
 │   ├pnlDate : TPanel
 │   │ ├lblEffective : TLabel
 │   │ └orDateBox : TORDateBox
 │   └pnlList : TPanel
 │     ├lblEvntDelayList : TLabel
 │     ├mlstEvents : TORListBox
 │     └edtSearch : TCaptionEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
F1stClick Boolean Private -
FCurrSpecialty UnicodeString Private -
FImmediatelyRelease Boolean Private -
fraEvntDelayList TfraEvntDelayList Public/Published -
FResult Boolean Private -
grpChoice TGroupBox Public/Published -
Image1 TImage Public/Published -
lblPtInfo TVA508StaticText Public/Published -
lblUseAdmit TVA508StaticText Public/Published -
lblUseTransfer TVA508StaticText Public/Published -
OKPressed Boolean Private -
pnlBottom TPanel Public/Published -
pnldif TPanel Public/Published -
pnlMiddle TPanel Public/Published -
pnlTop TPanel Public/Published -
radDelayed TRadioButton Public/Published -
radReleaseNow TRadioButton Public/Published -

Methods

Name Declaration Scope Comments
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
fraEvntDelayListcboEvntListChange procedure fraEvntDelayListcboEvntListChange(Sender: TObject); Public/Published -
fraEvntDelayListmlstEventsChange procedure fraEvntDelayListmlstEventsChange(Sender: TObject); Public/Published -
fraEvntDelayListmlstEventsDblClick procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject); Public/Published -
radDelayedClick procedure radDelayedClick(Sender: TObject); Public/Published -
radReleaseNowClick procedure radReleaseNowClick(Sender: TObject); Public/Published -
UMStillDelay procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY; Public/Published -

Referenced By (2)

Module (line) Referrer Type
fOrdersTS (50) frmOrdersTS Read
fOrdersTS (78) - Read