Class

TfrmRenewOrders

Module

fOrdersRenew

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmRenewOrders = class(TfrmAutoSz)
  hdrOrders: THeaderControl;
  pnlBottom: TPanel;
  cmdCancel: TButton;
  cmdOK: TButton;
  cmdChange: TButton;
  lstOrders: TCaptionListBox;
  procedure FormCreate(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure lstOrdersMeasureItem(Control: TWinControl; Index: Integer;
    var Height: Integer);
  procedure lstOrdersDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
  procedure lstOrdersClick(Sender: TObject);
  procedure cmdChangeClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure hdrOrdersSectionResize(HeaderControl: THeaderControl;
    Section: THeaderSection);
  procedure FormResize(Sender: TObject);
private
  OKPressed: Boolean;
  OrderList: TList;
  function MeasureColumnHeight(TheOrderText: string; Index: Integer; Column: integer):integer;
  function AcceptOrderCheckOnRenew(const AnOrderID: string; var OCList: TStringList): boolean;
end;

DFM Objects


frmRenewOrders : TfrmRenewOrders
 ├hdrOrders : THeaderControl
 ├pnlBottom : TPanel
 │ ├cmdCancel : TButton
 │ ├cmdOK : TButton
 │ └cmdChange : TButton
 ├lstOrders : TCaptionListBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdChange TButton Public/Published -
cmdOK TButton Public/Published -
hdrOrders THeaderControl Public/Published -
lstOrders TCaptionListBox Public/Published -
OKPressed Boolean Private -
OrderList TList Private -
pnlBottom TPanel Public/Published -

Methods

Name Declaration Scope Comments
AcceptOrderCheckOnRenew function AcceptOrderCheckOnRenew(const AnOrderID: string; var OCList: TStringList): boolean; Private -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdChangeClick procedure cmdChangeClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
hdrOrdersSectionResize procedure hdrOrdersSectionResize(HeaderControl: THeaderControl; Section: THeaderSection); Public/Published -
lstOrdersClick procedure lstOrdersClick(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 Height: Integer); Public/Published -
MeasureColumnHeight function MeasureColumnHeight(TheOrderText: string; Index: Integer; Column: integer):integer; Private -

Referenced By (2)

Module (line) Referrer Type
fOrdersRenew (87) - Read
fOrdersRenew (117) - Read