Altura de Combobox

Altura de Combobox

Postby JoseLuis » Sat Dec 16, 2006 10:36 am

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"

Image

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby Armando » Sat Dec 16, 2006 3:44 pm

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby JoseLuis » Sat Dec 16, 2006 6:14 pm

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
Image

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby goosfancito » Tue Jun 05, 2007 2:15 am

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
Image

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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Postby Armando » Tue Jun 05, 2007 1:28 pm

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 46 guests