anchor.diff:    //
     inherited;
     //
  +  updaterByLoopInterval := 12;
     fOptions := TCEMessagesOptions.Create(Self);
     fOptions.assign(self);
     fOptions.Name:= 'messageOptions';
  
positive.code:     fCtxt: TCEAppMessageCtxt;
      fAutoSelect: boolean;
      fSingleClick: boolean;
      fOptions: TCEMessagesOptions;
      fOptionsBackup: TCEMessagesOptions;
      fBtns: array[TCEAppMessageCtxt] of TToolButton;
  
negative.code: 
    TCEMessagesOptions = class(TWritableLfmTextComponent)
    private
      fFastDisplay: boolean;
      fMaxCount: Integer;
      fAutoSelect: boolean;
      fSingleClick: boolean;
      fFont: TFont;
      procedure setFont(aValue: TFont);
    published
      property fastDisplay: boolean read fFastDisplay write fFastDisplay;
      property maxMessageCount: integer read fMaxCount write fMaxCount;
      property autoSelect: boolean read fAutoSelect write fAutoSelect;
      property singleMessageClick: boolean read fSingleClick write fSingleClick;
  