Quantcast
Channel: VFPX
Viewing all articles
Browse latest Browse all 3798

Commented Unassigned: Foxtabs Issue [35441]

$
0
0
Please Fix below issue.

Steps to reproduce the issue:
Start VFP9
RightClick on TitleBar of Command Window and UnCheck Dockable.
Start Foxtabs (DO C:\Program Files\Microsoft Visual FoxPro 9\Thor\Tools\Apps\FoxTabs\FoxTabs.app)
Open a Form (Modify form test2)
Now in Foxtabs "Click options arrow and click Close All" or in Foxtabs RightClick on 'Form Designer - test2.scx' and Click Close All"
and VFP9 started blinking continuously, we can not do nothing only Ctrl+Alt+Delete to close the VFP9.

Please fix this issues

Warm regards,
mk.
Comments: ** Comment from web user: mk_common **

I have done a little change in procedure Foxtabs.Foxtabstoolbar.releasewindow and now it is working perfect.


```
** Foxtabs.Foxtabstoolbar.releasewindow

Lparameters lpcWindowName As String

Local oFoxTab As Object
Local lnWindowCount

* Release all windows when "ALL" is passed
Local lnWindowCount, lpcWindowName
*:Global oFoxTab
If m.lpcWindowName = "ALL"
Do While oFoxTabs.FoxTabsManager.FoxTabs.Count > 0
* Obtain a reference to the first FoxTab
oFoxTab = oFoxTabs.FoxTabsManager.FoxTabs.Item(1)
* Strip the has changes flag
lpcWindowName = Chrtran(m.oFoxTab.WindowName, "*", "")

*!* ------ New code to Avoid continuous blinking issue -----
*!* -------- Start ------
lnWindowCount = oFoxTabs.FoxTabsManager.FoxTabs.Count
If m.lnWindowCount=1 And Upper(m.lpcWindowName)='COMMAND'
Exit
Endif
*!* -------- End ------

If Not Empty(m.lpcWindowName)
* Recursion call
This.ReleaseWindow(m.lpcWindowName)
Endif
Enddo
Return
Endif
```


Warm regards,
mk.


Viewing all articles
Browse latest Browse all 3798

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>