anchor.diff:      procedure clearbyContext(aCtxt: TCEAppMessageCtxt);
       procedure clearbyData(aData: Pointer);
     protected
  +    procedure updateLoop; override;
       //
       function contextName: string; override;
       function contextActionCount: integer; override;
  
positive.code:     widg.maxMessageCount := fMaxCount;
      widg.autoSelectCategory := fAutoSelect;
      widg.singleMessageClick := fSingleClick;
    end
    else inherited;
  end;
  
negative.code: {$ENDREGION}
  
  {$REGION Messages --------------------------------------------------------------}
  procedure TCEMessagesWidget.updateLoop;
  begin
    clearOutOfRangeMessg;
    scrollToBack;
    Application.ProcessMessages;
    filterMessages(fCtxt);
  end;
  
  function TCEMessagesWidget.iconIndex(aKind: TCEAppMessageKind): Integer;
  begin
    case aKind of
  