Page 1 of 1
Altura de Combobox
Posted: Sat Dec 16, 2006 10:36 am
by JoseLuis
Hola amigos
Esto ya lo he leido en el foro pero no me ha quedado aclarado
Usando la clase twbrowse de Hernán, la altura del combobox queda un poco "chuchurria"
Para arreglar ésto, he leido en el foro
Hi Jose !
The solution is in twbrowse.prg . Please , search methods EditCols and etc. . You will find something similar as in below :
Código:
case aItems != nil
@ aPos[ 1 ] + 1, aPos[ 2 ] + 1 COMBOBOX ::oGet VAR uVar ITEMS aItems ;
SIZE nWidth, Max( 200, Len( aItems ) * 25 ) OF Self ;
FONT oFont COLOR nClrFore, nClrBack ;
ON CHANGE ::End() ;
PIXEL
In this place you can change parameters of combobox view height and width .
Hope this help to you . Regards !
Osea que hay que modificar la clase, pero en que sentido?,donde?.
Para que se quede de la misma altura que las líneas del listbox.
Esto si no hay una solución mejor.
Saludos
Jose Luis
Posted: Sat Dec 16, 2006 3:44 pm
by Armando
José Luis:
Tomado de la clase
//39) Nuevas variables ::nHeaderHeight, nFooterHeight, ::nLineHeight, que
// especifican el alto en pixels de Headers, Footers y Linea Standard del
// browse. Ya no depende la altura de la fuente. Por defecto las tres
// asumen el valor de la fuente, por compatibilidad.
Una vez que hayas definido el Browse usa las siguientes líneas:
oBrw:nHeaderHeight := 20
oBrw:nFooterHeight := 15
oBrw:nLineHeight := 25
Saludos, Armando
Posted: Sat Dec 16, 2006 6:14 pm
by JoseLuis
Gracias por contestar Armando.
Lo que hace el no leer atentamente todo, en fin he puesto una altura suficiente y así me puedo apañar
Pero como verás sigue quedando un poco desplazado el combo hacia abajo. No habría alguna manera de centrarlo totalmente en la línea?.
Por pura éstética.
Gracias y saludos
Jose Luis
Posted: Tue Jun 05, 2007 2:15 am
by goosfancito
JoseLuis wrote:Gracias por contestar Armando.
Lo que hace el no leer atentamente todo, en fin he puesto una altura suficiente y así me puedo apañar
Pero como verás sigue quedando un poco desplazado el combo hacia abajo. No habría alguna manera de centrarlo totalmente en la línea?.
Por pura éstética.
Gracias y saludos
Jose Luis
Continuando con el tema, estoy haciendo un combobox, y cuando se desplega la lista de items, selecciono uno y ya sale de edicion, o sea, sigue con la siguiente linea de codigo.
Pregunta- como hago para que solo siga al seleccionar uno y dar ENTER.
Gracias.
Code: Select all
uBuffer := aDatos[nAt,1]
oBrw:lEditCol( 1, @uBuffer, , , CLR_YELLOW, CLR_CYAN, CargarOrigenes() )
// Verifico que no exista previamente.
// Quiero seguir por estas lineas cuando se presione ENTER
Posted: Tue Jun 05, 2007 1:28 pm
by Armando
Jose Luis:
Si de estética se trata, yo reduciría la altura del renglón para ajustarlo al combo y ampliaría la altura del Header a la misma altura que el renglón, cuando menos y cambiaría el color del Header a blanco sobre negro.
Ojalá te guste como se ve.
Saludos