Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
PEMSTATUS() bug or anomaly of subclassed pages?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
PEMSTATUS() bug or anomaly of subclassed pages?
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:
00963637
Vues:
61
For some reason, PEMSTATUS() returns .T. when I use it to determine if a subclassed page has a width property even though the page does NOT have a width property. PEMSTATUS() correctly returns .F. if I run it against a page of the VFP baseclasses. Below is a more detailed explanation of what I've done.

I began by creating my own page class (subclassed from the VFP base). I then subclassed a pageframe and set it's memberclass to my new page class. Great so far.

However, we have a resizer class on our forms that begins by saving initial height, width, top, left, fontsize, etc values of each object on a form. The resizer does the following bit of code:
   lparameters oControl
   
   WITH oControl
   *--- Save Width
   IF PEMSTATUS(oControl,"Width",5) AND !PEMSTATUS(oControl,"nOrigWidth",5)
      .AddProperty("nOrigWidth", .Width)
   ENDIF
   ...

   ENDWITH
This works great when I drop a VFP base pageframe on a form and resize it. However, when I drop my subclassed pageframe, I get an error in the above code. The first PEMSTATUS() checking to see if the control (in this case my subclassed page) has a width returns a .T. (which I did NOT expect ... and no, I did not add a width property to my page class). But, when it tries to do the .AddProperty code, it bombs saying that the page does not have a width property.

Even from the debug window, the pemstatus continually returns a .T. stating that my page does have a Width property and yet if I look at the properties of my page in the debugger window, there is NO Width property.

Has anyone run into this? Can anyone re-create this so I know I'm not loosing my mind? <g> Lastly, if, for some odd reason, this is considered "normal" behavior, how can I truly determine that the page does NOT have a width property?

Thanks so much to anyone who can help with this!
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform