anchor.diff:      data: Pointer;
     end;
   
  -  TCEMessagesOptions = class(TPersistent)
  +  TCEMessagesOptions = class(TWritableLfmTextComponent)
     private
       fMaxCount: Integer;
       fAutoSelect: boolean;
  
positive.code: {$REGION Standard Comp/Obj------------------------------------------------------}
  constructor TCEMessagesWidget.create(aOwner: TComponent);
  begin
    fMaxMessCnt := 125;
    fCtxt := amcAll;
    //
    fActAutoSel := TAction.Create(self);
  
negative.code:   fActAutoSel.Checked := fAutoSelect;
  end;
  
  procedure TCEMessagesWidget.optget_AutoSelect(aWriter: TWriter);
  begin
    aWriter.WriteBoolean(fAutoSelect);
  end;
  
  procedure TCEMessagesWidget.sesoptDeclareProperties(aFiler: TFiler);
  