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 #if NET_2_0
  38         [ClassInterface (ClassInterfaceType.AutoDispatch)]
  39         [ComVisible (true)]
  40 #endif
  41         public class DataGridTextBox : TextBox
  42         {
  43
  44                 #region Local Variables
  45                 private bool isnavigating;
  46                 private DataGrid grid;
  47                 #endregion      // Local Variables
  48
  49                 #region Constructors
  50                 public DataGridTextBox ()
  51                 {
  52                         isnavigating = true;
  53                         grid = null;
  54                         accepts_tab = true;
  55                         accepts_return = false;
  56
  57                         SetStyle (ControlStyles.UserPaint | ControlStyles.StandardClick | ControlStyles.StandardDoubleClick, false);
  58                         SetStyle (ControlStyles.FixedHeight, true);
  59                 }
  60                 #endregion
  61
  62                 #region Public Instance Properties
  63                 public bool IsInEditOrNavigateMode {
  64                         get { return isnavigating; }
  65                         set { isnavigating = value; }
  66                 }
  67
  68                 #endregion      // Public Instance Properties
  69
  70                 #region Public Instance Methods
  71                 protected override void OnKeyPress (KeyPressEventArgs e)
  72                 {
  73                         if (!ReadOnly) {
  74                                 isnavigating = false;
  75                                 grid.ColumnStartedEditing (Bounds);
  76                         }
  77                         base.OnKeyPress (e);
  78                 }
  79
  80                 protected override void OnMouseWheel (MouseEventArgs e)
  81                 {
  82                         // XXX we need to invoke a method on the datagrid to forward the mouse wheel - figure out what it is.
  83                         //  base.OnMouseWheel is wrong, as the event is never raised by the textbox itself.
  84                         // grid.OnMouseWheel (e);
  85                 }
  86
  87                 protected internal override bool ProcessKeyMessage (ref Message m)
  88                 {
  89                         Keys key = (Keys) m.WParam.ToInt32 ();
  90
  91                         if (isnavigating && ProcessKeyPreview (ref m))
  92                                 return true;
  93
  94                         switch ((Msg)m.Msg) {
  95                         case Msg.WM_CHAR:
  96                                 switch (key) {
  97                                 case Keys.Enter:
  98                                         isnavigating = true;
  99                                         return false;
 100                                 default:
 101                                         return ProcessKeyEventArgs (ref m);
 102                                 }
 103
 104                         case Msg.WM_KEYDOWN:
 105                                 switch (key) {
 106                                 case Keys.F2:
 107                                         SelectionStart = Text.Length;
 108                                         SelectionLength = 0;
 109                                         return false;
 110
 111                                 case Keys.Left:
 112                                         if (SelectionStart == 0)
 113                                                 return ProcessKeyPreview (ref m);
 114                                         return false;
 115                                 case Keys.Right:
 116                                         // Arrow keys go right until we hit the end of the text
 117                                         if (SelectionStart + SelectionLength >= Text.Length) {
 118                                                 return ProcessKeyPreview (ref m);
 119                                         }
 120                                         return false;
 121                                 case Keys.Enter:
 122                                         return true;
 123                                 case Keys.Tab:
 124                                 case Keys.Up:
 125                                 case Keys.Down:
 126                                         return ProcessKeyPreview (ref m);
 127                                 }
 128
 129                                 return ProcessKeyEventArgs(ref m);
 130                         default:
 131                                 return false;
 132                         }
 133                 }
 134
 135                 public void SetDataGrid (DataGrid parentGrid)
 136                 {
 137                         grid = parentGrid;
 138                 }
 139
 140                 protected override void WndProc (ref Message m)
 141                 {
 142                         switch ((Msg)m.Msg) {
 143                         case Msg.WM_LBUTTONDOWN:
 144                         case Msg.WM_LBUTTONDBLCLK:
 145                                 isnavigating = false;
 146                                 break;
 147                         }
 148
 149                         base.WndProc (ref m);
 150                 }
 151
 152                 #endregion      // Public Instance Methods
 153
 154         }
 155 }