Redimensionar cols en un Flexgrid?

[lindochico]

Hola a todos!

Alguien me dice como puedo redimensionar las columnas de un MSFlexGrid al tamaño de la celda con el contenido mas grande? Mi Flexgrid me muestra los datos extraidos desde una tabla de Access pero las columnas estan dimensionadas al tamaño maximo de cada campo de la BD para evitar "cortar" parte del texto y que lo muestre completo. Me gustaria, Si es posible, redimensionar automaticamente cada columna al terminar de llenar el Flexgrid con la info de la tabla (como cuando hacemos doble clic en un encabezado de una columna en Excel para expandir/contraer la columna segun su contenido).

Alguien tiene alguna idea de como hacerlo?

Gracias

[GeoAvila]

esta respuesta ya se dió es con el colwidh y con textmatrix y la funcion Len, busca en el foro esta por alli la respuesta..

nos vemos..

[GatoNegro]

Hola Estimado
ojala te sirva esto

aqui se setea la grilla
Grilla.Rows= 1000
Grilla.Cols=5
Grilla.TextMatrix(0, 0) = "Cód"
Grilla.TextMatrix(0, 1) = "Nombre"
Grilla.TextMatrix(0, 2) = "Cargo"
Grilla.TextMatrix(0, 3) = "E-Mail"
Grilla.TextMatrix(0, 4) = "S/N"
Grilla.ColWidth(0) = 700
Grilla.ColWidth(1) = 2600
Grilla.ColWidth(2) = 2600
Grilla.ColWidth(3) = 2600
Grilla.ColWidth(4) = 300


despues para llenarla
Grilla.TextMatrix(1, 0)= "2"
Grilla.TextMatrix(1, 1)= "Juamo"
Grilla.TextMatrix(1, 2)= "Jefe"
Grilla.TextMatrix(1, 4)= "no aplica"
Grilla.TextMatrix(1, 5)= "N"

espero te sirva

[GeoAvila]

Iniciado por lindochico

Hola a todos!

Alguien me dice como puedo redimensionar las columnas de un MSFlexGrid al tamaño de la celda con el contenido mas grande?
Gracias

es básicamente eso pero tenes que redimensionar el mas grande contando con "Len" el "Textmatrix" y aplicandolo con la propiedad "colwidth"

nos vemos..

[ManuNic]

puedes recorrer todas las columas y todas la filas para saber que ancho tiene cada celda del grid y le das ese tamaño a la propiedad colwith de la celda
si lo queres hacer en una columna especifica solo elimina el primero for que es el que recorre todas la columnas

for i = 0 to grilla.cols -1 'todas la columnas
grilla.col = j
for j=0 to grilla.rows -1 'todas la filas
grilla.colwith(j,i)=len(grilla.texmatrix(j,i)
next
next