FiveTech Software tech support forums

StefanHaupt wrote:I have another error, if I try to use TsBrowse in a folder defined from source inside a mdi window

Code: Select all  Expand view

DEFINE WINDOW ::oSoftWnd MDICHILD ;
                    FROM 0.5,1 TO 29,84 ;
                    TITLE "MSDNaa Softwareliste" ;
                    OF ::oWnd

@1,1 FOLDER oFld;
     ITEMS "&Operating Systems", "&Application", "&Servers","&Development","&SDK,DDK" ;
     FONT oFont;
     OF ::oSoftWnd
::oSoftWnd:oClient := oFld

oSoftBrw[1] := ::MakeBrowse (oFld:aDialogs[1], oFont,{ CLR_WHITE, CLR_NGREEN }, "Ope")
......

//-----------------------------------------------------------------------
METHOD MakeBrowse (oDlg, oFont,aColor,cFilter) CLASS TMsdn

LOCAL oBrw

@1,1 Browse oBrw  Alias "Software" ;
                  ;//COLORS CLR_BLACK, CLR_NBLUE ;
                  ON DBLCLICK (::EditSoft (.F.),oBrw:DrawSelect());
                  ;//Select SubStr (FIELD->Kategorie,1,3) FOR (cFilter);
                  FONT oFont;
                  OF oDlg

ADD COLUMN TO oBrw Header "Kategorie";
                   DATA FieldWBlock ("Kategorie",Select());
                   SIZE 95

//::oSoftWnd:SetControl(oSoftBrw[1])

oDlg:oClient := oBrw

Application
===========
Path and name: D:\Projekte\!Win\Msdn\Msdn.Exe (32 bits)
Size: 2,640,384 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 15.02.2008, 11:45:37
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 51

Stack Calls
===========
Called from: TSBROWSE.PRG => TSBROWSE:PROPER(7772)
Called from: TSBROWSE.PRG => TSBROWSE:LOADFIELDS(5971)
Called from: TSBROWSE.PRG => TSBROWSE:DEFAULT(1399)
Called from: TSBROWSE.PRG => TSBROWSE:NEW(733)
Called from: TMsdn.prg => TMSDN:MAKEBROWSE(511)

Could you please review this issue

carlos vargas wrote:Kleyber saludos

que problemas tienes con tsbrowse?
yo acabo de crear el proyecto xmate para la nueva lib del maestro manuel mercado sin problemas y ya he compilado el ejemplo.