xbrowse question

xbrowse question

Postby Wanderson » 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
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Postby Maurizio » Wed Jan 30, 2008 7: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()
User avatar
Maurizio
 
Posts: 824
Joined: Mon Oct 10, 2005 1:29 pm

Postby Wanderson » Wed Jan 30, 2008 5: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
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 60 guests

cron