I have a form that has grid on it that is hidden until the user selects a table to view. The grid needs to be dynamic. When the user clicks on the command button to open a table, it creates a cursor from the selected table that is viewed in the grid. Everything works fine except that I want to be able to determine if the columns in the grid are not as wide as column's captions to adjust the column width at least to that width if not wider. Any ideas? I know I need to step through the properties of the grid and check the current column width against the len of the caption, but how to do that? In general, how to create a better looking dynamic grid?

TIA,
Tracy

*-Browse open tables
PUBLIC loform
loform=CREATEOBJECT("browsetables")
loform.show()
RETURN


DEFINE CLASS browsetables AS form


	DataSession = 2
	Top = 0
	Left = 0
	Height = 424
	Width = 600
	DoCreate = .T.
	Caption = "Browse Tables - Please Select a Table to Browse"
	ControlBox = .F.
	Name = "Form1"
	lctable = .F.


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 12, ;
		Left = 423, ;
		Height = 36, ;
		Width = 84, ;
		Picture = "..\..\program files\microsoft visual foxpro 7\wizards\graphics\open.bmp", ;
		Caption = "Open Table", ;
		TabStop = .F., ;
		Name = "Command1"


	ADD OBJECT grd_view AS grid WITH ;
		Height = 324, ;
		Left = 12, ;
		ReadOnly = .T., ;
		RecordSource = "", ;
		RecordSourceType = 1, ;
		TabStop = .F., ;
		Top = 84, ;
		Visible = .F., ;
		Width = 576, ;
		Name = "grd_view"


	ADD OBJECT lblfilename AS label WITH ;
		Caption = "", ;
		Height = 24, ;
		Left = 13, ;
		Top = 51, ;
		Width = 348, ;
		Name = "lblfilename"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 12, ;
		Left = 507, ;
		Height = 36, ;
		Width = 84, ;
		Picture = "..\..\program files\microsoft visual foxpro 7\samples\tastrade\bitmaps\close.bmp", ;
		Caption = "Exit", ;
		TabStop = .F., ;
		Name = "Command2"


	PROCEDURE Release
		CLOSE TABLES
		DODEFAULT()
	ENDPROC


	PROCEDURE command1.Click
		THISFORM.lctable=GETFILE("dbf")
		IF !EMPTY(thisform.lctable)
			IF USED('gridview')
				USE IN gridview
			ENDIF
			CLOSE TABLES
			USE (thisform.lctable) ALIAS mytable
			thisform.grd_view.recordsource = ""
			*-- run query
			SELECT * FROM mytable into cursor gridview
			thisform.grd_view.recordsource ="gridview"
			thisform.grd_view.visible=.t.
			thisform.grd_view.refresh()
			USE IN mytable
			THISFORM.lblfilename.caption=thisform.lctable
		ELSE
			THISFORM.grd_view.recordsource=""
			thisform.grd_view.visible=.f.
			THISFORM.lblfilename.caption="NO table selected"
		ENDIF
		RETURN
	ENDPROC


	PROCEDURE command2.Click
		CLOSE TABLES
		THISFORM.RELEASE()
	ENDPROC


ENDDEFINE