Class

TfrmDCOrders

Module

fOrdersDC

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmDCOrders = class(TfrmBase508Form)
  Label1: TLabel;
  Panel1: TPanel;
  lstOrders: TCaptionListBox;
  Panel2: TPanel;
  lblReason: TLabel;
  lstReason: TORListBox;
  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 FormDestroy(Sender: TObject);
  procedure unMarkedOrignalOrderDC(OrderArr: TStringList);
private
  OKPressed: Boolean;
  DCReason: Integer;
  function MeasureColumnHeight(TheOrderText: string; Index: Integer):integer;
public
  OrderIDArr: TStringList;
end;

DFM Objects


frmDCOrders : TfrmDCOrders
 ├Label1 : TLabel
 ├Panel1 : TPanel
 │ └lstOrders : TCaptionListBox
 ├Panel2 : TPanel
 │ ├lblReason : TLabel
 │ ├lstReason : TORListBox
 │ ├cmdOK : TButton
 │ └cmdCancel : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
DCReason Integer Private -
Label1 TLabel Public/Published -
lblReason TLabel Public/Published -
lstOrders TCaptionListBox Public/Published -
lstReason TORListBox Public/Published -
OKPressed Boolean Private -
OrderIDArr TStringList Public -
Panel1 TPanel Public/Published -
Panel2 TPanel 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 -
FormDestroy procedure FormDestroy(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 -
MeasureColumnHeight function MeasureColumnHeight(TheOrderText: string; Index: Integer):integer; Private -
unMarkedOrignalOrderDC procedure unMarkedOrignalOrderDC(OrderArr: TStringList); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fOrdersDC (50) - Read
fOrdersDC (65) - Read