xBrowse Horizontal scroll error with multiple listboxes 1501

[Rick Lipkin]

To All

I have a form that has three xBrowse listboxes on one form. When I use the horizontal scroll on the bottom xBrowse I get an ugly run-time error. It only seems to occur when the cursor gets to the Labor column ( edit_get_button ).

Again .. this only occurs as you scroll right either with the right arrow key or the horizontal scroll bar and the cursor hits the Labor column.

Any help would be appreciated.
Rick Lipkin

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Fox\SaLite\Saw32.Exe (32 bits)
   Size: 5,128,704 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20131030)
   FiveWin  Version: FWHX 15.01
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 27 secs
   Error occurred at: 02/11/2015, 08:45:59
   Error description: Error BASE/1070  Argument error: ==
   Args:
     [   1] = A   { ... } length: 1
     [   2] = N   16777215

Stack Calls
===========
   Called from: .\source\classes\BRUSH.PRG => TBRUSH:NEW( 132 )
   Called from: .\source\classes\WINDOW.PRG => TCONTROL:SETCOLOR( 2739 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SETCOLOR( 1578 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTCELL( 10760 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA( 10283 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE( 1927 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1590 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1368 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12607 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => SYSREFRESH( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:END( 526 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORDIALOG( 401 )
   Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 175 )
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1687 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 403 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 420 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: .\source\classes\BRUSH.PRG => TBRUSH:NEW( 132 )
   Called from: .\source\classes\WINDOW.PRG => TCONTROL:SETCOLOR( 2739 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SETCOLOR( 1578 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTCELL( 10760 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA( 10283 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE( 1927 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1590 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1368 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12607 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 420 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: .\source\classes\BRUSH.PRG => TBRUSH:NEW( 132 )
   Called from: .\source\classes\WINDOW.PRG => TCONTROL:SETCOLOR( 2739 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SETCOLOR( 1578 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTCELL( 10760 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA( 10283 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE( 1927 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1590 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1368 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12607 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1152 )
   Called from: Main.prg => MAIN( 326 )
 

[nageswaragunupudi]

It appears you are using gradient and set oCol:lBtnTranparent to .T..
For now as a temporary solution, set oCol:lBtnTransparent to .F. ( that is the default ).

Please let us know if this is working well.

We shall provide a better way of painting the transparent button even on gradients by next release.

[Rick Lipkin]

Rao

YES !! I just rem'd out oLbxB3:aCols[ 6 ]:lBtnTransparent := .t. and it worked

Thanks
Rick Lipkin