Altura de Combobox

[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

[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

[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

[goosfancito]

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  Expand view  RUN

          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


[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