FiveTech Support Forums

// 89 - Line Fwh 15.02 
#ifdef REVD1406

//

#ifdef REVD1408

function XCBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, ;
                   lFastEdit, bValid, cSerial, oParent, lCaption, ;
                   nRowDlg, nColDlg, nWd, nHt )
.../..
   DEFAULT  uData    := Alias(), ;
            cTitle   := If( ValType( uData ) == 'C', uData, ;
                        If( ValType( uData ) == 'O', uData:ClassName(), ;
                        'XBROWSE' ) ), ;
            lAutoSort:= .f., ;
            bSetUp   := { || nil },;
            lExcel   := .t., ;
            oParent  := nil, ;
            lCaption := .T., ;
            nRowDlg  := 0, ;
            nColDlg  := 0, ;
            nWd      := ( GetSysMetrics(0) * 0.75 ) , ; // / 2 ), ;
            nHt      := ( GetSysMetrics(1) / 2 )

   if oParent == nil
      if WndMain() == nil
         DEFINE FONT oFont NAME 'TAHOMA' ;
            SIZE 0, -Min( 14, Max( 8, Int( GetSysMetrics(0) / 100 ) ) )
      else
         //oFont := WndMain():oFont
         nTipFont := 1
      endif
   else
      //oFont := oParent:oFont
      nTipFont := 2
   endif
.../...

   if oParent == nil
      DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL ;
         TITLE cTitle ;//FONT oFont
         STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
   else
      if lCaption
         DEFINE DIALOG oDlg PIXEL OF oParent ;  //SIZE nWd,nHt
            TITLE cTitle ;
            FROM nRowDlg, nColDlg TO nRowDlg + nHt, nColDlg + nWd //;
//         STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
            //FONT oFont
      else
         //cTitle  := ""
         DEFINE DIALOG oDlg PIXEL OF oParent ; //SIZE nWd,nHt
            FROM nRowDlg, nColDlg TO nRowDlg + nHt, nColDlg + nWd
            //FONT oFont
         //STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
      endif
   endif

   Do Case
      Case nTipFont == 0
           oDlg:SetFont( oFont )
      Case nTipFont == 1
           oDlg:SetFont( WndMain():oFont )
      Case nTipFont == 2
           oDlg:SetFont( oParent:oFont )
   EndCase

   nWd      /= 2
   nHt      /= 2
.../...

Application
===========
   Path and name: C:\Users\aperricone\Downloads\FivEdit (3)\SCIEDIT.exe (32 bits)
   Size: 3,546,624 bytes
   Compiler version: Harbour 3.2.0dev (r1406271520)
   FiveWin  Version: FWH 15.01
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 05/03/2015, 16:34:12
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... } length: 29
     [   2] = N   30

Stack Calls
===========
   Called from: C:\Verce43\FiveUI\Source\sciedit.prg => BUILDBAR( 1042 )
   Called from: C:\Verce43\FiveUI\Source\sciedit.prg => MAIN( 586 )

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7400  @ 2.80GHz 2800 Mhz
   Hardware memory: 4095 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 4
      1 ,                                                                                                     
      2 , C:\Users\aperricone\Downloads\FivEdit (3)\SCIEDIT.exe                                               
      3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697 
      4 , C:\Windows\syswow64\SHLWAPI.dll                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   BUILDBAR
     Param   1:    O    Class: ERROR
   MAIN
     Param   1:    A    Len:   34
     Param   2:    L    .T.
     Local   1:    N    30
     Local   2:    N    1
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    N    0
     Local   7:    A    Len:   30
     Local   8:    A    Len:   29
     Local   9:    S    
     Local  10:    O    Class: TBTNBMP
     Local  11:    A    Len:   29
     Local  12:    N    30
     Local  13:    U    
     Local  14:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TINI
     5 TWINDOW
     6 TCONTROL
     7 TICON
     8 TBRUSH
     9 TFONT
    10 TMENU
    11 TMENUITEM
    12 TMRU
    13 TBAR
    14 TBARC
    15 TRECT
    16 TBTNBMP
    17 TREG32

Memory Analysis
===============
      519 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes