C#

#region License
/*	Xacc .net CLR Toolkit
	Copyright (C) 2003-2004  leppie @ ataris.co.za
*
*	This program is free software; you can redistribute it and/or modify
*	it under the terms of the GNU General Public License as published by
*	the Free Software Foundation; either version 2 of the License, or
*	(at your option) any later version.
*
*	This program is distributed in the hope that it will be useful,	
*	but WITHOUT ANY WARRANTY; without even the implied warranty of	
*	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the	
*	GNU General Public License for more details.
*	You should have received a copy of the GNU General Public License
*	along with this program; if not, write to the Free Software	
*	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
#endregion

using System;
using System.IO;
using System.Collections;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Windows.Forms;

namespace Xacc.Controls
{
  public class WinConsole : System.Windows.Forms.RichTextBox
  {
    class MessageWriter : TextWriter
    {
      public override System.Text.Encoding Encoding
      {
        get	{	return System.Text.Encoding.Default;}
      }

      public delegate void MessageWriterHandler(string text);

      MessageWriterHandler handler;

      public MessageWriter(MessageWriterHandler handler)
      {
        this.handler = handler;
      }

      public override void WriteLine(string format)
      {
        Write(format + NewLine);
      }

      public override void Write(string format)
      {
        if (handler != null)
          handler(format);
      }
    }

    private System.ComponentModel.Container components = null;

    public WinConsole()
    {
      InitializeComponent();
      SetStyle(ControlStyles.Selectable, false);
      Console.SetOut( new MessageWriter(
        new MessageWriter.MessageWriterHandler(Messg)));
    }

    Control GetFocus(Control p)
    {
      Control sender = null;
      foreach (Control c in  p.Controls)
      {
        if (c.Focused)
          return c;

        if (c.HasChildren)
        {
          sender = GetFocus(c);
          if (sender != null)
          {
            return sender;
          }
        }
      }
      return null;
    }

    void Messg(string text)
    {
      Control sender = GetFocus(TopLevelControl);
      Select();
      AppendText(text);
      SelectionStart = TextLength;
      ScrollToCaret();
      if (sender != null)
        sender.Select();
    }

    protected override void Dispose( bool disposing )
    {
      if( disposing )
      {
        if( components != null )
          components.Dispose();
      }
      base.Dispose( disposing );
    }

    #region Component Designer generated code

    private void InitializeComponent()
    {
      this.BackColor = System.Drawing.SystemColors.Info;
      this.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle;
      this.Font = new System.Drawing.Font("Lucida Console", 9F,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        ((System.Byte)(0)));
      this.ReadOnly = true;
      this.WordWrap = false;

    }
    #endregion
  }
}