Grid - Cambiar tamaño de fila, letra y alineación de texto

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:26 PM por David Miralpeix

Para cambiar el tamaño de la fila utilizaremos la propiedad RowHeight.

Para cambiar el tamaño de la letra utilizaremos la propiedad Size.

Para cambiar la alineación de texto de una columna utilizaremos la propiedad Alignment.

Código VB6:

Sub Main()
     frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
     Set lFrm = gcn.ahoraproceso ("NewFrmMantenimiento",False,gcn)
     lfrm.Form.NombreForm = "Pers_frmMant_Idiomas"
     With lFrm.Grid("Idiomas") ' NO_TRADUCIR_TAG
             .Agregar = True
             .Editar = True
             .Eliminar = True
             .CargaObjetos = False
             .EditarPorObjeto = False
             .Grid.HeadLines = 3        
             .AgregaColumna "IdIdioma", 2500, "Id.Idioma", False
             .AgregaColumna "Descrip", 2500, "Descripción",False
             .grid.RowHeight = .grid.RowHeight * 3

             'Cambiamos el estilo de las filas del grid
             .campo("IdIdioma").column.style.font.bold = True
             .campo("IdIdioma").column.style.forecolor = vbBlue
             .campo("Descrip").column.style.font.size = 25
             .campo("Descrip").Column.Alignment=2 'dbgCenter

             .From = "Idiomas" 
             .Where = ""
             .ColumnaEscalada = "Descrip"
             .OrdenMultiple = "Descrip"
             .RefrescaSinLoad = True
             .Refresca = True
     End With
     lFrm.Form.Caption = "Mantenimiento de Idiomas "
     lFrm.Carga , False, 4
End Sub

Código C#:

using AhoraAsistentes;
using AhoraCore;
using AhoraOCX;
using AhoraSistema;
using System.Drawing;

namespace AhoraScriptsVacia
{
    public class Script_0 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            IFrmMantenimientos lFrm = (IFrmMantenimientos)gCn.AhoraProceso("NewFrmMantenimiento", out _, gCn);
            lFrm.NombreForm = "Pers_frmMant_Idiomas";
            ICntGridUsuario lGrid = lFrm["Idiomas"];
            lGrid.Agregar = true;
            lGrid.Editar = true;
            lGrid.Eliminar = true;
            lGrid.CargaObjetos = false;
            lGrid.EditarPorObjeto = false;
            lGrid.GridHeadLines = 3;
            lGrid.AgregaColumna("IdIdioma", 133, "Id.Idioma", false);
            lGrid.AgregaColumna("Descrip", 133, "Descripción", false);
            lGrid.RowHeight = lGrid.RowHeight * 3;

            // Cambiamos el estilo de las filas del grid
            lGrid.Campo("IdIdioma").Column.Style.FontBold = true;
            lGrid.Campo("IdIdioma").Column.Style.ForeColor = Color.Blue;
            lGrid.Campo("Descrip").Column.Style.FontSize = 25;

            lGrid.Campo("Descrip").Column.Alignment = AlignmentConstants.vbCenter;

            lGrid.From = "Idiomas";
            lGrid.Where = "";
            lGrid.ColumnaEscalada = "Descrip";
            lGrid.OrdenMultiple = "Descrip";
            lGrid.RefrescaSinLoad = true;
            lGrid.Refresca = true;

            lFrm.Form.Text = "Mantenimiento de Idiomas";
            lFrm.Carga(null, false, EBotonesMant.eBotMant_Cerrar);
        }
    }
}