Hi!

.Column1.addObject("Lcheck", "Checkbox")
.Column1.Lcheck.Visible = .T.

Controls added in run-time are always added with property Visible = .F.

>Hi, Folks!
>
>I have a silly problem dealing with grid and checkboxes:
>- I have a data source in any open work area.
>- I create a grid using ColumnCount=-1 and bound them to the datasource.
>- Some VFP automatics works very well (calculating column widths etc.)
>- Now the hack: I try to change the first column from textbox to checkbox!
>- That works fine - but the checkbox is always readonly!
>- I tried a lot of stuff:
> - dealing with BoundTo
> - setting ReadOnly=.T. programmatically
> - explicit setting of controlsource of the checkbox
>
>But whatever I do, the ... checkbox is read only at all!
>
>To see what happens copy the code below into a PRG, run it and click on the button!
>
>
>Any help kindly appreciated!
>
>

RELEASE abc
>PUBLIC abc
>abc = NEWOBJECT("formular1")
>
>
>**************************************************
>*-- Class:        formular1
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Zeitstempel: 06/06/02 01:41:08 PM
>*-- Testformular
>*
>DEFINE CLASS formular1 AS form
>
>
>	Top = 0
>	Left = 0
>	Height = 250
>	Width = 459
>	DoCreate = .T.
>	Caption = "Form1"
>	cursor = "test"
>	Name = "formular1"
>
>
>	ADD OBJECT grid1 AS grid WITH ;
>		Height = 200, ;
>		Left = 20, ;
>		Top = 5, ;
>		Width = 410, ;
>		Name = "Grid1"
>
>
>	ADD OBJECT command1 AS commandbutton WITH ;
>		Top = 215, ;
>		Left = 175, ;
>		Height = 27, ;
>		Width = 84, ;
>		Caption = "anzeigen", ;
>		Name = "Command1"
>
>
>	PROCEDURE Destroy
>		IF USED(this.Cursor)
>			SELECT (this.Cursor)
>			USE
>		ENDIF
>	ENDPROC
>
>
>	PROCEDURE Init
>		this.Visible = .T.
>	ENDPROC
>
>
>	PROCEDURE command1.Click
>		LOCAL lcAlias, lnCounter, lnCount, lcName
>		lnCount = 4
>		lcAlias = thisform.cursor
>
>		**************************************************
>		*-- einfach mal nen Cursor erzeugen
>		CREATE CURSOR (lcAlias) (che L(1,0),name C(20,0), Ort C(30,0))
>		m.che = .T.
>		m.name = "Biene"
>		m.Ort = "Berlin"
>		FOR lnCounter = 1 TO lnCount
>			INSERT INTO (lcAlias) FROM memvar
>		ENDFOR
>		GO top
>		**************************************************
>
>
>		*-- in Spalte 1, Textbox1 durch Checkbox ersetzen
>		WITH ThisForm.Grid1
>			.ColumnCount = -1
>			.recordsource = lcAlias
>			lcName = .Column1.CurrentControl
>			.Column1.RemoveObject(lcName)
>			.Column1.addObject("Lcheck", "Checkbox")
>			.Column1.sparse =.F.
>			.Column1.currentcontrol = "Lcheck"
>			.Column1.controls(2).ReadOnly = .F.
>
>		ENDWITH
>	ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: formular1
>**************************************************
>