>>>>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)
_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
If it's not broken, fix it until it is.
My Blog