General information
Category:
ActiveX controls in VFP
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only