anchor.diff:  
   const
     optname = 'messages.txt';
  +  minColor = $232323;
   
   {$REGION TCEMessagesOptions ----------------------------------------------------}
   constructor TCEMessagesOptions.Create(AOwner: TComponent);
  
positive.code: procedure TCEMessagesWidget.ListCustomDrawItem(Sender: TCustomTreeView;
    Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
  var
    rc: TRect;
    customdraw: Boolean;
  begin
    customdraw := fMsgColors[TCEAppMessageKind(node.ImageIndex + 1)] <> clDefault;
    if customdraw then
    begin
      rc := node.DisplayRect(false);
      Sender.Canvas.Brush.Color := fMsgColors[TCEAppMessageKind(node.ImageIndex + 1)];
      if node.Selected then
      begin
        Sender.Canvas.DrawFocusRect(rc);
        Sender.Canvas.Brush.Color := Sender.Canvas.Brush.Color - $232323;
      end;
      Sender.Canvas.FillRect(rc);
      Sender.Canvas.TextOut(rc.Left + 30, rc.Top, node.Text);
      list.Images.Draw(sender.Canvas, rc.Left + 1, (rc.Top + rc.Bottom - list.Images.Height) div 2,
        node.ImageIndex, Node.NodeEffect);
    end;
    DefaultDraw := not customdraw;
  end;
  {$ENDREGION}
  
  
negative.code:   item.SelectedIndex := item.ImageIndex;
    if not fastDisplay then
    begin
      clearOutOfRangeMessg;
      scrollToBack;
      TTreeHack(list).scrolledLeft := 0;
      Application.ProcessMessages;
      filterMessages(fCtxt);
    end;
  