New update of TSBrowse 7 with some bug fixes in our blog

[carlos vargas]

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.

[StefanHaupt]

Hi Manuel,

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

I´m very sorry, but the error still persists in the last version. Now I´m getting this error message:

Application
===========
Path and name: D:\Projekte\!Win\Msdn\Msdn.Exe (32 bits)
Size: 2,641,408 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 20.02.2008, 10:02:40
Error description: Error BASE/1004 Class: 'NIL' has no exported method: EVAL
Args:
[ 1] = U

Stack Calls
===========
Called from: => EVAL(0)
Called from: TSBROWSE.PRG => TSBROWSE:LOADFIELDS(6024)
Called from: TSBROWSE.PRG => TSBROWSE:DEFAULT(1399)
Called from: TSBROWSE.PRG => TSBROWSE:NEW(735)
Called from: TMsdn.prg => TMSDN:MAKEBROWSE(511)

Could you please review it

[Kleyber]

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.

Hola mi amigo Carlos,

Bueno, te comento que he conseguido crear la lib, pero en mis testes con mi app (no he compilado el ejemplo) vi que muchas cosas aun no funcionan, tales como añadir un nuevo registro en el browse... me sale un error... y otras cositas mas. Quizas sea porque algunos de los comandos sufrierón algun cambio... no lo sé. Quizas tengo que ejecutar el ejemplo para mirar todo...

Gracias por tu tiempo