when resize xBrowse accours the error
Application
===========
Path and name: C:\Zephir\NwCoge\Sigah.exe (32 bits)
Size: 2,995,712 bytes
Compiler version: Harbour 3.2.0dev (r2008190002)
FiveWin version: FWH 20.08
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 26 secs
Error occurred at: 02/11/2020, 12:30:25
Error description: Error BASE/1082 Parametro errato: -
Args:
[ 1] = U
[ 2] = N 3.00000
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1356 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 2164 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 2104 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1793 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11774 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 448 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 24 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1356 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1463 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RECALCWH( 9411 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETFONT( 9372 )
Called from: \servizio\prog\StdGes.prg => RESIZEDIALOG( 12104 )
Called from: \servizio\prog\StdGes.prg => (b)STDGES_GESTIONE( 3417 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:RESIZE( 2366 )
Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG( 99 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:RESIZE( 0 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1140 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\MSGBAR.PRG => TMSGBAR:LBUTTONDOWN( 558 )
Called from: .\source\classes\CONTROL.PRG => TMSGBAR:HANDLEEVENT( 1814 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: \servizio\prog\StdGes.prg => STDGES:GESTIONE( 3446 )
Called from: \servizio\prog\StdGes.prg => STDGES:ACTIVATE( 1362 )
Called from: prog\LncInv.prg => LNCINV( 122 )
Called from: prog\Main.prg => (b)BUILDMENU( 6484 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1556 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1141 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 272 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1097 )
Called from: prog\Main.prg => MAIN( 6066 )
Code: Select all
// Original code from row 1355 thru 1360
if ::nHeaderPad > 0
::nHeaderHeight -= ::nHeaderPad
endif
if ::nFooterPad > 0
::nFooterHeight -= ::nFooterPad
endif
// Code modified
if ::nHeaderPad > 0
IF valtype(::nHeaderHeight) = "N" // <----------------------------
::nHeaderHeight -= ::nHeaderPad
ENDIF // <--------------------------------
endif
if ::nFooterPad > 0
IF valtype(::nFooterHeight) = "N" // <---------------------------
::nFooterHeight -= ::nFooterPad
ENDIF // <-------------------------------------
endif
for Mr. Nages (Master of xBrowse)
is the modify ok ?
thank