listbox to xbrowse

[Marc Vanzegbroeck]

Hi,

Since i convering my programs from an (older) FWH32 to FWH64, I also want to change from listbox to xbrowse.

I Have a little question about changing the configuration, online.

Now I was using

Code: Select all  Expand view

sGetlist[6]:bline = &('{|| '+show_kolom()+'  }')
sGetlist[6]:aheaders =  show_hoofd()
sGetlist[6]:aColsizes = show_len()
sGetlist[6]:aJustify  = show_jus()
sGetlist[6]:lmchange = .t.
 

for my headers, justify and Columnsize.
What parameters do I haveto use for xbrowse?

Thank you.

[Marc Vanzegbroeck]

Hi,

I change by program, and use addcol()
This is working file when I do this before the browse is displayed, but when I do it while it is shown, I get this error after refreshing the browse.

Code: Select all  Expand view

Application
===========
   Path and name: c:\_vmsdata\FWH64\projects\EPKSDoc\EPKSDOC.exe (64 bits)
   Size: 7,988,869 bytes
   Compiler version: Harbour 3.2.0dev (r1603181642)
   FiveWin  Version: FWH 16.02
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 40 secs
   Error occurred at: 04/02/16, 15:38:07
   Error description: Error BASE/1081  Argument error: +
   Args:
     [   1] = U  
     [   2] = N   2

Stack Calls
===========
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LASTDISPLAYPOS( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 0 )

[cnavarro]

Maybe this sample help you

viewtopic.php?f=6&t=31625&p=184485&hilit=addcol#p184485

[Marc Vanzegbroeck]

Hi,

the addcol() is working fine for creating by browse, but i want to add some columns while displaying the browse.
Then I get this error.

[Marc Vanzegbroeck]

Hi,

I found the problem!
I have to do a setado() again, after adding the column, and after adding that extra field in my recordset

[cnavarro]

Ok, great

He would only comment that after of an insert or add column, should make a call oBrw:Refresh (.T.)