Class

TfrmReleaseOrders

Module

fOrdersRelease

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmReleaseOrders = class(TfrmAutoSz)
  Panel1: TPanel;
  lstOrders: TCaptionListBox;
  Label1: TLabel;
  Panel2: TPanel;
  grpRelease: TGroupBox;
  radVerbal: TRadioButton;
  radPhone: TRadioButton;
  radPolicy: TRadioButton;
  cmdOK: TButton;
  cmdCancel: TButton;
  procedure FormCreate(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer;
    var AHeight: Integer);
  procedure Panel1Resize(Sender: TObject);
private
  FOrderList: TList;
  FNature: Char;
  FSigSts: Char;
  OKPressed: Boolean;
  ESCode: string;
end;

DFM Objects


frmReleaseOrders : TfrmReleaseOrders
 ├Panel1 : TPanel
 │ ├Label1 : TLabel
 │ └lstOrders : TCaptionListBox
 ├Panel2 : TPanel
 │ ├grpRelease : TGroupBox
 │ │ ├radVerbal : TRadioButton
 │ │ ├radPhone : TRadioButton
 │ │ └radPolicy : TRadioButton
 │ ├cmdOK : TButton
 │ └cmdCancel : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
ESCode UnicodeString Private -
FNature Char Private -
FOrderList TList Private -
FSigSts Char Private -
grpRelease TGroupBox Public/Published -
Label1 TLabel Public/Published -
lstOrders TCaptionListBox Public/Published -
OKPressed Boolean Private -
Panel1 TPanel Public/Published -
Panel2 TPanel Public/Published -
radPhone TRadioButton Public/Published -
radPolicy TRadioButton Public/Published -
radVerbal TRadioButton Public/Published -

Methods

Name Declaration Scope Comments
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
lstOrdersDrawItem procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
lstOrdersMeasureItem procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
Panel1Resize procedure Panel1Resize(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fOrdersRelease (58) - Read
fOrdersRelease (94) - Read