Class

TfrmOMNavA

Module

fOMNavA

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOMNavA = class(TfrmBase508Form)
  pnlTool: TPanel;
  cmdDone: TORAlignButton;
  grdMenu: TCaptionStringGrid;
  cmdPrev: TBitBtn;
  cmdNext: TBitBtn;
  accEventsGrdMenu: TVA508ComponentAccessibility;
  procedure FormActivate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCreate(Sender: TObject);
  procedure grdMenuDrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  procedure grdMenuKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure grdMenuMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure grdMenuMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
  procedure grdMenuMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure pnlToolMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure pnlToolMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
  procedure pnlToolMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure cmdDoneClick(Sender: TObject);
  procedure cmdPrevClick(Sender: TObject);
  procedure cmdNextClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure grdMenuKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormResize(Sender: TObject);
  procedure accEventsGrdMenuCaptionQuery(Sender: TObject;
    var Text: string);
  procedure accEventsGrdMenuValueQuery(Sender: TObject;
    var Text: string);
private
  FOrderingMenu: Integer;
  FLastCol: Integer;
  FLastRow: Integer;
  FMouseDown: Boolean;
  FCtrlUp: Boolean;
  FSelecting: Boolean;
  FOrderMenuItem: TOrderMenuItem;
  FMenuHits: TList; {of TOrderMenu}
  FStack: TList; {of TMenuPath}
  FQuickBitmap: TBitmap;
  FOrigPoint: TPoint;
  FStartPoint: TPoint;
  FFormMove: Boolean;
  FKeyVars: string;
  FDelayEvent: TOrderDelayEvent;
  FMenuStyle: Integer;
  FRefNum: Integer;
  FSelectList: TList; {of TOrderMenuItem}
  FTheShift: TShiftState;
  procedure ActivateDialog(AnItem: TOrderMenuItem);
  procedure AddToSelectList(AnItem: TOrderMenuItem);
  procedure ClearMenuGrid;
  function DialogNotDisabled(DlgIEN: Integer): Boolean;
  procedure DoSelectList;
  function FindOrderMenu(AMenu: Integer): TOrderMenu;
  procedure PlaceMenuItems;
  procedure SetNavButtons;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  procedure UMDestroy(var Message: TMessage);    message UM_DESTROY;
public
  procedure CreateParams(var Params: TCreateParams); override;
  procedure SetEventDelay(AnEvent: TOrderDelayEvent);
  procedure SetNewMenu(MenuIEN: Integer; AnOwner: TComponent; ARefNum: Integer);
  procedure ResizeFont;
  property RefNum: Integer read FRefNum write FRefNum;
end;

DFM Objects


frmOMNavA : TfrmOMNavA
 ├pnlTool : TPanel
 │ ├cmdDone : TORAlignButton
 │ ├cmdPrev : TBitBtn
 │ └cmdNext : TBitBtn
 ├grdMenu : TCaptionStringGrid
 ├amgrMain : TVA508AccessibilityManager
 └accEventsGrdMenu : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
accEventsGrdMenu TVA508ComponentAccessibility Public/Published -
cmdDone TORAlignButton Public/Published -
cmdNext TBitBtn Public/Published -
cmdPrev TBitBtn Public/Published -
FCtrlUp Boolean Private -
FDelayEvent Private -
FFormMove Boolean Private -
FKeyVars UnicodeString Private -
FLastCol Integer Private -
FLastRow Integer Private -
FMenuHits TList Private Of TOrderMenu
FMenuStyle Integer Private -
FMouseDown Boolean Private -
FOrderingMenu Integer Private -
FOrderMenuItem TOrderMenuItem Private -
FOrigPoint TPoint Private -
FQuickBitmap TBitmap Private -
FRefNum Integer Private -
FSelecting Boolean Private -
FSelectList TList Private Of TOrderMenuItem
FStack TList Private Of TMenuPath
FStartPoint TPoint Private -
FTheShift TShiftState Private -
grdMenu TCaptionStringGrid Public/Published -
pnlTool TPanel Public/Published -

Properties

Name Type Scope Comments
RefNum Integer Public -

Methods

Name Declaration Scope Comments
accEventsGrdMenuCaptionQuery procedure accEventsGrdMenuCaptionQuery(Sender: TObject; var Text: string); Public/Published -
accEventsGrdMenuValueQuery procedure accEventsGrdMenuValueQuery(Sender: TObject; var Text: string); Public/Published -
ActivateDialog procedure ActivateDialog(AnItem: TOrderMenuItem); Private -
AddToSelectList procedure AddToSelectList(AnItem: TOrderMenuItem); Private Mouse & Keyboard Handling
ClearMenuGrid procedure ClearMenuGrid; Private -
cmdDoneClick procedure cmdDoneClick(Sender: TObject); Public/Published -
cmdNextClick procedure cmdNextClick(Sender: TObject); Public/Published -
cmdPrevClick procedure cmdPrevClick(Sender: TObject); Public/Published -
CMMouseLeave procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; Private -
CreateParams procedure CreateParams(var Params: TCreateParams); override; Public -
DialogNotDisabled function DialogNotDisabled(DlgIEN: Integer): Boolean; Private -
DoSelectList procedure DoSelectList; Private -
FindOrderMenu function FindOrderMenu(AMenu: Integer): TOrderMenu; Private Searchs the menu cache (FMenuHits) for a menu. If not there, load the menu from the server.
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Form methods
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
grdMenuDrawCell procedure grdMenuDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published Draws each cell in the grid based on characteristics in associated OrderMenuItem object.
grdMenuKeyDown procedure grdMenuKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
grdMenuKeyUp procedure grdMenuKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
grdMenuMouseDown procedure grdMenuMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
grdMenuMouseMove procedure grdMenuMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
grdMenuMouseUp procedure grdMenuMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
PlaceMenuItems procedure PlaceMenuItems; Private Places the menu items in the proper grid cells
pnlToolMouseDown procedure pnlToolMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published Imitate caption bar using panel at top of form
pnlToolMouseMove procedure pnlToolMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlToolMouseUp procedure pnlToolMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
ResizeFont procedure ResizeFont; Public -
SetEventDelay procedure SetEventDelay(AnEvent: TOrderDelayEvent); Public -
SetNavButtons procedure SetNavButtons; Private Menu navigation
SetNewMenu procedure SetNewMenu(MenuIEN: Integer; AnOwner: TComponent; ARefNum: Integer); Public Creates a new 'starting' menu. For initial menu or menu from inside order set.
UMDestroy procedure UMDestroy(var Message: TMessage); message UM_DESTROY; Private Sent by ordering dialog when it is closing

Referenced By (3)

Module (line) Referrer Type
fOMNavA (89) frmOMNavA Read
uOrders (121) uOrderMenu Read
uOrders (1424) - Read