FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour error justificado de columnas con xbrowse
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
error justificado de columnas con xbrowse
Posted: Sun Aug 30, 2009 06:59 PM

Tengo fwh 8.06

En un programa defino un xbrowse, al cual cambio las columnas seg煤n se pulse uno u otro bot贸n. en el caso de abajo, la columna 5 aparece justificada a la derecha, a pesar de que pongo est谩 l铆nea vv:oBrw2:aCols[5]:nDataStrAlign:=0 (izquierda) y he comprobado que no la piso con otro valor m谩s adelante.
驴Se le ocurre a alguien d贸nde puede estar el error? Muchas gracias.
Alvaro

if len(oBrw:aCols)<1
oBrw:AddCol() // 1
endif
oBrw:aCols[1]:bStrData := { || (cAlias)->coche }
oBrw:aCols[1]:cHeader := "Matricula"
oBrw:aCols[1]:nDataStrAlign:=2
oBrw:aCols[1]:nWidth:=70
if len(oBrw:aCols)<2
oBrw:AddCol() // 2
endif
oBrw:aCols[2]:bStrData := { || dtoc((cAlias)->fecha) }
oBrw:aCols[2]:cHeader := "Fecha"
oBrw:aCols[2]:nDataStrAlign:=2
oBrw:aCols[2]:nWidth:=70
if len(oBrw:aCols)<3
oBrw:AddCol() // 3
endif
oBrw:aCols[3]:bStrData := { || tran((cAlias)->km,"999,999") }
oBrw:aCols[3]:cHeader := "KM"
oBrw:aCols[3]:nDataStrAlign:=2
oBrw:aCols[3]:nWidth:=70

if len(oBrw:aCols)<4
oBrw:AddCol() // 4
endif
oBrw:aCols[4]:bStrData := { || (cAlias)->origen }
oBrw:aCols[4]:cHeader := "Origen"
oBrw:aCols[4]:nDataStrAlign:=0
oBrw:aCols[4]:nWidth:=170

if len(oBrw:aCols)<5
oBrw:AddCol() // 5
endif
oBrw:aCols[5]:bStrData := { || subs((cAlias)->notas,1,60) }
oBrw:aCols[5]:cHeader := "Notas"
oBrw:aCols[5]:nDataStrAlign:=0
oBrw:aCols[5]:nWidth:=200
oBrw:aCols[5]:nDataStrAlign:=0
oBrw:aCols[5]:nFootStrAlign:=0

for nfor=1 to len(oBrw:aCols)-1
oBrw:aCols[nfor]:nHeadStrAlign:=2
next nfor
oBrw:aCols[nfor]:nHeadStrAlign:=0

for nfor=len(oBrw:aCols) to 6 step -1 // poner el 煤ltimo m谩s uno
oBrw:delcol(nfor)
next nfor

Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: error justificado de columnas con xbrowse
Posted: Tue Sep 15, 2009 04:25 PM

Me sigue fallando la justificaci贸n de las columnas en Xbrowse. Un c贸digo tan sencillo como este me justifica la segunda columna como centrada, en lugar de a la izquierda. Tengo la versi贸n 8.06 de fwh. 驴Hab铆a alg煤n bug en esa versi贸n? Muchas gracias.
Alvaro

vv:oBrw := TXBrowse():New( vv:oWnd2 )

modifica:={ || nil }
menuderecho:={ |nRow,nCol| menudcho(nRow, nCol,vv) }

vv:oBrw:nMarqueeStyle := 5
vv:oBrw:nColDividerStyle := LINESTYLE_BLACK
vv:oBrw:nRowDividerStyle := LINESTYLE_BLACK
vv:oBrw:lColDividerComplete := .t.
vv:oBrw:nHeaderLines := 1
vv:oBrw:nfooterLines := 1
vv:oBrw:nDataLines := 1
vv:oBrw:lfooter := .f.
vv:oBrw:lHScroll := .f.
vv:oBrw:L2007:=.t.
vv:oBrw:lAllowRowSizing:=.f.
vv:oBrw:lAllowCopy:=.f.

oCol := vv:oBrw:AddCol() // 1
oCol:bStrData := { || (vv:cAlias)->coste }
oCol:cHeader := "Gastos"
ocol:nDataStrAlign:=0
oCol:nWidth:=240

oCol := vv:oBrw:AddCol() // 2
oCol:bStrData := { || tran((vv:cAlias)->per, "999,999.99" ) }
oCol:cHeader := "Periodo"
ocol:nDataStrAlign:=0
oCol:nWidth:=70

for nfor=1 to len(vv:oBrw:aCols)
vv:oBrw:aCols[nfor]:blDClickData:= modifica
vv:oBrw:aCols[nfor]:bRClickData:= menuderecho
next nfor

vv:oBrw:ntop:=120
vv:oBrw:nleft:=10
vv:oBrw:nright:=523
vv:oBrw:nbottom:=174

vv:oBrw:SetRDD()

vv:oBrw:CreateFromCode()

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: error justificado de columnas con xbrowse
Posted: Tue Sep 15, 2009 06:32 PM

Saludos Alavaro

Creo que si era un problema minimo

si mal no recuerdo esta era la solucion...

en el metodo aJustify cambiar la linea
j := Min( 3, Max( 1, j ) )
por esta
j := Min( 3, Max( 0, j ) )

solo cambiar un "1" por un "0"

Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: error justificado de columnas con xbrowse
Posted: Tue Sep 15, 2009 08:05 PM

Hola Daniel,

Gracias por tu respuesta. Sigue sin funcionar. A ver si encuentro cual fue la modificaci贸n.

Gracias.
Alvaro

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: error justificado de columnas con xbrowse
Posted: Tue Sep 15, 2009 08:09 PM

Alvaro...

Estas uniendo el xbrowse.prg como un archivo mas de tu proyecto?

Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: error justificado de columnas con xbrowse
Posted: Tue Sep 15, 2009 08:30 PM

Si, modifico el xbrowse.prg como me has dicho, creo el obj y lo uno. Ya he modificado otras clases.

Gracias.
Alvaro

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: error justificado de columnas con xbrowse
Posted: Tue Sep 15, 2009 09:23 PM

alvaro

Podria ayudarte, eviame la clase a danielgarciagil@gmail.com

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: error justificado de columnas con xbrowse
Posted: Wed Sep 16, 2009 04:11 PM

Alvaro...

Recibi correo he realizado algunas pruebas y no logro generar el error q nos comentas, el texto me sale alineado perfectamente, te envio a tu email el test...

trata de usar esta via sin necesidad de cambiar la clase

oCol:nDataStyle = oCol:DefStyle( AL_LEFT, .F. )

Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: error justificado de columnas con xbrowse
Posted: Thu Sep 17, 2009 10:48 AM

Hola Daniel.

Ya funciona. He usado:

oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .F. )

en lugar de:

ocol:nDataStrAlign := AL_LEFT

Muchas gracias.
Alvaro

Continue the discussion