HMGforum.com

Code: Select all

//  In Grid
// GRID_1 is grid name, FORM_1 is form name, 6 is number of columns in grid, 
//             the next 6 are the widths you want columns to be.
ON KEY F2 ACTION CHGRID('GRID_1','FORM_1',6,100,100,340,0,0,0)
// or
ON KEY RETURN ACTION CHGRID('GRID_1','FORM_1',6, 0,600,140,0,0,0)
// or reset to original
ACTION CHGRID('GRID_1','FORM_1',6,140,140,140,100,100,100)

Function chgrid
local hgrid := ' ', jmax:=0, j1:=1, nwidth := 0, wi := ' '
parameters Gr,Fo,col,wi1,wi2,wi3,wi4,wi5,wi6
jmax := col
hGrid := GetControlHandle(Gr, Fo )
for j1:= 1 to jmax
	wi := 'wi'+alltrim(str(j1))
	nwidth := &wi
	LISTVIEW_SETCOLUMNWIDTH(hgrid,j1-1,nwidth)	
next

return

Code: Select all

Function
PRIVATE  GrChg := .F.
DEFINE WINDOW Form_1 ;
DEFINE GRID Grid_1

ONHEADCLICK { { || NIL },;
{|| IF(GrChg = .F. ,; CHGRID('GRID_1','FORM_1',6,80,350,80,80,80,80),CHGRID('GRID_1','FORM_1',6,140,140,140,100,100,100))},;
{|| IF(GrChg = .F. , CHGRID('GRID_1','FORM_1',6,80,80,350,80,80,80), CHGRID('GRID_1','FORM_1',6,140,140,140,100,100,100))},;
{|| IF(GrChg = .F. , CHGRID('GRID_1','FORM_1',6,80,80,80,350,80,80), CHGRID('GRID_1','FORM_1',6,140,140,140,100,100,100))},;
{|| IF(GrChg = .F. , CHGRID('GRID_1','FORM_1',6,80,80,80,80,350,80), CHGRID('GRID_1','FORM_1',6,140,140,140,100,100,100))},;
{|| IF(GrChg = .F. , CHGRID('GRID_1','FORM_1',6,80,80,80,80,80,350), CHGRID('GRID_1','FORM_1',6,140,140,140,100,100,100))}}
END GRID
END WINDOW
ACTIVATE WINDOW Form_1

Function ChGrid
local hgrid := '', jmax:=0, j1:=1, nwidth := 0, wi := ''
parameters Gr,Fo,col,wi1,wi2,wi3,wi4,wi5,wi6
jmax := col
hGrid := GetControlHandle(Gr, Fo )
for j1:= 1 to jmax
	wi := 'wi'+alltrim(str(j1))
	nwidth := &wi
	LISTVIEW_SETCOLUMNWIDTH(hgrid,j1-1,nwidth)	
next
if GrChg = .F.
	GrChg := .T.
else
	GrChg := .F.
endif
return