anchor.diff:    clearOutOfRangeMessg;
     scrollToBack;
     Application.ProcessMessages;
  +  filterMessages(fCtxt);
   end;
   
   procedure TCEMessagesWidget.lmClearByContext(aCtxt: TCEAppMessageCtxt);
  
positive.code:   i: NativeInt;
  begin
    for i := 0 to List.Items.Count-1 do
        List.Items[i].MultiSelected := true;
  end;
  
  
negative.code:   begin
      itm := List.Items[i];
      Itm.Visible := false;
      Itm.Selected := false;
      msgdt := PMessageData(itm.Data);
      if aCtxt = amcAll then
        Itm.Visible := true
  