Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP60- Existence of a property
Message
 
 
To
05/10/2000 13:28:05
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00425254
Message ID:
00425419
Views:
24
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform