Class

TfrmOrdersReleaseEvent

Module

fODReleaseEvent

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOrdersReleaseEvent = class(TfrmBase508Form)
  pnlMiddle: TPanel;
  pnlBottom: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  cklstOrders: TCaptionCheckListBox;
  lblRelease: TLabel;
  procedure btnCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure btnOKClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure cklstOrdersMeasureItem(Control: TWinControl; Index: Integer;
    var AHeight: Integer);
  procedure cklstOrdersDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure cklstOrdersMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
private
  { Private declarations }
  OKPressed: boolean;
  FLastHintItem: integer;
  FOldHintPause: integer;
  FOldHintHidePause: integer;
  FComplete: boolean;
  FCurrTS: string;
public
  { Public declarations }
  property CurrTS: string       read FCurrTS    write FCurrTS;
end;

DFM Objects


frmOrdersReleaseEvent : TfrmOrdersReleaseEvent
 ├lblRelease : TLabel
 ├pnlMiddle : TPanel
 │ └cklstOrders : TCaptionCheckListBox
 ├pnlBottom : TPanel
 │ ├btnOK : TButton
 │ └btnCancel : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
cklstOrders Simple (unknown) Public/Published -
FComplete Boolean Private -
FCurrTS UnicodeString Private -
FLastHintItem Integer Private -
FOldHintHidePause Integer Private -
FOldHintPause Integer Private -
lblRelease TLabel Public/Published -
OKPressed Boolean Private Private declarations
pnlBottom TPanel Public/Published -
pnlMiddle TPanel Public/Published -

Properties

Name Type Scope Comments
CurrTS UnicodeString Public Public declarations

Methods

Name Declaration Scope Comments
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
cklstOrdersDrawItem procedure cklstOrdersDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
cklstOrdersMeasureItem procedure cklstOrdersMeasureItem(Control: TWinControl; Index: Integer; var AHeight: Integer); Public/Published -
cklstOrdersMouseMove procedure cklstOrdersMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fODReleaseEvent (64) - Read
fODReleaseEvent (81) - Read