Left Justify xBrowse Footer

Left Justify xBrowse Footer

Postby Rick Lipkin » Tue May 19, 2015 9:12 pm

To All

I have a Footer for a KeyNo on column 1 which is numeric .. I can justify the header and the data, but How would I left Justify the footer as in this code :
Code: Select all  Expand view  RUN

oLbxA:aCols[1]:nDataStrAlign := AL_LEFT  // repair number
oLbxA:aCols[1]:nHeadStrAlign := AL_LEFT

oLbxA:lFooter   := .t.
oCol           := oLbxA:aCols[ 1 ]
oCol:bFooter   := { || Ltrim( Str( oLbxA:KeyNo() ) ) + " / " + LTrim( Str( oLbxA:KeyCount() ) ) }
oLbxA:bChange   := { || oCol:RefreshFooter() }
 

Image

Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2666
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Left Justify xBrowse Footer

Postby Armando » Wed May 20, 2015 12:17 am

Rick:

Try this way

Code: Select all  Expand view  RUN

oLbxA:aCols[1]:nFootStrAlign := AL_LEFT
 


Regards
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3229
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Left Justify xBrowse Footer

Postby Rick Lipkin » Wed May 20, 2015 1:04 pm

Armando

Thank you !! Worked Great

Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2666
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 71 guests