VALID fix for Windows CE

VALID fix for Windows CE

Postby Antonio Linares » Sun Oct 25, 2009 6:55 pm

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
#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      
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Return to FiveWin for Pocket PC

Who is online

Users browsing this forum: No registered users and 4 guests