Page 1 of 1

Cómo Justificar HEADER y FOOTER?

PostPosted: Tue Jul 31, 2018 8:26 pm
by Armando
Hola Amigos:

Con el siguiente código alineo las datos de las celdas de un xBrowse:
Code: Select all  Expand view

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


Cómo justifico el HEADER y FOOTER?

Saludos

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Wed Aug 01, 2018 2:11 am
by 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... :shock:

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Wed Aug 01, 2018 2:52 am
by 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

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Wed Aug 01, 2018 1:15 pm
by joseluisysturiz
Armando wrote: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... :shock:

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Wed Aug 01, 2018 4:42 pm
by FranciscoA
Armando.
Sin modificar la Classe. ( Uso FW 1204 )
Si quieres centrar los headers y footers, tambien puedes usar:
Code: Select all  Expand view
  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
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.

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Wed Aug 01, 2018 6:23 pm
by Armando
Francisco:

Thanks, I'll Try it.

Regards

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Thu Aug 02, 2018 7:08 pm
by nageswaragunupudi
Also, if you want to specify different alignments for different column headers:
Code: Select all  Expand view

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

Re: Cómo Justificar HEADER y FOOTER?

PostPosted: Thu Aug 02, 2018 7:54 pm
by Armando
Mr. Rao:

Thanks a lot.

Regards