anchor.diff:  {$REGION Standard Comp/Obj------------------------------------------------------}
   constructor TCEMessagesWidget.create(aOwner: TComponent);
   begin
  -  fMaxMessCnt := 125;
  +  fMaxMessCnt := 500;
     fCtxt := amcAll;
     //
     fActAutoSel := TAction.Create(self);
  
positive.code:   //
    inherited;
    //
    fEditableOptions := TCEMessagesOptions.Create;
    List.PopupMenu := contextMenu;
    List.OnDeletion := @ListDeletion;
    //
  
negative.code: destructor TCEMessagesWidget.destroy;
  begin
    EntitiesConnector.removeObserver(self);
    Inherited;
  end;
  
  