VALID fix for Windows CE

[Antonio Linares]

We will include these changes in next FWPPC.

In the meantime, here you have the way to get the VALID working with FWPPC and Windows CE:

Code: Select all  Expand view  RUN

#include "fwce.ch"
#include "winapi.ch"

function Main()

   local oWnd := TMyWindow():New( "Tutor02",, nOr( WS_CAPTION, WS_SYSMENU ) )

   oWnd:Activate( ,,,, { || MsgYesNo( "Want to end ?", "Please select" ) } )

return nil

CLASS TMyWindow FROM TWindow

   METHOD HandleEvent( nMsg, nWParam, nLParam )
   
   METHOD End( nID )

ENDCLASS

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TMyWindow

   do case
      case nMsg == WM_CLOSE
           return ::End()
   endcase
   
return Super:HandleEvent( nMsg, nWParam, nLParam )      

METHOD End( nID ) CLASS TMyWindow

   DEFAULT nID := 0

   if ::lValid()
      DestroyWindow( ::hWnd )
      ::nResult = nID
      return nil
   endif  
   
return 0