#include "minigui.ch"  
 #include "tsbrowse.ch"  
  
 REQUEST SQLMIX  
  
 Procedure Main()  
  
 DEFINE WINDOW Form1 ;  
 	AT 0,0 ;  
 	WIDTH (RR_GetDesktopArea()[4] * 0.99) ;  
 	HEIGHT (RR_GetDesktopArea()[3] * 0.91) ;  
 	TITLE "TsBrowse Array Bug Test" ;  
 	MAIN ;  
 	FONT 'Tahoma' SIZE 9  
  
 END WINDOW  
  
 Test() 
  
 Form1.Center  
 Form1.ACTIVATE  
  
 Return  
  
 *--------------------------------------------------------------  
  
 Function Test()  
 local i := 0  
 local j := 0  
 Local aStr := {}  
 local cAlias := "TEST"  
 local cBrw := "BRW"  
  
 PUBLIC &cBrw  
  
 FOR j := 1 TO 300  
 	AADD( aStr, {"F_" + NTOC(j) , "N", 14, 2 } ) 
 NEXT 
  
 rddSetDefault( "SQLMIX" )  
 dbCreate( cAlias, aStr,, .T., cAlias )  
  
 FOR i := 1 TO 100  
 	(cAlias)->( DbAppend() ) 
 	FOR j := 1 TO 300  
 		(cAlias)->( FieldPut(j, i*j) ) 
 	NEXT 
 NEXT 
  
 rddSetDefault( "SQLMIX" )  
  
 DEFINE TBROWSE &cBrw ; 
 	At 20, 5 ; 
 	ALIAS cAlias ;  
 	OF Form1 ;  
 	WIDTH (Form1.Width - 20) ;  
 	HEIGHT (Form1.Height - 70) ;  
 	COLORS { CLR_BLACK, CLR_BLUE } ;  
 	FONT "MS Sans Serif" ;  
 	SIZE 8 ;  
 	CELL;  
 	SELECTOR .T.  
  
 END TBROWSE  
  
 &cBrw:LoadFields( FALSE )  
  
 FOR i := 1 TO LEN(&cBrw:aColumns) 
 	&cBrw:aColumns[ i ]:bGotFocus := {|| ProcessMessages()} 
 NEXT 
  
 Return Nil