xbrowse question

Post Reply
Wanderson
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

xbrowse question

Post by Wanderson »

Hello

I start using xbrowse and i see a little problem:

http://img143.imageshack.us/my.php?image=xbrwmv3.jpg

Is it normal?

Fwh 8.01

Thanks.
Wanderson
User avatar
Maurizio
Posts: 705
Joined: Mon Oct 10, 2005 1:29 pm
Contact:

Post by Maurizio »

Hello Wanderson

I add this in xBrowse.prg
// nAdjColumn is the colums to expand
DATA nAdjColumn AS NUMERIC

METHOD Adjust() CLASS TXBrowse

local nFor, nLen, nHeight, nStyle

Local nTot := 0
LOcal nMaxWidth := ::nWidth() - 5


nLen := len( ::aCols )
nHeight := 0

::GetDC()

for nFor := 1 to nLen
::aCols[ nFor ]:Adjust()
IIF( ::nAdjColumn > 0 , nTot += ::aCols[ nFor ]:nWidth ,)
next
IIF( ::nAdjColumn > 0 , ::aCols[::nAdjColumn ]:nWidth += nMaxWidth - nTot,)
::ReleaseDC()
Wanderson
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Post by Wanderson »

Maurizio wrote:Hello Wanderson

I add this in xBrowse.prg
// nAdjColumn is the colums to expand
DATA nAdjColumn AS NUMERIC

METHOD Adjust() CLASS TXBrowse

local nFor, nLen, nHeight, nStyle

Local nTot := 0
LOcal nMaxWidth := ::nWidth() - 5


nLen := len( ::aCols )
nHeight := 0

::GetDC()

for nFor := 1 to nLen
::aCols[ nFor ]:Adjust()
IIF( ::nAdjColumn > 0 , nTot += ::aCols[ nFor ]:nWidth ,)
next
IIF( ::nAdjColumn > 0 , ::aCols[::nAdjColumn ]:nWidth += nMaxWidth - nTot,)
::ReleaseDC()

Thank you Maurizio, is mutch better now but persist a little problem with a focused record

http://img156.imageshack.us/my.php?image=xbrweu3.jpg
Post Reply