FiveTech Software tech support forums

Posted: **Mon Jan 14, 2019 8:36 am**

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 )

Posted: **Tue Jan 15, 2019 9:48 am**

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

Posted: **Tue Jan 15, 2019 2:05 pm**

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. )

Posted: **Tue Jan 15, 2019 2:37 pm**

thanks

Posted: **Wed Jan 16, 2019 12:23 pm**

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

Xbrowse :SetStyle( 2018 ) ERROR