Thanks for the great explanation, Daniel. I haven't thought that this property could be hidden, because I rarely use hidden properties in my work...
>Nadya:
>
>If MyProperty is a hidden (protected) property and loObject is an instance of the class,
>
>Type('loObject.MyProperty') = 'U'
>PemStatus(loObject, 'MyProperty', 5) = .t.
>
>Not exactly the same the same results...
>
>By the way, to check if a property is
>
>Hidden
>------
>llRetVal = PemStatus(loObject, 'MyProperty', 5)
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 3) = 'Property'
>llRetVal = llRetVal And Not PemStatus(loObject, 'MyProperty', 2)
>llRetVal = llRetVal And Type('loObject.MyProperty') = 'U'
>
>
>Protected
>---------
>llRetval = PemStatus(loObject, 'MyProperty', 5)
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 3) = 'Property'
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 2)
>
>Public
>------
>llRetVal = PemStatus(loObject, 'MyProperty', 5)
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 3) = 'Property'
>llRetVal = llRetVal And Type('loObject.MyProperty') <> 'U'
>
>Hope it helps,
>
>Daniel
If it's not broken, fix it until it is.
My Blog