Class

TfrmOMSet

Module

fOMSet

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOMSet = class(TfrmBase508Form)
  lstSet: TCheckListBox;
  cmdInterupt: TButton;
  procedure cmdInteruptClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure FormCreate(Sender: TObject);
private
  DoingNextItem : Boolean;
  CloseRequested : Boolean;
  FDelayEvent: TOrderDelayEvent;
  FClosing: Boolean;
  FRefNum: Integer;
  FActiveMenus: Integer;
  FClosebyDeaCheck: Boolean;
  function  IsCreatedByMenu(ASetItem: TSetItem): boolean;
  function  DeaCheckPassed(OIIens: string; APkg: string; AnEventType: Char): string;
  procedure DoNextItem;
  procedure UMDestroy(var Message: TMessage); message UM_DESTROY;
  procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT;
public
  procedure InsertList(SetList: TStringList; AnOwner: TComponent; ARefNum: Integer;
                       const KeyVarStr: string; AnEventType:Char =#0);
  procedure SetEventDelay(AnEvent: TOrderDelayEvent);
  property RefNum: Integer read FRefNum write FRefNum;
end;

DFM Objects


frmOMSet : TfrmOMSet
 ├lstSet : TCheckListBox
 ├cmdInterupt : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
CloseRequested Boolean Private -
cmdInterupt TButton Public/Published -
DoingNextItem Boolean Private -
FActiveMenus Integer Private -
FClosebyDeaCheck Boolean Private -
FClosing Boolean Private -
FDelayEvent Private -
FRefNum Integer Private -
lstSet TCheckListBox Public/Published -

Properties

Name Type Scope Comments
RefNum Integer Public -

Methods

Name Declaration Scope Comments
cmdInteruptClick procedure cmdInteruptClick(Sender: TObject); Public/Published -
DeaCheckPassed function DeaCheckPassed(OIIens: string; APkg: string; AnEventType: Char): string; Private -
DoNextItem procedure DoNextItem; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published Notify remaining owners that their item is done (or - really never completed)
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); Public/Published If this is not the last item in the set, prompt whether to interrupt processing
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
InsertList procedure InsertList(SetList: TStringList; AnOwner: TComponent; ARefNum: Integer; const KeyVarStr: string; AnEventType:Char =#0); Public Expects SetList to be strings of DlgIEN^DlgType^DisplayName^OrderableItemIens
IsCreatedByMenu function IsCreatedByMenu(ASetItem: TSetItem): boolean; Private -
SetEventDelay procedure SetEventDelay(AnEvent: TOrderDelayEvent); Public -
UMDelayEvent procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; Private -
UMDestroy procedure UMDestroy(var Message: TMessage); message UM_DESTROY; Private Received whenever activated item is finished. Posts to Owner if last item in the set.

Referenced By (3)

Module (line) Referrer Type
fOMSet (49) frmOMSet Read
uOrders (122) uOrderSet Read
uOrders (1508) - Read