******************************************************************** * Description.......: FormBuilder * Calling Samples...: * Parameter List....: * ideas by..........: Cetin Basoz & Dragan Nedeljkovich * Modified by.......: Nadya Nosonovsky 10/23/2001 01:11:58 PM ******************************************************************** =aselobj(aForm,1) && aForm would be private array visible in CreateClonedCopy function =aselobj(aObjects) && All selected objects for each oObj in aObjects do case case lower(oObj.class) = 'label' =CreateClonedCopy(oObj,'wgLabel') case lower(oObj.class) = 'text' =CreateClonedCopy(oObj,'wgtextbox') case lower(oObj.class) = 'checkbox' =CreateClonedCopy(oObj,'wgcheckbox') endcase next return *!* ================================== function CreateClonedCopy lparameter oObj, tcClass local lnProps, lnK, lnI, lcName local array laProps[1] local array laChangedProps[1] lnProps = amembers(laProps,oObj) lnK=0 for lnI=1 to m.lnProps if pemstatus(oObj,laProps[m.lnI],0) && Non-default property lnK = m.lnK + 1 dimension laChangedProps[m.lnK,2] laChangedProps[m.lnK,1]=laProps[m.lnI] laChangedProps[m.lnK,2]=getpem(oObj,laProps[m.lnI]) endif next lcName = oObj.name aForm[1].removeobject((m.lcName)) aForm[1].newobject((m.lcName),m.tcClass,"\redp\appl\commonwg\classes\wgcontrols.vcx") with aForm[1].&lcName for lnK = 1 to alen(laChangedProps,1) .&laChangedProps[m.lnK,1]=laChangedProps[m.lnK,2] && to (aForm[1] + "." + m.lcName + "."+laChangedProps[m.lnK,1]) next endwith