anchor.diff:      procedure actCopyMsgExecute(Sender: TObject);
       procedure actSelAllExecute(Sender: TObject);
       procedure setMaxMessageCount(aValue: Integer);
  +    procedure setAutoSelectCategory(aValue: boolean);
       procedure listDeletion(Sender: TObject; Node: TTreeNode);
       procedure selCtxtClick(Sender: TObject);
       function iconIndex(aKind: TCEAppMessageKind): Integer;
  -    //
  -    procedure optset_MaxMessageCount(aReader: TReader);
  -    procedure optget_MaxMessageCount(aWriter: TWriter);
  -    procedure optset_AutoSelect(aReader: TReader);
  -    procedure optget_AutoSelect(aWriter: TWriter);
       //
       procedure projNew(aProject: TCEProject);
       procedure projClosing(aProject: TCEProject);
  
positive.code: implementation
  {$R *.lfm}
  
  {$REGION Standard Comp/Obj------------------------------------------------------}
  constructor TCEMessagesWidget.create(aOwner: TComponent);
  begin
    fMaxMessCnt := 500;
    fCtxt := amcAll;
  
negative.code:   //
    btnClearCat.OnClick := @actClearCurCatExecute;
    //
    fname := getCoeditDocPath + optname;
    if fileExists(fname) then
    begin
      fOptions.loadFromFile(fname);
      fOptions.AssignTo(self);
    end;
    //
    EntitiesConnector.addObserver(self);
    EntitiesConnector.addSingleService(self);
  end;
  
  destructor TCEMessagesWidget.destroy;
  begin
    fOptions.saveToFile(getCoeditDocPath + optname);
    EntitiesConnector.removeObserver(self);
    Inherited;
  end;
  