Procedure

TfrmODRad.memHistoryExit

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure memHistoryExit(Sender: TObject);

Calls Hierarchy


TfrmODRad.memHistoryExit
 └TfrmODRad.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TEncounter.GetLocationName
   │ └TEncounter.UpdateText
   │   └GetEncounterText
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODRad.ControlChange procedure ControlChange(Sender: TObject); -


Source

692   procedure TfrmODRad.memHistoryExit(Sender: TObject);
693   var
694     AStringList: TStringList;
695   begin
696     inherited;
697     AStringList := TStringList.Create;
698     try
699       FastAssign(memHistory.Lines, AStringList);
700       LimitStringLength(AStringList, 74);
701       FastAssign(AstringList, memHistory.Lines);
702       ControlChange(Self);
703     finally
704       AStringList.Free;
705     end;
706   end;