Page 1 of 1

Error on Resize xBrowse

Posted: Mon Nov 02, 2020 11:45 am
by mauri.menabue
Hi all

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

 
now it's ok

for Mr. Nages (Master of xBrowse)
is the modify ok ?
thank