FiveTech Support Forums

Application
===========
   Path and name: C:\dlyma\hymlyma.exe (32 bits)
   Size: 7,605,248 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613)
   FiveWin  version: FWH 19.09
   C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 2 secs 
   Error occurred at: 09/04/2022, 11:12:32
   Error description: Error BASE/1082  Error de argumento: -
   Args:
     [   1] = U   
     [   2] = N   14.00

Stack Calls
===========
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1312 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 2101 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 2042 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1767 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11223 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
   Called from:  => DIALOGBOXINDIRECTW( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 436 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CHECKSIZE( 1312 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ADJUST( 1419 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RECALCWH( 8906 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:FONTSIZE( 8884 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYDOWN( 3458 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1801 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11223 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
   Called from: z:\prg\R32_menu.prg => INICIONUEVO( 1299 )
   Called from: z:\prg\R32_menu.prg => MAIN( 100 )

.....
.....
.....
    @ 63 , 7 XBROWSE oBrw ;
    SIZE 156 , 70 OF oDlg PIXEL ;
    DATASOURCE aEmpresas ;
    COLUMNS 1, 2;
    LINES STYLE FLAT NOBORDER

    WITH OBJECT oBrw
        :lRecordSelector        := .T.
        :lHScroll           := .F.
        :lVScroll           := .T.
        :l2007              := .F.
        :lFitGridHeight         := .T.
        :nHeaderHeight          := 21
        :nRowHeight         := 21
        :nMarqueeStyle          := MARQSTYLE_HIGHLROW
        :lColDividerComplete    := .t.
        :nColorPen          := CLR_HGRAY
        :lFullGrid          := .T.
        :nStretchCol            := STRETCHCOL_LAST
        :bClrHeader             := { || { CLR_WHITE, Rgb( 0,120,215 ), CLR_HGRAY } }
        :nRecSelColor           := RGB( 255, 255, 255 )
        :bClrSelFocus           := { || { Rgb(55,55,55), RGB( 185, 220, 255 ) } }
        :bClrStd            := { || { Rgb(55,55,55), CLR_WHITE } }          
        :SetFont( oFontSe1 )
        :CreateFromCode()
        :bChange            := {|| EVAL(cbSelEmpresa) } 
        :lAutoSort          := .t.
        :lIncrFilter        := .t.
        :lSeekWild          := .t.
        :bKeyDown           := {|nKey,oGet,nCol|TeclasIni(nKey,oGet,nCol,oBrw)}
        //:bKeyDown             := {|nKey| if(nKey == VK_DELETE, ( oBrw:Seek( "" ), oBrw:GoTop() ), ) }     
        :aCols[1]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "Cód", oBrw:nColSel := 1, oBrw:GoTop() }
        :aCols[2]:bLClickHeader := {|| oBrw:Seek( "" ), oBrw:cFilterFld := "Nombre", oBrw:nColSel := 2, oBrw:GoTop() }
        
    END

    WITH OBJECT oBrw:aCols[ 1 ]
        :bStrData := {|| if(Len( aEmpresas ) > 0 , alltrim(aEmpresas[oBrw:nArrayAt]["e_codi"]) , "" ) }   
        :cHeader  = "Cód"
        :nWidth   = 30
        :nHeadStrAlign = AL_LEFT
        :nDataStrAlign = AL_LEFT    
        :oHeaderFont = oFontSes  
    END  
    
    WITH OBJECT oBrw:aCols[ 2 ] 
        :bStrData := {|| if(Len( aEmpresas ) > 0 , alltrim(aEmpresas[oBrw:nArrayAt]["e_nomb"]) , "" ) }   
        :cHeader  = "Nombre"
        :nWidth   = 210
        :nHeadStrAlign = AL_LEFT
        :nDataStrAlign = AL_LEFT    
        :oHeaderFont = oFontSes
    END
....
....
...

METHOD CheckSize()  CLASS TXBrowse

   local aRect
   local nGap

   if ( ::nRightMargin != nil .or. ::nBottomMargin != nil ) .and. !( ::oWnd:oClient == Self )
      aRect    := GetClientRect( ::oWnd:hWnd )
      if ::nRightMargin != nil
         ::nWidth       := aRect[ 4 ] - ::nRightMargin - ::nLeft
      endif
      if ::nBottomMargin != nil
         ::nHeight      := aRect[ 3 ] - ::nBottomMargin - ::nTop
      endif

   endif

   if ::nHeaderPad > 0 .and. ::nHeaderHeight != nil
      ::nHeaderHeight   -= ::nHeaderPad
   endif
   if ::nFooterPad > 0 .and. ::nFooterHeight != nil
      ::nFooterHeight   -= ::nFooterPad
   endif
   ::nHeaderPad := ::nFooterPad := 0

   if ::lAdjusted .and. ::lFitGridHeight .and. ;
      ( ( ::lHeader .and. ::nHeaderHeight > 1 ) .or. ::lFooter )

      if ( nGap  := ::DataRect:nHeight % ::nRowHeight ) > 0

         if ::lHeader .and. ::nHeaderHeight > 1
            if ::lFooter
               ::nFooterPad   := Int( nGap * ::nFooterHeight / ( ::nHeaderHeight + ::nFooterHeight ) )
               ::nHeaderPad   := nGap - ::nFooterPad

//                ::nFooterHeight   += ::nHeaderPad // bug fixed 2018-07-10
//                ::nHeaderHeight   += ::nFooterPad

               ::nFooterHeight   += ::nFooterPad   // bug fixed 2018-07-10
               ::nHeaderHeight   += ::nHeaderPad

            else
               ::nHeaderHeight   += ( ::nHeaderPad := nGap )
            endif
         else
            ::nFooterHeight   += ( ::nFooterPad := nGap )
         endif
      endif
   endif

return Self