Tasktray "minimize" -> ShowWindow(hWndDlg, SW_RESTORE) ?

[AUGE_OHR]

hi,

i do use

Code: Select all

   ON NOTIFYCLICK HideShow()

to "minimize" App to Tray-Icon only

but App itself have

Code: Select all

   ON MINIMIZE nil // HideShow() ;

when click on upper right of App to "minimize" it will not show "normal" again
it will show Icon in Tasklist and SW_NORMAL or SW_RESTORE seems not to work

so how can i modify this Code ... need Idea

Code: Select all

STATIC PROCEDURE HideShow()
LOCAL cTitle  := "IPTV " + cVersion
LOCAL hWndDlg := getproperty( 'IPTVMAIN', 'handle' )

   IF IsWindowVisible( GetFormHandle( "IPTVMAIN" ) )
*      ShowWindow(hWndDlg, SW_HIDE)
      DoMethod( "IPTVMAIN", "Hide" )
   ELSE
      DoMethod( "IPTVMAIN", "Show" )
*      ShowWindow(hWndDlg, SW_RESTORE)      
      ShowWindow(hWndDlg, SW_NORMAL)
   ENDIF
RETURN

[andyglezl]

Maybe...

Code: Select all

IF IsWindowVisible( GetFormHandle( "IPTVMAIN" ) )
	IPTVMAIN.Minimize
ELSE
	IPTVMAIN.Restore
ENDIF