Every time I upgrade to latest FWH build, I am adding the following functionality to
restore all the Iconized windows in MDI environment in "WINDOW.prg" and "MENU.PRG".
If you feel that this functionality can be permanently included in the above classes,
You can do it.
- Code: Select all Expand view
//----------------------------------------------------------------------------//
* [ Added by By RAMESH BABU P ]
METHOD RestoreAllIconized() CLASS TWindow
LOCAL oWnd, n
IF LEN( ::oWndClient:aWnd ) >0
FOR n = 1 TO LEN( ::oWndClient:aWnd )
oWnd := ::oWndClient:aWnd[n]:hWnd
ShowWindow( oWnd, SW_RESTORE )
NEXT
ENDIF
RETURN nil
//----------------------------------------------------------------------------//
* [ Added by By RAMESH BABU P ]
METHOD AddMdi() CLASS TMenu
...
...
MENUITEM "&Iconize All" ACTION ::oWnd:IconizeAll() ;
MESSAGE "Iconize all open windows" ;
WHEN Len( ::oWnd:oWndClient:aWnd ) > 0
MENUITEM "&Resore All" ACTION ::oWnd:RestoreAllIconized() ;
MESSAGE "Restore all Iconized windows" ;
WHEN Len( ::oWnd:oWndClient:aWnd ) > 0
...
...
return nil
Hope Fivetech project in Korea is going best.
Regards,
- Ramesh Babu P
