Procedure

TfrmODGen.ControlChange

Module

fODGen

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODGen

Declaration

procedure ControlChange(Sender: TObject);

Calls Hierarchy


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...

Called-By Hierarchy


       TfrmODGen.ControlChange
       TfrmODGen.SetupDialog┤ 
     TfrmODGen.PlaceDateTime┤ 
   TfrmODGen.PlaceControls┘ │ 
  TfrmODGen.SetDialogIEN┘   │ 
 TfrmODGen.SetupDialog┘     │ 
     TfrmODGen.PlaceFreeText┤ 
TfrmODGen.PlaceControls...┘ │ 
      TfrmODGen.PlaceNumeric┤ 
TfrmODGen.PlaceControls...┘ │ 
   TfrmODGen.PlaceSetOfCodes┤ 
TfrmODGen.PlaceControls...┘ │ 
        TfrmODGen.PlaceYesNo┤ 
TfrmODGen.PlaceControls...┘ │ 
       TfrmODGen.PlaceLookup┤ 
TfrmODGen.PlaceControls...┘ │ 
         TfrmODGen.PlaceMemo┘ 
TfrmODGen.PlaceControls...┘   

Calls

Name Declaration Comments
TResponses.GetOrderText function GetOrderText: string; -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -

Called-By

Name Declaration Comments
TfrmODGen.PlaceDateTime procedure PlaceDateTime(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceFreeText procedure PlaceFreeText(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceLookup procedure PlaceLookup(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceMemo procedure PlaceMemo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceNumeric procedure PlaceNumeric(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceSetOfCodes procedure PlaceSetOfCodes(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.PlaceYesNo procedure PlaceYesNo(DialogCtrl: TDialogCtrl; DialogItem: TDialogItem; CurrentItemNumber: Integer); -
TfrmODGen.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

639   procedure TfrmODGen.ControlChange(Sender: TObject);
640   var
641     i: Integer;
642   begin
643     inherited;
644     if Changing then Exit;
645     with FDialogCtrlList do for i := 0 to Count - 1 do with TDialogCtrl(Items[i]) do
646     begin
647       case DataType of
648       'D': Responses.Update(ID, 1, FloatToStr(TORDateBox(Editor).FMDateTime),
649                                    TORDateBox(Editor).Text);
650       'F': Responses.Update(ID, 1, TEdit(Editor).Text, TEdit(Editor).Text);
651       'H': Responses.Update(ID, 1, IHidden, EHidden);
652       'N': Responses.Update(ID, 1, TEdit(Editor).Text, TEdit(Editor).Text);
653       'P': Responses.Update(ID, 1, TORComboBox(Editor).ItemID, TORComboBox(Editor).Text);
654       'R': Responses.Update(ID, 1, TORDateBox(Editor).Text, TORDateBox(Editor).Text);
655       'S': Responses.Update(ID, 1, TORComboBox(Editor).ItemID, TORComboBox(Editor).Text);
656       'W': Responses.Update(ID, 1, TX_WPTYPE, TMemo(Editor).Text);
657       'Y': Responses.Update(ID, 1, TORComboBox(Editor).ItemID, TORComboBox(Editor).Text);
658       end;
659     end;
660     memOrder.Text := Responses.OrderText;
661   end;