>>>>.RemoveObject( "Text1" ) >>>>cNewControlName = "." + ALLTRIM( GRID_DATA.OPT_CONTR1 ) >>>>.AddObject( ALLTRIM( GRID_DATA.OPT_CONTR1 ), ALLTRIM( GRID_DATA.OPT_CONTR2 ) ) >>>>.sparse = .F. >>>>>>>>The value in OPT_CONTR2 is "CHECKBOX_CONTROL"
>>>>DEFINE CLASS CHECKBOX_CONTROL AS CHECKBOX >>>> >>>> OPT_CONTR1 = "" >>>> OPT_CONTR2 = "" >>>> OPT_CONTR3 = "" >>>> OPT_CONTR4 = "" >>>> OPT_CONTR5 = 0.00 >>>> OPT_CONTR6 = "" >>>> OPT_CONTR7 = .F. >>>> OPT_CONTR8 = .F. >>>> ROW_HEIGHT = 0.00 >>>> >>>>ENDDEFINE >>>>>>>>The above shows all rows in the grid as a checkbox. However, regardless of the value (STATUS="A" or STATUS="I"), the check box has a caption equal in OPT_CONTR1. If the value in OPT_CONTR1 is "STATUS", all rows show the checkbox with the caption STATUS.
>>>oForm = CREATEOBJECT([form1]) >>>oForm.Show(1) >>> >>> >>> >>> >>>************************************************** >>>*-- Form: form1 (d:\all_zapl\additional_programs\upgrade\aaa.scx) >>>*-- ParentClass: form >>>*-- BaseClass: form >>>*-- Time Stamp: 05/25/23 11:00:01 AM >>>* >>>DEFINE CLASS form1 AS form >>> >>> >>> Top = 0 >>> Left = 0 >>> DoCreate = .T. >>> Caption = "Form1" >>> *-- XML Metadata for customizable properties >>> _memberdata = [<VFPData><memberdata name="setcaption" display="SetCaption"/></VFPData>] >>> Name = "Form1" >>> >>> >>> ADD OBJECT grid1 AS grid WITH ; >>> ColumnCount = 2, ; >>> Anchor = 15, ; >>> Height = 200, ; >>> Left = 19, ; >>> Top = 28, ; >>> Width = 320, ; >>> Name = "Grid1", ; >>> Column1.Sparse = .F., ; >>> Column1.Name = "Column1", ; >>> Column2.Name = "Column2" >>> >>> >>> PROCEDURE setcaption >>> thisform.Grid1.ColUMN1.Check1.Caption = ALLTRIM(Test.Fld2) >>> RETURN thisform.Grid1.ColUMN1.BackColor >>> ENDPROC >>> >>> >>> PROCEDURE Init >>> WITH thisform.Grid1.Column1 AS Column >>> .AddObject("Check1","CheckBox") >>> .RemoveObject("Text1") >>> .Check1.Visible = .t. >>> .CurrentControl = "Check1" >>> ENDWITH >>> >>> >>> >>> >>> thisform.Grid1.ColuMN1.DynamicBackColor = "thisform.SetCaption()" >>> ENDPROC >>> >>> >>> PROCEDURE Load >>> CREATE CURSOR Test (Fld1 L, Fld2 C(20)) >>> FOR lnFor = 1 TO 20 >>> INSERT INTO Test VALUES (lnFor%2==0,"Caption - "+TRANSFORM(lnFor)) >>> NEXT >>> GO TOP >>> ENDPROC >>> >>> >>>ENDDEFINE >>>* >>>*-- EndDefine: form1 >>>************************************************** >>>>>