General information
Category:
ActiveX controls in VFP
Hi, ok.
I made a function (getscreen) to return the form object.
If the name of it is "LEAD" (as happens with the lead tools) it instead returns the parent further up. Then I call events of this object instead of thisform. for example instead of:
thisform.Refresh()
thisform.ledit=.T.
I call
oScreen=GETSCREEN()
oScreen.Refresh()
oScreen.ledit=.T.
The function makes sure that oScreen is the form and not the lead tools object.
You could try the same with your pageframe.
If you find a better solution let me know.
BR
Tim
>
>>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
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