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:
00729375
Views:
9
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
Map
View

Click here to load this message in the networking platform