error justificado de columnas con xbrowse

[alvaro533]

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

[alvaro533]

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()

[Daniel Garcia-Gil]

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"

[alvaro533]

Hola Daniel,

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

Gracias.
Alvaro

[Daniel Garcia-Gil]

Alvaro...

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

[alvaro533]

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

Gracias.
Alvaro

[Daniel Garcia-Gil]

alvaro

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

[Daniel Garcia-Gil]

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. )

[alvaro533]

Hola Daniel.

Ya funciona. He usado:

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

en lugar de:

ocol:nDataStrAlign := AL_LEFT

Muchas gracias.
Alvaro