Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
PEMSTATUS() bug or anomaly of subclassed pages?
Message
De
23/11/2004 11:14:40
 
 
À
23/11/2004 10:24:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Novell 6.x
Database:
Visual FoxPro
Divers
Thread ID:
00963637
Message ID:
00963865
Vues:
8
>>>>>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.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform