Cómo Justificar HEADER y FOOTER?

[Armando]

Hola Amigos:

Con el siguiente código alineo las datos de las celdas de un xBrowse:

Code: Select all  Expand view  RUN

            JUSTIFY {(.F.),(.T.),(.T.),(.T.),(.F.),(.F.),(.F.),(.T.),(.T.),NIL};
 

Cómo justifico el HEADER y FOOTER?

Saludos

[joseluisysturiz]

Saludos...

Header
aCols[n]:nHeadStrAlign := AL_CENTER, etc

VALIDA SI SE CENTRAN TODOS LOS head AUTOMATICAMENTE
AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER } )


Footer
aCols[n]:nFootStrAlign := AL_RIGHT, etc

saludos...gracias...

[Armando]

José Luis:

Muchas gracias por tu respuesta peo me parece que con tu sugerencia
debo definir la alineación columna a columna.

Con JUSTIFY se define la alineación de cada columna en forma posicional, debe
haber algo para alinear el HEADER y FOOTER de forma similar, no?

Saludos

[joseluisysturiz]

José Luis:

Muchas gracias por tu respuesta peo me parece que con tu sugerencia
debo definir la alineación columna a columna.

Con JUSTIFY se define la alineación de cada columna en forma posicional, debe
haber algo para alinear el HEADER y FOOTER de forma similar, no?

Saludos

Armando, lo que dices es cierto, pero si existe no la conozco, ya habria que revisar mas la clase o preguntarle a Mt RAO, lo que he hecho es justificarlas todas a un mismo lado con

AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER } )

pero casi como dices que cada hearder o footer tome justificacions diferentes con una sola linea de comando no tengo ni idea, haber si alguien mas da alguna otra solucion o que dice Mr.TAO...saludos, gracias...

[FranciscoA]

Armando.
Sin modificar la Classe. ( Uso FW 1204 )
Si quieres centrar los headers y footers, tambien puedes usar:

Code: Select all  Expand view  RUN

  WITH OBJECT oBrw
      :nHeadStrAligns    := AL_CENTER
      :nFootStrAligns    := AL_CENTER
   END
 

Si quieres hacerlo segun tu criterio, prueba el siguiente codigo de ejemplo:
l

Code: Select all  Expand view  RUN

ocal aHeadAligns := {nil,2,nil,nil,2,nil,nil,nil}, n, aFootAligns := {2,nil,nil,nil,2,nil,nil,2}

  WITH OBJECT oBrw
     ...
   END

   AEval(aHeadAligns,{|a,n| oBrw:aCols[n]:nHeadStrAlign := aHeadAligns[n] })
   AEval(aFootAligns,{|a,n| oBrw:aCols[n]:nFootStrAlign := aFootAligns[n] })
 

Saludos.

[Armando]

Francisco:

Thanks, I'll Try it.

Regards

[nageswaragunupudi]

Also, if you want to specify different alignments for different column headers:

Code: Select all  Expand view  RUN

oBrw:nHeadStrAligns := { AL_LEFT, AL_RIGHT, AL_CENTER, ...... }
 

[Armando]

Mr. Rao:

Thanks a lot.

Regards