Class

TfrmOrdersEvntRelease

Module

fOrdersEvntRelease

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmOrdersEvntRelease = class(TfrmAutoSz)
  pnlTop: TPanel;
  lblPtInfo: TStaticText;
  pnlBottom: TPanel;
  Label1: TLabel;
  btnOK: TButton;
  btnCancel: TButton;
  grdEvtList: TCaptionStringGrid;
  Panel1: TPanel;
  Panel2: TPanel;
  btnApply: TButton;
  updown1: TUpDown;
  edtNumber: TEdit;
  Panel3: TPanel;
  Label2: TLabel;
  Label3: TLabel;
  procedure FormCreate(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure grdEvtListDrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  procedure grdEvtListMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure btnOKClick(Sender: TObject);
  procedure grdEvtListKeyPress(Sender: TObject; var Key: Char);
  procedure grdEvtListDblClick(Sender: TObject);
  procedure pnlBottomResize(Sender: TObject);
  procedure edtNumberChange(Sender: TObject);
  procedure edtNumberKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure btnApplyClick(Sender: TObject);
  procedure btnApplyKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure edtNumberClick(Sender: TObject);
  procedure updown1Click(Sender: TObject; Button: TUDBtnType);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
  { Private declarations }
  FEvtList: TStringList;
  FTotal: Integer;
  FDGroup: Integer;
  FViewName: string;
  FPtEvt:      string;
  FEvent:  TOrderDelayEvent;
  fPreTxt: string;
  FOkPressed:  Boolean;
  procedure ShowEvents(NumOfEvts: integer);
public
  { Public declarations }
end;

DFM Objects


frmOrdersEvntRelease : TfrmOrdersEvntRelease
 ├pnlTop : TPanel
 │ ├lblPtInfo : TStaticText
 │ └Panel1 : TPanel
 │   ├Panel2 : TPanel
 │   │ ├btnApply : TButton
 │   │ ├updown1 : TUpDown
 │   │ └edtNumber : TEdit
 │   └Panel3 : TPanel
 │     ├Label2 : TLabel
 │     └Label3 : TLabel
 ├pnlBottom : TPanel
 │ ├Label1 : TLabel
 │ ├btnOK : TButton
 │ ├btnCancel : TButton
 │ └grdEvtList : TCaptionStringGrid
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnApply TButton Public/Published -
btnCancel TButton Public/Published -
btnOK TButton Public/Published -
edtNumber TEdit Public/Published -
FDGroup Integer Private -
FEvent Private -
FEvtList TStringList Private Private declarations
FOkPressed Boolean Private -
fPreTxt UnicodeString Private -
FPtEvt UnicodeString Private -
FTotal Integer Private -
FViewName UnicodeString Private -
grdEvtList TCaptionStringGrid Public/Published -
Label1 TLabel Public/Published -
Label2 TLabel Public/Published -
Label3 TLabel Public/Published -
lblPtInfo TStaticText Public/Published -
Panel1 TPanel Public/Published -
Panel2 TPanel Public/Published -
Panel3 TPanel Public/Published -
pnlBottom TPanel Public/Published -
pnlTop TPanel Public/Published -
updown1 TUpDown Public/Published -

Methods

Name Declaration Scope Comments
btnApplyClick procedure btnApplyClick(Sender: TObject); Public/Published -
btnApplyKeyDown procedure btnApplyKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
edtNumberChange procedure edtNumberChange(Sender: TObject); Public/Published -
edtNumberClick procedure edtNumberClick(Sender: TObject); Public/Published -
edtNumberKeyDown procedure edtNumberKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
grdEvtListDblClick procedure grdEvtListDblClick(Sender: TObject); Public/Published -
grdEvtListDrawCell procedure grdEvtListDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published -
grdEvtListKeyPress procedure grdEvtListKeyPress(Sender: TObject; var Key: Char); Public/Published -
grdEvtListMouseDown procedure grdEvtListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlBottomResize procedure pnlBottomResize(Sender: TObject); Public/Published -
ShowEvents procedure ShowEvents(NumOfEvts: integer); Private -
updown1Click procedure updown1Click(Sender: TObject; Button: TUDBtnType); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fOrdersEvntRelease (77) - Read
fOrdersEvntRelease (79) - Read