Class

TfrmTimeout

Module

fTimeout

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmTimeout = class(TfrmAutoSz)
  timCountDown: TTimer;
  pnlTop: TPanel;
  Label1: TStaticText;
  Label2: TStaticText;
  pnlBottom: TPanel;
  btnClose: TButton;
  cmdContinue: TButton;
  lblCount: TStaticText;
  pnlWarning: TPanel;
  imgWarning: TImage;
  lblWarning: TLabel;
  lblWarningMultiple: TLabel;
  lblWarningContinue: TLabel;
  lblWarningPatient: TLabel;
  procedure FormCreate(Sender: TObject);
  procedure cmdContinueClick(Sender: TObject);
  procedure timCountDownTimer(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure btnCloseClick(Sender: TObject);
private
  { Private declarations }
  FContinue: Boolean;
  FCount: Integer;
end;

DFM Objects


frmTimeout : TfrmTimeout
 ├pnlTop : TPanel
 │ ├Label1 : TStaticText
 │ └Label2 : TStaticText
 ├pnlBottom : TPanel
 │ ├btnClose : TButton
 │ ├cmdContinue : TButton
 │ └lblCount : TStaticText
 ├pnlWarning : TPanel
 │ ├imgWarning : TImage
 │ ├lblWarning : TLabel
 │ ├lblWarningMultiple : TLabel
 │ ├lblWarningContinue : TLabel
 │ └lblWarningPatient : TLabel
 ├amgrMain : TVA508AccessibilityManager
 └timCountDown : TTimer

Class Hierarchy


Class Fields

Name Type Scope Comments
btnClose TButton Public/Published -
cmdContinue TButton Public/Published -
FContinue Boolean Private Private declarations
FCount Integer Private -
imgWarning Simple (unknown) Public/Published -
Label1 Simple (unknown) Public/Published -
Label2 Simple (unknown) Public/Published -
lblCount Simple (unknown) Public/Published -
lblWarning TLabel Public/Published -
lblWarningContinue TLabel Public/Published -
lblWarningMultiple TLabel Public/Published -
lblWarningPatient TLabel Public/Published -
pnlBottom TPanel Public/Published -
pnlTop TPanel Public/Published -
pnlWarning TPanel Public/Published -
timCountDown Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
btnCloseClick procedure btnCloseClick(Sender: TObject); Public/Published -
cmdContinueClick procedure cmdContinueClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
timCountDownTimer procedure timCountDownTimer(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fTimeout (46) - Read
fTimeout (48) - Read