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