Page 1 of 1
xbrowse question
Posted: Wed Jan 30, 2008 12:17 am
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
Posted: Wed Jan 30, 2008 7:23 am
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()
Posted: Wed Jan 30, 2008 5:19 pm
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
