Class

TfrmODMisc

Module

fODMisc

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODMisc = class(TfrmODBase)
  cboCare: TORComboBox;
  lblStart: TLabel;
  calStart: TORDateBox;
  lblStop: TLabel;
  calStop: TORDateBox;
  lblCare: TLabel;
  lblComment: TLabel;
  txtComment: TCaptionEdit;
  procedure ControlChange(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure cboCareNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
private
  { }
protected
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
end;

DFM Objects


frmODMisc : TfrmODMisc
 ├lblStart : TLabel
 ├lblStop : TLabel
 ├lblCare : TLabel
 ├lblComment : TLabel
 ├memOrder : TCaptionMemo
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 ├cboCare : TORComboBox
 ├calStart : TORDateBox
 ├calStop : TORDateBox
 ├txtComment : TCaptionEdit
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
calStart TORDateBox Public/Published -
calStop TORDateBox Public/Published -
cboCare TORComboBox Public/Published -
lblCare TLabel Public/Published -
lblComment TLabel Public/Published -
lblStart TLabel Public/Published -
lblStop TLabel Public/Published -
txtComment TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
cboCareNeedData procedure cboCareNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
InitDialog procedure InitDialog; override; Protected -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (2)

Module (line) Referrer Type
fODMisc (34) frmODMisc Read
uOrders (209) - Read