FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xbrowse question
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
xbrowse question
Posted: Wed Jan 30, 2008 12:17 AM

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

Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
xbrowse question
Posted: Wed Jan 30, 2008 07:23 AM
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()
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
xbrowse question
Posted: Wed Jan 30, 2008 05:19 PM
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

Continue the discussion