Centrar columna en un LIXTBOX

Centrar columna en un LIXTBOX

Postby colthop » Tue Apr 22, 2008 5:03 pm

Hola amigos:

Quisiera saber si hay alguna manera de centrar el contenido de una columna en un LISTBOX. Algo parecido a aJustify pero que en vez de alinearlo a la derecha lo centre en la columna.

Un saludo

Carlos
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby Antonio Linares » Tue Apr 22, 2008 5:43 pm

Carlos,

Te refieres a un browse ? Cual browse estás usando ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby colthop » Tue Apr 22, 2008 5:47 pm

Hola Antonio:

Yo me refiero a:

@ 1, 2 LISTBOX odlg09 VAR oLbx2 ;
FIELDS letra, puesto;
FIELDSIZES 120,120;
HEADERS "Unidad", "SI o NO";
SIZE 120,120;
ON LEFT CLICK cambitras();
OF odlgw
oLbx2:aJustify:={.T.,.T.}

Si pongo la última linea me lo justifica a la derecha y lo que quisiera saber si hay alguna instruccion en vez de esa que lo que haga es centrarlo.

Un saludo

carlos
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby Antonio Linares » Tue Apr 22, 2008 6:00 pm

Carlos,

Ok, estas usando la clase TWBrowse.

Si revisas el fichero source\classes\wbrowse.prg en la función wBrwLine() verás que se usan unas llamadas a:

SetTextAlign( hDC, TA_RIGHT )
ó a
SetTextAlign( hDC, TA_LEFT )

Necesitarías SetTextAlign( hDC, TA_CENTER ) para centrar el texto. Lo que ocurre es que nosotros usamos un valor lógico en el array aJustify, por lo que no serviría para indicarle centrado, ya que necesitamos un tercer estado.

Hay que pensar la forma de hacerlo manteniendo la compatibilidad con el código actual. Mientras tanto puedes modificar tu mismo source\classes\wbrowse.prg y probarlo.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby colthop » Tue Apr 22, 2008 6:03 pm

Gracias Antonio asi lo hare.

Un saliudo

Carlos
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 61 guests