Procedure

TfrmODGen.SetDialogIEN

Directives

Override

Module

fODGen

Last Modified

7/15/2014 3:26:42 PM

Comments

Sets up a generic ordering dialog on the fly.  Called before SetupDialog.

Visibility

Protected

Overrides

TfrmODBase.SetDialogIEN

Owner

TfrmODGen

Declaration

procedure SetDialogIEN(Value: Integer); override;

Calls Hierarchy


TfrmODGen.SetDialogIEN
 ├IdentifyDialog
 ├TResponses.SetDialog
 │ ├LoadDialogDefinition
 │ └SortPromptsBySequence
 ├LoadOrderPrompting
 └TfrmODGen.PlaceControls
   ├TfrmODGen.PlaceDateTime
   │ ├TfrmODGen.SetComponentName
   │ ├TfrmODGen.ControlChange
   │ │ ├TResponses.Update
   │ │ │ ├TResponses.FindResponseByName
   │ │ │ └TResponses.IENForPrompt
   │ │ └TResponses.GetOrderText
   │ │   ├TResponses.NextInstance
   │ │   ├TResponses.FindResponseByName
   │ │   ├TResponses.FormatResponse
   │ │   │ └TResponses.FindResponseByIEN
   │ │   └TResponses.AppendChildren
   │ │     ├TResponses.FindPromptByIEN
   │ │     ├TResponses.FindResponseByIEN
   │ │     └TResponses.FormatResponse...
   │ └TfrmODGen.PlaceLabel
   ├TfrmODGen.PlaceFreeText
   │ ├TfrmODGen.SetComponentName
   │ ├TfrmODGen.ControlChange...
   │ └TfrmODGen.PlaceLabel
   ├TfrmODGen.PlaceHidden
   ├TfrmODGen.PlaceNumeric
   │ ├TfrmODGen.SetComponentName
   │ ├TfrmODGen.ControlChange...
   │ └TfrmODGen.PlaceLabel
   ├TfrmODGen.PlaceLookup
   │ ├GlobalRefForFile
   │ ├TfrmODGen.SetComponentName
   │ ├GetDefaultTSForEvt
   │ ├GetTSListForEvt
   │ ├TfrmODGen.LookupNeedData
   │ │ └SubsetOfEntries
   │ ├TfrmODGen.ControlChange...
   │ └TfrmODGen.PlaceLabel
   ├TfrmODGen.PlaceSetOfCodes
   │ ├TfrmODGen.SetComponentName
   │ ├TfrmODGen.ControlChange...
   │ └TfrmODGen.PlaceLabel
   ├TfrmODGen.PlaceMemo
   │ ├TfrmODGen.SetComponentName
   │ ├TfrmODGen.ControlChange...
   │ └TfrmODGen.PlaceLabel
   └TfrmODGen.PlaceYesNo
     ├TfrmODGen.SetComponentName
     ├TfrmODGen.ControlChange...
     └TfrmODGen.PlaceLabel

Called-By Hierarchy


 TfrmODGen.SetDialogIEN
TfrmODGen.SetupDialog┘ 

Calls

Name Declaration Comments
IdentifyDialog procedure IdentifyDialog(var DialogNames: TDialogNames; ADialog: Integer); -
LoadOrderPrompting procedure LoadOrderPrompting(Dest: TList; ADialog: Integer); -
TfrmODGen.PlaceControls procedure PlaceControls; -
TResponses.SetDialog procedure SetDialog(Value: string); -

Called-By

Name Declaration Comments
TfrmODGen.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

145   procedure TfrmODGen.SetDialogIEN(Value: Integer);
146   { Sets up a generic ordering dialog on the fly.  Called before SetupDialog. }
147   var
148     DialogNames: TDialogNames;
149   begin
150     inherited;
151     StatusText('Loading Dialog Definition');
152     IdentifyDialog(DialogNames, DialogIEN);
153     Caption := DialogNames.Display;
154     Responses.Dialog := DialogNames.BaseName;                      // loads formatting info
155     LoadOrderPrompting(FDialogItemList, DialogNames.BaseIEN);      // loads prompting info
156     PlaceControls;
157     StatusText('');
158   end;