>>
>>VFP 6.0 has a new AddProperty method that should do the trick for you.
>
>I don't really need to add properties at run time, but to be able to loop through existing properties. Something like
>
>FOR i = 1 TO THIS.PropertyCount
> THIS.Properties(i)
>ENDFOR
>
>I know that there is nothing like this, I would just like a way to let me do something like that.
Hi Erik,
This is saveprops custom method of one of grid classes. Designed especially for headers. Only saves font* and alignment props for myheader class to restore after replacing baseclass header. Hope helps

lparameters oControl, cArrayName
local jx, lnNewPos, nOldMemberCount, nMembers
local array aProperties[1]
with this
	nOldMemberCount = iif(type("."+cArrayName+"[1,1]")="L",0,;
					alen(.&cArrayName,1))
	nMembers = amembers(aProperties,oControl)
	for jx=1 to nMembers
		if inlist(aProperties[jx],"FONT","ALIGNMENT")
			if type("."+cArrayName+"[1,1]")#"L"
				dimension .&cArrayName.[alen(.&cArrayName,1)+1,3]
			endif
			lnNewPos = alen(.&cArrayName,1)
			.&cArrayName.[lnNewPos,1]=aProperties[jx]
			.&cArrayName.[lnNewPos,2]=getpem(oControl,aProperties[jx])
			.&cArrayName.[lnNewPos,3]=oControl.parent.columnorder
		endif
	endfor
endwith

Cetin