xBrowse-Conditional-Error after Recompile with FWH 9.08 ?

[ukoenig]

Hello,

after recompile all my Applications with FWH 9.08, everywhere I get a xBrowse-Error.
Is there maybe something to add or to change ( xBrowse-Syntax ) ?
I think, it has something to do with the new < Kinetic Scrolling >

if ::lPressed // line 3141
if ::nStartTime == 0
::nStartTime := GetTickCount()
endif
else
...
...

A Color-Selector :

Code: Select all  Expand view

oLbx2 := TXBrowse():New( oFld:aDialogs[1] )
oLbx2:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx2:nColDividerStyle   := LINESTYLE_BLACK
oLbx2:nRowDividerStyle := LINESTYLE_BLACK
oLbx2:nRecSelColor = 15512898
oLbx2:bClrSelFocus = { || { 16777215, 15512898 } }
oLbx2:bClrSel = { || { 16777215, 15512898 } }

oLbx2:SetArray( aBRCOLOR )
oLbx2:aCols[ 1 ]:cHeader = Padr("No.", 3)
oLbx2:aCols[ 2 ]:cHeader = Padr("Start", 19)
oLbx2:lHScroll := .F.
oLbx2:lVScroll := .F.
oLbx2:lFooter := .T.
oLbx2:bLClicked := { | nRow, nCol | ROW_POS1 := oLbx2:nRowSel, ;
          ( BR_COLOR1 := NEW_COLORS(), ;
        IIF( HEADGRAD = 2, NEW_HPAINT(oLbx0), NIL ), ;
        oLbx0:Refresh(), ;
        oBmp1:Refresh(), oBR_COLOR1:Refresh() ) }
oLbx2:aCols[ 2 ]:AddResource("Black")
oLbx2:aCols[ 2 ]:AddResource("White")
oLbx2:aCols[ 2 ]:AddResource("Blue")
oLbx2:aCols[ 2 ]:AddResource("Green")
oLbx2:aCols[ 2 ]:AddResource("Red")
oLbx2:aCols[ 2 ]:AddResource("Yellow")
oLbx2:aCols[ 2 ]:AddResource("Magenta")
oLbx2:aCols[ 2 ]:bBmpData := {|| oLbx2:nArrayAt }
oLbx2:aCols[ 2 ]:bStrData := {|| oLbx2:aRow[2] }  

oLbx2:nArrayAt := ROW_POS1
oLbx2:nRowSel := ROW_POS1

oLbx2:nFooterHeight := 15

oLbx2:CreateFromResource( 110 )
 

ERROR :

Application
===========
Path and name: E:\T_XBROW\brwtools.exe (32 bits)
Size: 2,283,520 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 08/26/09, 15:33:00
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U

Stack Calls
===========
Called from: .\xBrowse.PRG => TXBROWSE:MOUSEMOVE(3141)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: .\xBrowse.PRG => TXBROWSE:HANDLEEVENT(9915)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(952)
Called from: .\Brwtools.PRG => MAIN(601)

Best Regards
Uwe

[byte-one]

I also got this error in some cases. In all xbrowses without this error, the dialog freezes once the mouse without any click was over the xbrowse!

[nageswaragunupudi]

This error appears to be similar to that of WBrowse as in the topic
viewtopic.php?f=3&t=16456

The DATA for KScroll are initialized only CreateFromCode() method but not in CreateFromResource() method.
Temporary fix is to add the following lines at the end of CreateFromResource() method, till FWH publishes its official fix

Code: Select all  Expand view

  // Movement Datas
   ::hCursorHand  = CursorOpenHand()  // moved to New()
   ::lDown        = .T.
   ::lMoved       = .F.
   ::lPressed     = .F.
 

[Antonio Linares]

A new FWH 9.08 build is already available,

Rao, many thanks

[nageswaragunupudi]

Thanks Mr Antonio
Revised build works fine with resources.

Mr MFG

the dialog freezes once the mouse without any click was over the xbrowse!

Can you please let me know if you are still experiencing this problem ? I have not observed this when I quickly tested with testxbr3.prg in the samples folder.

[byte-one]

Thanks, I found also the solution for the freezing.
But a other problem is the black vertical line at the beginn of the datarange. In paint() in the part for "Rowselector" there is a nCol -- commented out. If I activate this, all is ok. This line should not at all painted!!??
And on a edit-cell with a listbox there are not visible the datas in this row, when I move the mouse over the listbox!

In header and footer the col-line after the recordselector are too left. And the col-line after the recordselector on the part without data are not shown, if the lColDividerComplete is .T.