FoxPro/Visual FoxPro - Problema con cabecera de Grid

 
Vista:

Problema con cabecera de Grid

Publicado por juan miguel solis (84 intervenciones) el 09/01/2016 14:55:38
Hola a todos

A ver si sabéis porque puede ser, porque por muchas vueltas que le doy, no lo encuentro.

Tengo un grid, que su HeaderHeight es 45 (alta para que salgan hasta e linea con el wordwrap a .T.)

Hasta aquí todo correcto, pero luego le pongo al Header, el alineamiento, la propiedad ALINGMENT = 9 (para que me aparezca ajustado a la linea de abajo).

Buneo peus en modo diseño le pongo el 9 y me lo ajusta bien, pero luego cuando compilo y lo ejecuto se vuelve a poner arriba como si el ALINGMENT del Header fuera 6 (Top Center).

No se porque pasa eso alguna idea por favor.

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Problema con cabecera de Grid

Publicado por neo (1604 intervenciones) el 10/01/2016 03:39:10
Crea un nuevo metodo y en el escribe:

Metodo m_grilla():

Thisform.grid1.HeaderHeight = 85

Y ejecuta este metodo cada vez que invoques el recordsource del grid

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con cabecera de Grid

Publicado por juan miguel solis (84 intervenciones) el 10/01/2016 21:51:57
Hola Neo

Gracias por tu consejo pero no me funiona, te pongo lo que he puesto:

He creado un método llamdo Header_Grid, lo unico que ties este metodo es:

Thisform.GridMvtos.HeaderHeight = 45

Luego en el programa en el INIT del Formulario, modifico el Grid (es un grid general al que luego le cambio cosas):

1
2
3
4
with ThisForm
	.GridMvtos.RecordSource = 'ARTI_TMP'
	.Header_Grid        && Aquí llamo al método para poner el HeaderHeight, solo pongo el recordsource aqui en ningún sitio mas.
ENDWITH

Luego sigo definiendo el grid.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
with ThisForm.GridMvtos
	.ColumnCount = 17
	.SetAll( 'movable', .F. )
	.SetAll( 'enabled', .T. )
	.SetAll( 'resizable', .T. )
 
	.Column1.Header1.wordwrap   = .T.
	.Column2.Header1.wordwrap   = .T.
 
	.Column1.Header1.alignment   = 9   && Para alinearlo centrado abajo.
	.Column2.Header1.alignment   = 9
 
**** mas cosas
 
EndWith

Pero nada ni caso me hace, ademas cuando pincho una linea del grid (que todo tiene tamaño de fuente 8), parece como si en la celda del grid que pincho, el font aumentara....., pero solo en esa celda.

En fin si se te ocurre alguna idea, se agradecería.

Gracias de todas maneras...

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar