Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Pageframe with ScreenLock Problem
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Pageframe with ScreenLock Problem
Divers
Thread ID:
00432183
Message ID:
00432183
Vues:
51
I have a pageframe that has 2 pages. The first one has a spinner and a textbox. The second one has a textbox and a spinner. all the controls are subclasses of the vfp control.
In the init of the for I do a thisform.screenlock=.t. then disable all the controls and then a thisform.screenlock=.f.
When the form shows, the first spinner in page1 shows in a complete different position in the form. If I press a button the enable that spinner the spinner returns to the original position.
If I use the regular spinner that comes in VFP, works fine.
The spinner in Page2 work fine. If I run the form with the second page as the active page, works fine. Only this particulary spinner in the first page do this. I have the same spinner class in the same form and works good.

Code in the spinner class:

DisableBackColor
DisableForeColor
FontName
FontSize
Format
Init
Interactivechange
KeyboardHighValue
KeyboardLowValue
SpinnerHight
SpinnerLow
Width
enabled_assign


****INIT****
LOCAL lcField
lcField=THIS.pAltControlSource
IF !EMPTY(THIS.pAltControlSource)
DO CASE
CASE THIS.pAltControlSourceType="C"
THIS.VALUE=VAL(&lcField)
ENDCASE
ENDIF
IF THIS.ENABLED
IF THIS.pRequired=1
THIS.BACKCOLOR=RGB(255,255,128)
ELSE
THIS.RESETTODEFAULT("BACKCOLOR")
ENDIF
ENDIF

****Enable_assign****
THIS.INIT
Francisko Paternoster
fpater@patercorp.com
Répondre
Fil
Voir

Click here to load this message in the networking platform