anchor.diff:    dt^.ctxt := aCtxt;
     if fAutoSelect then if fCtxt <> aCtxt then
       fBtns[aCtxt].Click;
  +  if fastDisplay then
  +    IncLoopUpdate;
     item := List.Items.Add(nil, aValue);
     item.Data := dt;
     item.ImageIndex := iconIndex(aKind);
     item.SelectedIndex := item.ImageIndex;
  -  clearOutOfRangeMessg;
  -  //TODO-cfeature: reset horz scroll bar to the left
  -  scrollToBack;
  -  Application.ProcessMessages;
  -  filterMessages(fCtxt);
  +  if not fastDisplay then
  +  begin
  +    //TODO-cfeature: reset horz scroll bar to the left
  +    clearOutOfRangeMessg;
  +    scrollToBack;
  +    Application.ProcessMessages;
  +    filterMessages(fCtxt);
  +  end;
   end;
   
   procedure TCEMessagesWidget.clearByContext(aCtxt: TCEAppMessageCtxt);
  
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;
  