VFP 6 Scrollbar in grid disabled 1

[eric43]

I am allowing a change of width of a grid on a form via a button.

	PROCEDURE cmdStretch.Click

	IF extender = 0

		WITH _screen
			.width = 1600
		ENDWITH

		ooGsForm1.width = 1595
		ooGsForm1.grid1.width = 1585

		mywidth = ooGsForm1.grid1.Column7 .width
		ooGsForm1.grid1.Column7.width = 940

		thisform.grid1.setfocus()
		thisform.grid1.refresh()

		extender = 1

	ELSE

		WITH _screen
		.width = 795
		ENDWITH

		ooGsForm1.width = 785
		ooGsForm1.grid1.width = 780
		ooGsForm1.grid1.Column7.width = mywidth
		
		thisform.grid1.setfocus()
		thisform.grid1.refresh()
		thisform.grid1.columns(17).refresh()

		extender = 0

	ENDIF

The grid after the first button press lacks a horizontal scroll bar yet all columns are NOT displayed in the wider grid.

Any ideas?

Thanks

Eric

 

[Mike Lewis]

Eric,

Have you tried setting the grid's ScrollBars property to either 1 or 3?

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My sites:
Visual FoxPro (www.ml-consult.demon.co.uk)
Crystal Reports (www.ml-crystal.com)