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; } } } } } }