FWPPV to FW

[Otto]

Could someone please help to convert this fivewin PPC sample to Fivewin.

Thanks in advance
Otto

Code: Select all  Expand view  RUN

// FiveWin for Pocket PC - Capturing a signature

//#include "FWCE.ch"
#include "FiveWin.ch"

static oWnd, oSay

//----------------------------------------------------------------------------//

function Main()

   local hDC, lPaint := .f.

   DEFINE WINDOW oWnd TITLE "Please sign" //;
    //  MENU BuildMenu()

   @ 40, 5 SAY oSay PROMPT "" SIZE 230, 150 PIXEL BORDER

   hDC = oSay:GetDC()

   oSay:bLClicked  = { | nRow, nCol | lPaint := .t., MoveTo( hDC, nCol, nRow ) }
   oSay:bLButtonUp = { | nRow, nCol | LineTo( hDC, nCol, nRow ), lPaint := .f. }
   oSay:bMMoved    = { | nRow, nCol | If( lPaint, LineTo( hDC, nCol, nRow ),) }

   ACTIVATE WINDOW oWnd ;
      VALID ( oSay:ReleaseDC(), .t. )
     
return nil

//----------------------------------------------------------------------------//

[Carles]

Otto,

Try to add

Code: Select all  Expand view  RUN

oSay:lWantClick := .t.

[Otto]

Thank you. Now it is working.
Best regards,
Otto

[Otto]

Hello Carles,
do you know if lWantClick also works with resource files?

Thanks in advance
Otto

I had somewhere else an error.
Yes it is working.

[Carles]

Otto,

It should work also