Grids. formulario zoom en el campo de un grid

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:26 P. M. por David Miralpeix

Al hacer dblClick en un campo, abrimos un formulario "zoom" para poder escribir cómodamente el contenido del campo.

Los campos del grid tienen una propiedad Zoom que por defecto nos habilita un menú contextual "Zoom" que llama a dicho formulario.

Por defecto a este formulario se accede únicamente mediante el menú contextual al hacer click derecho en el campo seleccionado.

Si queremos acceder a él mediante DblClick debemos programar dicho evento.

Este ejemplo habilita el zoom en el campo Descrip2 de la línea de pedido de venta y con dblClick también lo podremos abrir,

Código VB6:

Sub Show()
     gForm.Controls("grdLineas").campo("Descrip2").zoom = True
     gForm.Controls("grdLineas").activarscripts=true
End Sub

'Para Activar este evento hay que configurar la grid. Poner en el sub Initialize por ejemplo: gForm.grdLineas.ActivarScripts = True
Sub Grid_DblClick(aGrid)
     If agrid.name = "grdLineas" Then
         With aGrid
             Select Case .Grid.Columns(.Grid.Col).DataField
                 Case "Descrip2", "Pers_Observacionesxx"
                     agrid.zoom
             End Select
         End With
     End If
End Sub

Código C#:

using AhoraOCX;

namespace AhoraScriptsPantalla
{
  public class AhoraCl_frmPedidos : AhoraOCX.AhoraBaseScript
  {

    public void Show()
    {
      (gForm.Controls["grdLineas"] as ICntGridUsuario).Campo("Descrip2").Zoom = true;
            (gForm.Controls["grdLineas"] as ICntGridUsuario).ActivarScripts = true;
    }

    //Para Activar este evento hay que configurar la grid. Poner en el void Initialize por ejemplo: (gForm.Controls["grdLineas"] as ICntGridUsuario).ActivarScripts = true;

    public void Grid_DblClick(ICntGridUsuario aGrid)
    {
      if (aGrid.Name == "grdLineas")
      {
        switch (aGrid.Columns[aGrid.Col].DataField)
        {
          case "Descrip2":
          case "Pers_Observacionesxx":
            {
              aGrid.Zoom();
              break;
            }
        }
      }
    }

  }
}