mcs/class/Managed.Windows.Forms/System.Windows.Forms/DataGridTextBox.cs

   1 // Permission is hereby granted, free of charge, to any person obtaining
   2 // a copy of this software and associated documentation files (the
   3 // "Software"), to deal in the Software without restriction, including
   4 // without limitation the rights to use, copy, modify, merge, publish,
   5 // distribute, sublicense, and/or sell copies of the Software, and to
   6 // permit persons to whom the Software is furnished to do so, subject to
   7 // the following conditions:
   8 //
   9 // The above copyright notice and this permission notice shall be
  10 // included in all copies or substantial portions of the Software.
  11 //
  12 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  13 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  14 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  15 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  16 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  17 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  18 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  19 //
  20 // Copyright (c) 2005 Novell, Inc. (http://www.novell.com)
  21 //
  22 // Author:
  23 //      Jordi Mas i Hernandez <jordi@ximian.com>
  24 //
  25 //
  26
  27 using System.ComponentModel;
  28 using System.Drawing;
  29 using System.Runtime.InteropServices;
  30 using System.Diagnostics;
  31
  32 namespace System.Windows.Forms
  33 {
  34         [DefaultProperty("GridEditName")]
  35         [DesignTimeVisible(false)]
  36         [ToolboxItem(false)]
  37         [ClassInterface (ClassInterfaceType.AutoDispatch)]
  38         [ComVisible (true)]
  39         public class DataGridTextBox : TextBox
  40         {
  41
  42                 #region Local Variables
  43                 private bool isnavigating;
  44                 private DataGrid grid;
  45                 #endregion      // Local Variables
  46
  47                 #region Constructors
  48                 public DataGridTextBox ()
  49                 {
  50                         isnavigating = true;
  51                         grid = null;
  52                         accepts_tab = true;
  53                         accepts_return = false;
  54
  55                         SetStyle (ControlStyles.UserPaint | ControlStyles.StandardClick | ControlStyles.StandardDoubleClick, false);
  56                         SetStyle (ControlStyles.FixedHeight, true);
  57                 }
  58                 #endregion
  59
  60                 #region Public Instance Properties
  61                 public bool IsInEditOrNavigateMode {
  62                         get { return isnavigating; }
  63                         set { isnavigating = value; }
  64                 }
  65
  66                 #endregion      // Public Instance Properties
  67
  68                 #region Public Instance Methods
  69                 protected override void OnKeyPress (KeyPressEventArgs e)
  70                 {
  71                         if (!ReadOnly) {
  72                                 isnavigating = false;
  73                                 grid.ColumnStartedEditing (Bounds);
  74                         }
  75                         base.OnKeyPress (e);
  76                 }
  77
  78                 protected override void OnMouseWheel (MouseEventArgs e)
  79                 {
  80                         // XXX we need to invoke a method on the datagrid to forward the mouse wheel - figure out what it is.
  81                         //  base.OnMouseWheel is wrong, as the event is never raised by the textbox itself.
  82                         // grid.OnMouseWheel (e);
  83                 }
  84
  85                 protected internal override bool ProcessKeyMessage (ref Message m)
  86                 {
  87                         Keys key = (Keys) m.WParam.ToInt32 ();
  88
  89                         if (isnavigating && ProcessKeyPreview (ref m))
  90                                 return true;
  91
  92                         switch ((Msg)m.Msg) {
  93                         case Msg.WM_CHAR:
  94                                 switch (key) {
  95                                 case Keys.Enter:
  96                                         isnavigating = true;
  97                                         return false;
  98                                 default:
  99                                         return ProcessKeyEventArgs (ref m);
 100                                 }
 101
 102                         case Msg.WM_KEYDOWN:
 103                                 switch (key) {
 104                                 case Keys.F2:
 105                                         SelectionStart = Text.Length;
 106                                         SelectionLength = 0;
 107                                         return false;
 108
 109                                 case Keys.Left:
 110                                         if (SelectionStart == 0)
 111                                                 return ProcessKeyPreview (ref m);
 112                                         return false;
 113                                 case Keys.Right:
 114                                         // Arrow keys go right until we hit the end of the text
 115                                         if (SelectionStart + SelectionLength >= Text.Length) {
 116                                                 return ProcessKeyPreview (ref m);
 117                                         }
 118                                         return false;
 119                                 case Keys.Enter:
 120                                         return true;
 121                                 case Keys.Tab:
 122                                 case Keys.Up:
 123                                 case Keys.Down:
 124                                         return ProcessKeyPreview (ref m);
 125                                 }
 126
 127                                 return ProcessKeyEventArgs(ref m);
 128                         default:
 129                                 return false;
 130                         }
 131                 }
 132
 133                 public void SetDataGrid (DataGrid parentGrid)
 134                 {
 135                         grid = parentGrid;
 136                 }
 137
 138                 protected override void WndProc (ref Message m)
 139                 {
 140                         switch ((Msg)m.Msg) {
 141                         case Msg.WM_LBUTTONDOWN:
 142                         case Msg.WM_LBUTTONDBLCLK:
 143                                 isnavigating = false;
 144                                 break;
 145                         }
 146
 147                         base.WndProc (ref m);
 148                 }
 149
 150                 #endregion      // Public Instance Methods
 151
 152         }
 153 }