Class

TfrmCopyOrders

Module

fOrdersCopy

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmCopyOrders = class(TfrmBase508Form)
  pnlInfo: TPanel;
  fraEvntDelayList: TfraEvntDelayList;
  pnlRadio: TPanel;
  GroupBox1: TGroupBox;
  radRelease: TRadioButton;
  radEvtDelay: TRadioButton;
  Image1: TImage;
  lblInstruction2: TVA508StaticText;
  lblInstruction: TVA508StaticText;
  pnlTop: TPanel;
  lblPtInfo: TVA508StaticText;
  cmdOK: TButton;
  cmdCancel: TButton;
  pnlBottom: TPanel;
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure radEvtDelayClick(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
  OKPressed: Boolean;
  procedure AdjustFormSize;
public
end;

DFM Objects


frmCopyOrders : TfrmCopyOrders
 ├pnlRadio : TPanel
 │ └GroupBox1 : TGroupBox
 │   ├radRelease : TRadioButton
 │   ├radEvtDelay : TRadioButton
 │   ├cmdOK : TButton
 │   └cmdCancel : TButton
 ├pnlTop : TPanel
 │ ├lblPtInfo : TVA508StaticText
 │ └pnlInfo : TPanel
 │   ├Image1 : TImage
 │   ├lblInstruction2 : TVA508StaticText
 │   └lblInstruction : 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 -
fraEvntDelayList TfraEvntDelayList Public/Published -
GroupBox1 TGroupBox Public/Published -
Image1 TImage Public/Published -
lblInstruction TVA508StaticText Public/Published -
lblInstruction2 TVA508StaticText Public/Published -
lblPtInfo TVA508StaticText Public/Published -
OKPressed Boolean Private -
pnlBottom TPanel Public/Published -
pnlInfo TPanel Public/Published -
pnlRadio TPanel Public/Published -
pnlTop TPanel Public/Published -
radEvtDelay 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 -
radEvtDelayClick procedure radEvtDelayClick(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
fOrdersCopy (47) frmCopyOrders Read
fOrdersCopy (117) - Read