Class

TfrmMedCopy

Module

fMedCopy

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmMedCopy = class(TfrmBase508Form)
  pnlTop: TPanel;
  lblPtInfo: TVA508StaticText;
  pnlInpatient: TPanel;
  lblInstruction: TStaticText;
  Image1: TImage;
  lblInstruction2: TStaticText;
  pnlMiddle: TPanel;
  gboxMain: TGroupBox;
  radDelayed: TRadioButton;
  radRelease: TRadioButton;
  cmdOK: TButton;
  cmdCancel: TButton;
  pnlBottom: TPanel;
  fraEvntDelayList: TfraEvntDelayList;
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);                         
  procedure FormCreate(Sender: TObject);
  procedure radDelayedClick(Sender: TObject);
  procedure radReleaseClick(Sender: TObject);
  procedure fraEvntDelayListcboEvntListChange(Sender: TObject);
  procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY;
  procedure fraEvntDelayListmlstEventsDblClick(Sender: TObject);
  procedure fraEvntDelayListmlstEventsChange(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);

private
  FDelayEvent: TOrderDelayEvent;
  FOKPressed: Boolean;
  procedure AdjustFormSize;
public
  { Public declarations }
end;

DFM Objects


frmMedCopy : TfrmMedCopy
 ├pnlTop : TPanel
 │ ├lblPtInfo : TVA508StaticText
 │ └pnlInpatient : TPanel
 │   ├Image1 : TImage
 │   ├lblInstruction : TStaticText
 │   └lblInstruction2 : TStaticText
 ├pnlMiddle : TPanel
 │ └gboxMain : TGroupBox
 │   ├radDelayed : TRadioButton
 │   ├radRelease : TRadioButton
 │   ├cmdOK : TButton
 │   └cmdCancel : TButton
 ├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 -
FDelayEvent Private -
FOKPressed Boolean Private -
fraEvntDelayList TfraEvntDelayList Public/Published -
gboxMain TGroupBox Public/Published -
Image1 TImage Public/Published -
lblInstruction TStaticText Public/Published -
lblInstruction2 TStaticText Public/Published -
lblPtInfo TVA508StaticText Public/Published -
pnlBottom TPanel Public/Published -
pnlInpatient TPanel Public/Published -
pnlMiddle TPanel Public/Published -
pnlTop TPanel Public/Published -
radDelayed TRadioButton Public/Published -
radRelease TRadioButton Public/Published -

Methods

Name Declaration Scope Comments
AdjustFormSize procedure AdjustFormSize; Private -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); 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 -
radReleaseClick procedure radReleaseClick(Sender: TObject); Public/Published -
UMStillDelay procedure UMStillDelay(var message: TMessage); message UM_STILLDELAY; Public/Published -

Referenced By (2)

Module (line) Referrer Type
fMedCopy (49) frmMedCopy Read
fMedCopy (108) - Read