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