Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Pageframe with ScreenLock Problem
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Pageframe with ScreenLock Problem
Miscellaneous
Thread ID:
00432183
Message ID:
00432183
Views:
49
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
Reply
Map
View

Click here to load this message in the networking platform