>>>>>lc_prop + ' = ' + evaluate(lc_Prop)
>>>>>
>>>>>I got lots of errors - had to kill VFP. Is there any other way to get the value of the property?
>>>>>
>>>>>Ok, good I asked - I figured it.
>>>>
>>>>So you don't need an answer? PEMSTATUS will only tell you if the property has changed from the default. Just like on the VFP property window when right click and select "non-default properties only".
>>>>
>>>>Also might want to look at GETPEM instead of using the EVALUATE command.
>>>
>>>Yes, exactly. Still get an error, though - may be I needed to use transform function.
>>
>>You have a list of the values the properties where and want to know the values they are now? Properties values can be any type, objects, null, numbers. I don't get what you are trying to accomplish with the command lc_prop + "=" + EVALUATE(lc_prop). Maybe if you posted more of the code you are witting I can see what you are trying to accomplish.
>
>
>Local Array laControl[1], la_Props[1]
>Local lnProps, lc_Prop
>Aselobj(laControl)
>If Vartype(laControl[1]) = 'O'
> ln_props = Amembers(la_Props, laControl[1], 0)
> For Each lc_Prop In la_Props
> If Pemstatus(laControl[1], lc_Prop, 0)
>*-- Property changed
> _cliptext = _cliptext + lc_Prop + " = " + ;
> TRANSFORM(getpem(laControl[1],lc_Prop)) + CHR(13) + CHR(10)
> Endif
> Endfor
>Endif
>
>********************
>Here is output
>
>CNAME_DDD =
>CNAME_DDTV =
>CONTROLSOURCE = configheader.mfgname
>CPICKLISTFILTEREXPRESSION = Iif(dealership.shwothrmfg, .T., Upper(f2reftable.name)<>"OTHER")
>FONTBOLD = .T.
>HEIGHT = 20
>LADDLOOKUPCOMMANDBUTTON = .F.
>LEFT = 7
>LOVERRIDEWIDTH = .T.
>NAME = txtconfigheader_mfgname
>TABINDEX = 9
>TOP = 5
>WIDTH = 266
>
Looks like your good. The only thing to add is you can have multiple selected objects but if it's a tool just for you then you control that.
Charles
"The code knows no master." - Chuck Mautz
"Everybody is ignorant, only on different subjects." - Will Rogers