Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Leadtools Control within a pageframe
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00726897
Message ID:
00726903
Views:
9
Hi,

I know what you mean
The Lead Tools Control Takes over the form happens in 12.1 too.
The best I could do is make a function called GetScreen..

FUNCTION GetScreen
PRIVATE cScreen,oScreen

cScreen=IIF(TYPE("_SCREEN.ACTIVEFORM")="O",_SCREEN.ACTIVEFORM.NAME,"")
IF EMPTY(cScreen)
oScreen=CREATEOBJECT("pdmfrm")
oScreen.name="dummy"
ELSE
oScreen=_SCREEN.ACTIVEFORM
ENDIF

**fix lead tools problem
IF UPPER(cScreen)="LEAD"
cScreen=oScreen.Parent.Parent.name
oScreen=oScreen.Parent.Parent
ENDIF

RETURN oScreen


Then instead thisform I use the form object...
For example

thisform.refresh()
|
|
|
oTemp=GetScreen()
oTemp.Refresh()


(Same problem with forms I imagine as pageframes (i.e. it takes over parent contianer...) Seems to happen when an image is loaded.

If you find a better solution let me know.

BR
Tim
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform