This.value = iif(myField,'Yes','No')>>
******************************************************************** * Description.......: BuildForm * Calling Samples...: * Parameter List....: * Created by........: Nadya Nosonovsky 07/04/2002 08:04:01 PM * Modified by.......: ******************************************************************** aselobj(arrObj) loForm = arrObj[1] lnTop = 10 lnLblLeft = 10 lnTxLeft = 0 select BrowFlds scan for cEditType = 'Property' loForm.newobject('lbl'+ proper(alltrim(cFldName)),'wglabel','wgcontrols.vcx') loLblObj = evaluate('loForm.lbl'+proper(alltrim(cFldName))) loLblObj.caption = alltrim(ColHead) loLblObj.left = m.lnLblLeft loLblObj.top = m.lnTop+3 *loLblObj.statusbartext = alltrim(colDesc) loLblObj.autosize = .t. loLblObj.visible = .t. m.lnTxtLeft = m.lnLblLeft+loLblObj.width + 2 loForm.newobject('txt'+proper(alltrim(cFldName)),'wgtextbox','wgcontrols.vcx') loTxtObj = evaluate('loForm.txt'+proper(alltrim(cFldName))) loTxtObj.left = m.lnTxtLeft loTxtObj.top = m.lnTop loTxtObj.statusbartext = space(5)+alltrim(colDesc) loTxtObj.tooltiptext = alltrim(colDesc) loTxtObj.width = colWidth loTxtObj.controlsource = 'BldMstr.'+alltrim(proper(cFldName)) loTxtObj.format = alltrim(colFormat) loTxtObj.inputmask = alltrim(colMask) loTxtObj.readonly = .t. loTxtObj.visible = .t. lnLblLeft = iif(m.lnLblLeft<470,m.lnTxtLeft + loTxtObj.width + 20,10) if m.lnLblLeft = 10 lnTop = m.lnTop+ loTxtObj.height + 30 endif endscan