Procedure

TfrmODText.ControlChange

Module

fODText

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODText

Declaration

procedure ControlChange(Sender: TObject);

Calls Hierarchy


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

Calls

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


Source

131   procedure TfrmODText.ControlChange(Sender: TObject);
132   begin
133     inherited;
134     if Changing then Exit;
135     with memText  do if GetTextLen > 0   then Responses.Update('COMMENT', 1, TX_WPTYPE, Text);
136     with txtStart do if Length(Text) > 0 then Responses.Update('START', 1, Text, Text);
137     with txtStop  do if Length(Text) > 0 then Responses.Update('STOP', 1, Text, Text);
138     memOrder.Text := Responses.OrderText;
139   end;