FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New Method in TWindow Class - ::RestoreAllIconized()
Posts: 654
Joined: Fri Oct 21, 2005 05:54 AM
New Method in TWindow Class - ::RestoreAllIconized()
Posted: Fri May 15, 2009 12:54 PM
Hi Mr.Antonio,

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 (fw): Select all Collapse
//----------------------------------------------------------------------------//

* [ 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

Continue the discussion