HMGforum.com

Code: Select all

// testt  OK with 3.3.1  Fails with 3.4.3
#include "hmg.ch"
*------------------------------------------------------------------------------*
Function Main
*------------------------------------------------------------------------------*
 
 	Define Window win ;
		At 0,0 ;
		Width 500;
		Height 500;
		Title 'TABLE :  ' ;
		MAIN  
    
    Define Grid Grid_1
			Row 0
			Col 0
			Width 500
			Height 500
		  Headers {""}
		  Widths {0}       
		end Grid   
		
	End Window
 win.grid_1.DeleteColumn(1)
	
	for i =1 to 4
    win.grid_1. AddColumn ( i, "test"+alltrim(str(i)),50 ,BROWSE_JTFY_LEFT )         //headers
	next
	
  win.Center 
	win.Activate 
Return