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