Class

TfrmODActive

Module

fODActive

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmODActive = class(TfrmAutoSz)
  lblCaption: TLabel;
  pnlClient: TPanel;
  btnOK: TButton;
  btnCancel: TButton;
  hdControl: THeaderControl;
  lstActiveOrders: TCaptionListBox;
  procedure btnOKClick(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure lstActiveOrdersMeasureItem(Control: TWinControl;
    Index: Integer; var AaHeight: Integer);
  procedure lstActiveOrdersDrawItem(Control: TWinControl;
    Index: Integer; TheeRect: TRect; State: TOwnerDrawState);
  procedure hdControlSectionResize(HeaderControl: THeaderControl;
    Section: THeaderSection);
private
  { Private declarations }
  FOrderView: TOrderView;
  FEvent: TOrderDelayEvent;
  FAutoAc: boolean;
  ActiveOrderList: TList;
  FDefaultEventOrder: string;
  function MeasureColumnHeight(TheOrderText: string; Index: Integer; Column: integer):integer;
  procedure LoadActiveOrders;
  procedure RetrieveVisibleOrders(AnIndex: Integer);
  procedure RedrawActiveList;
public
  { Public declarations }
  property Event: TOrderDelayEvent   read FEvent         write FEvent;
  property OrderView: TOrderView     read FOrderView     write FOrderView;
  property AutoAc: boolean           read FAutoAc;
end;

DFM Objects


frmODActive : TfrmODActive
 ├lblCaption : TLabel
 ├pnlClient : TPanel
 │ ├btnOK : TButton
 │ ├btnCancel : TButton
 │ ├lstActiveOrders : TCaptionListBox
 │ └hdControl : THeaderControl
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
ActiveOrderList TList Private -
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
FAutoAc Boolean Private -
FDefaultEventOrder UnicodeString Private -
FEvent Private -
FOrderView TOrderView Private Private declarations
hdControl THeaderControl Public/Published -
lblCaption TLabel Public/Published -
lstActiveOrders TCaptionListBox Public/Published -
pnlClient TPanel Public/Published -

Properties

Name Type Scope Comments
AutoAc Boolean Public -
Event Public Public declarations
OrderView TOrderView Public -

Methods

Name Declaration Scope Comments
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
hdControlSectionResize procedure hdControlSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
LoadActiveOrders procedure LoadActiveOrders; Private -
lstActiveOrdersDrawItem procedure lstActiveOrdersDrawItem(Control: TWinControl; Index: Integer; TheeRect: TRect; State: TOwnerDrawState); Public/Published -
lstActiveOrdersMeasureItem procedure lstActiveOrdersMeasureItem(Control: TWinControl; Index: Integer; var AaHeight: Integer); Public/Published -
MeasureColumnHeight function MeasureColumnHeight(TheOrderText: string; Index: Integer; Column: integer):integer; Private -
RedrawActiveList procedure RedrawActiveList; Private -
RetrieveVisibleOrders procedure RetrieveVisibleOrders(AnIndex: Integer); Private -

Referenced By (2)

Module (line) Referrer Type
fODActive (60) - Read
fODActive (62) - Read