Xbrowse :SetStyle( 2018 ) ERROR

[Silvio.Falconi]

I have this error when click on one column header of xbrowse

Code: Select all  Expand view

Application
===========
   Path and name: C:\Work\Errori\test_ordine\test.Exe (32 bits)
   Size: 3,840,512 bytes
   Compiler version: Harbour 3.2.0dev (r1712141320)
   FiveWin  version: FWH 18.12
   C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 14-01-2019, 09:35:18
   Error description: Error BASE/1005  Message not found: TMENU:_L2018
   Args:
     [   1] = O   TMENU

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TMENU:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TMENU:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TMENU:_L2018( 0 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETCOLUMNS( 8515 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RBUTTONDOWN( 5089 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1801 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11121 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3541 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: test.prg => TEST( 84 )
   Called from: test.prg => MAIN( 24 )

[Silvio.Falconi]

I think we must change the METHOD SetColumns( nRow, nCol, nFlags ) of Xbrowse class or wait when add l2018 to tMenu class

[nageswaragunupudi]

Right.
Fixed for next release.

Request you to change line 8515 of xbrowse.prg:
Existing:

Code: Select all  Expand view

        OSend( oMenu, "_L" + Str( ::n2KStyle, 4 ), .t. )
 

Change this line as:

Code: Select all  Expand view

        OSend( oMenu, "_L" + Str( Min( 2015, ::n2KStyle ), 4 ), .t. )
 

[Silvio.Falconi]

thanks

[Silvio.Falconi]

Nages,
Ithink we must change also the bar (graphics) or add a new as MARQSTYLE_HIGHLWIN10
not blue but green clear