DEFINE CLASS cnt_controles AS container *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Textbox_h" UniqueID="" Timestamp="" /> *< DefinedPropArrayMethod> *m: unmetodo_normal *m: unmetodo_oculto *m: unmetodo_protegido *p: unaprop_oculta && Una prop.oculta *p: unaprop_protegida && Una prop.protegida *< /DefinedPropArrayMethod> HIDDEN unaprop_oculta PROTECTED unaprop_protegida Height = 159 Name = "cnt_controles" unaprop_comun = this is a text value in VFP storing format! unaprop_oculta = 1000 && Una prop.oculta unaprop_protegida = .NULL. && Una prop.protegida Width = 284 ADD OBJECT 'Textbox_h' AS textbox WITH ; BackColor = 255,0,0, ; Height = 23, ; Left = 76, ; Name = "Textbox_h", ; Top = 12, ; Width = 196 *< END OBJECT: BaseClass="textbox" /> PROCEDURE Textbox_h.Click *-- cnt_controles.Textbox_h.Click() ENDPROC ENDDEFINEAs you see, I'm using special tokens for classes, objects, methods, properties, arrays and more, so I can later read this metadata again, and ti is encoded in a way that a developer sees it as not disturbing comments to not break the normal reading of the program, and being encapsulated in this way you can cut and paste, anytime you respect the structure of this metadata.
BackColor = 255,0,0corresponds to VFP internal storing for some values, that ar differently saved when you change the value that when it is a default value. This special assignments, between other things, causes that you can't compile as PRG, but at the same time you can use almost any VFP tool that works with PRG code.