topic-5339

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Altura de Combobox
Posted: 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"

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

--------------------------

Saludos

Jose Luis

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Altura de Combobox
Posted: Sat Dec 16, 2006 03: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

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Altura de Combobox
Posted: Sat Dec 16, 2006 06: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

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

--------------------------

Saludos

Jose Luis

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Altura de Combobox
Posted: Tue Jun 05, 2007 02: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

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 Collapse

          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/

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Altura de Combobox
Posted: Tue Jun 05, 2007 01: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

FiveTech Support Forums

Continue the discussion