Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
PEMSTATUS() bug or anomaly of subclassed pages?
Message
From
23/11/2004 11:14:40
 
 
To
23/11/2004 10:24:58
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Novell 6.x
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00963637
Message ID:
00963865
Views:
7
>>>>>Thanks Marcia! That should do the trick. I'm still confused as to why PEMSTATUS() says there's a Width property on my page when everything else says there isn't. Have you seen that behaviour before?
>>>>
>>>>This classes have hidden properties:
>>>>
>>>>DataEnv : it have all the container's PEMs
>>>>
>>>>* hidden methods for a future VCX support
>>>>Writemethod,SaveAsClass :
>>>>Header,Session,Column
>>>>
>>>>* hidden Class Designer positioning
>>>>Left,Top,Height,Width :
>>>>Hyperlink,Relation,Cursor,CursorAdapter,Collection
>>>>XmlField,XMLTable,XMLAdapter,ProjectHook
>>>>
>>>>
>>>>A more general way ( slow )
>>>>
>>>>IF !PEMSTATUS(m.oControl,"nOrigWidth",5) AND TYPE("m.oControl.Width")=='N'
>>>>....
>>>>
>>>>Fabio
>>>
>>>hi Fabio,
>>>
>>>I think this is a lot faster
>>>
>>>
>>>IF !PEMSTATUS(m.oControl,"nOrigWidth",5) AND vartype(m.oControl.Width)=='N'
>>>....
>>>
>>
>>
>>Hi Gregory,
>>unfortunally this is not usable cause a bug,
>>if the property it is not readable VARTYPE() fire a error.
>>try
>>
>>WITH CREATEOBJECT('aaa')
>>? VARTYPE(.hprop)
>>? VARTYPE(.pprop)
>>? VARTYPE(.prop)
>>ENDWITH
>>
>>DEFINE CLASS aaa as Custom
>>	HIDDEN hprop
>>	PROTECTED pprop
>>	hprop = .T.
>>	pprop = .T.
>>	prop = .T.
>>ENDDEFINE
>>
>>
>>Fabio
>
>You're right Fabio,
>If fires an error if protected or hidden, but not if the property does not exist
>
>
>obj= CREATEOBJECT('aaa')
>? VARTYPE(m.obj.width)
>
>
>
>DEFINE CLASS aaa as Relation
>	>ENDDEFINE
>
Thanks Gregory, this small, but important, detail were escaped to me.
Previous
Reply
Map
View

Click here to load this message in the networking platform