Class

TfrmODText

Module

fODText

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODText = class(TfrmODBase)
  memText: TMemo;
  lblText: TLabel;
  txtStart: TORDateBox;
  txtStop: TORDateBox;
  lblStart: TLabel;
  lblStop: TLabel;
  VA508CompMemOrder: TVA508ComponentAccessibility;
  lblOrderSig: TLabel;
  procedure FormCreate(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure cmdAcceptClick(Sender: TObject);
  procedure VA508CompMemOrderStateQuery(Sender: TObject; var Text: string);
public
  procedure InitDialog; override;
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
  procedure Validate(var AnErrMsg: string); override;
end;

DFM Objects


frmODText : TfrmODText
 ├lblText : TLabel
 ├lblStart : TLabel
 ├lblStop : TLabel
 ├lblOrderSig : TLabel
 ├memOrder : TCaptionMemo
 ├memText : TMemo
 ├txtStart : TORDateBox
 ├txtStop : TORDateBox
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 ├amgrMain : TVA508AccessibilityManager
 └VA508CompMemOrder : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
lblOrderSig TLabel Public/Published -
lblStart TLabel Public/Published -
lblStop TLabel Public/Published -
lblText TLabel Public/Published -
memText TMemo Public/Published -
txtStart TORDateBox Public/Published -
txtStop TORDateBox Public/Published -
VA508CompMemOrder TVA508ComponentAccessibility Public/Published -

Methods

Name Declaration Scope Comments
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published TfrmODBase common methods
InitDialog procedure InitDialog; override; Public -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
VA508CompMemOrderStateQuery procedure VA508CompMemOrderStateQuery(Sender: TObject; var Text: string); Public/Published -
Validate procedure Validate(var AnErrMsg: string); override; Public -

Referenced By (2)

Module (line) Referrer Type
fODText (31) frmODText Read
uOrders (222) - Read